编写“鞋码换算”程序，实现如下功能：在文本框Text1中输入脚长n(单位：厘米)，单击“换算”按钮Command1，在标签Label1中显示相应鞋码，同时在列表

题干

编写“鞋码换算”程序，实现如下功能：在文本框 Text1 中输入脚长 n(单位：厘米)，单击“换算”按钮 Command1，在标签 Label1 中显示相应鞋码，同时在列表框 List1 中显示与脚长对应的标准鞋码表。程序运行界面如图所示。

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

A．

B．

C．

D．

(2)实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim n As Single, i As ① , c As Integer
List1.Clear
n =" Val(Text1.Text)"
If n - Int(n) > 0.5 Then

‘n小数部分大于0.5的加1，0.5及以下的加0.5
End If
c =" n" * 2 - 10
Label1.Caption = "适合你的鞋码为：" + Str(c)
For i =   ③   To n+2 step 0.5
c = i*2-10
If Int(i) =" i" Then
List1.AddItem Str(i) + " " + Str(c)
Else
List1.AddItem Str(i) + "    " + Str(c)
End If
Next i
End Sub

上一题下一题 0.99难度填空题更新时间:2017-03-28 03:36:21

答案(点此获取答案解析）

同类题3

编写VB程序，实现如下功能：在文本框Text1中输入某一年份，单击“天干地支与生肖”按钮Command1，在列表框List1中输出该年份开始的12个年份及对应的“天干地支”与“生肖”，运行界面如图所示，程序代码如下。

（1）代码“Private Sub Command1_Click（）”中的Click是（单选，填字母：A、对象名 B、属性名 C、事件名）
（2）为实现上述功能，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim i As Integer, n As Integer
Dim c1 As String, s1 As String
Dim c2 As String, s2 As String
Dim c3 As String, s3 As String
List1.Clear
s1 = "甲乙丙丁戊己庚辛任癸"
s2 = "子丑寅卯辰巳午未申酉戌亥"
s3 = "鼠牛虎兔龙蛇马羊猴鸡狗猪"
n = Val(Text1.Text)
For i =" n" To
a =" (i" + 6) Mod 10
b =" (i" + 8) Mod 10
c1 =" Mid(s1," a + 1, 1)
c2 =" Mid(s2," b + 1, 1)
c3 =" Mid(s3," b + 1, 1)
List1.AddItem + "年 " + c1 + c2 + " " + c3
Next i
End Sub
（3）由上述算法可知，2024年对应的“天干地支”为，“生肖”是。

题干

答案(点此获取答案解析）

同类题1

同类题2

同类题3

同类题4

同类题5