- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省高中信息技术 VB基本语句同步练习

编写VB程序，实现如下功能：在文本框Text1和Text2中分别输入一个整数，单击“转换”命令按钮，在列表框List1中显示结果，运行结果如图a所示。结果包含两列数据，第1列为两数之间的厘米值g(间隔1厘米、升序)，第2列为对应的码值m。

鞋子尺码换算：常用的两种鞋码一种是欧制的码m，而我国采用的标准为厘米数g，鞋子尺码的换算公式：欧制m=中国制g*2-10。例如25是我国采用的厘米数，换算成欧制的码为25*2-10=40(码)。

（1）、根据程序界面(图a)和其属性窗口(图b)所提供的信息,可以得知“转换”命令按钮的对象名称是。

（2）、为实现上述功能，请在划线处填入合适的代码或选项。

Private Sub Command1_Click()

Dim g1 As Integer, g2 As Integer

Dim i As Integer, temp As Integer

Dim m As Single

List1.Clear

g1 = Val(Text1.Text)

g2 = Val(Text2.Text)

IfThen

temp = g1: g1 = g2: g2 = temp

End If

i = g1

Do While i <= g2

List1.AddItem Str(i) + “” + Str(m)

i = i + 1

Loop

End Sub

（3）、如果调试程序时在文本框中输入小数，例如第一个数输入24.5，第二个数输入29.5，则在列表框中(选填:能/不能)看到包含小数的厘米数。

For i=1 to 3

For j=1 to 5-i

If a(j)>a(j+1) Then

t=a(j) : a(j)=a(j+1) : a(j+1)=t

End If

Next j

Text1.Text = Text1.Text + Str(a(i))

Next i

数组元素a(1)到a(5)的值依次为“3,9,6,8,4”。若该程序段执行后，文本框Text1显示的内容是（）

相关试卷