当前位置: 高中信息技术 / 综合题
  • 1. (2019·浙江模拟) 编写“鞋码换算”程序,实现如下功能:在文本框 Text1 中输入脚长 n(单位:厘米),单击 “换算”按钮 Command1,在标签 Label1 中显示相应鞋码,同时在列表框 List1 中显示与脚长对应的标准鞋码表。程序运行界面如图所示。

    1. (1) 如图所示,能生成运行界面中列表框的控件是(

    2. (2) 实现上述功能的VB程序如下,请在划线处填写合适的代码。

      Private Sub Command1_Click()

      Dim n As Single, i As Integer, c As Integer

      List1.Clear

      n = Val(Text1.Text)

      If n - Int(n) > 0.5 Then

      n = Int(n)+1      ‘n 小数部分大于 0.5 的加 1,0.5 及以下的加 0.5

        Else

            

      End If

      c = n * 2 - 10

      Label1.Caption = "适合你的鞋码为:" + Str(c)

      For i = 22.5  To n+2   step 0.5

      If Int(i) = i Then

      List1.AddItem Str(i) + "   " + Str(c)

      Else

      List1.AddItem Str(i) + "   " + Str(c)

      End If

      Next i

      End Sub

    3. (3) 若小容的脚长为23.3,则适合她的标准鞋码为

微信扫码预览、分享更方便