题目

编写“鞋码换算”程序，实现如下功能：在文本框 Text1 中输入脚长 n(单位：厘米)，单击 “换算”按钮 Command1，在标签 Label1 中显示相应鞋码，同时在列表框 List1 中显示与脚长对应的标准鞋码表。程序运行界面如图所示。 （1） 如图所示，能生成运行界面中列表框的控件是（） （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） 若小容的脚长为23.3，则适合她的标准鞋码为。 答案： 【1】B 【1】n=int(n)+0.5【2】c=i*2-10 【1】37

查看本题答案和解析