题库 高中信息

题干

编写“数字序列”程序,实现如下功能:在文本框Text1中输入[100,500]范围内的整数,单击“生成”按钮Command1,在列表框List1中显示9个该序列的数字。数字序列的生成规则为:该项的数字+该数百位上的数字+该数十位上的数字+该数个位上的数字=下一项的数字,例如:365+3+6+5=379。小明编写了VB程序,运行的界面如图所示,程序代码如下:

(1)代码“Private Sub Command1_Click()”中的Command1_Click()是_________。
(单选,填字母:
A.对象名B.事件C.事件处理过程D.方法   )
(2)为实现上述功能,请在划线处填入合适的代码。
Private Sub Command1_Click(   )
Dim n As Integer, i As Integer
Dim a As Integer,b As Integer
Dim c As Integer
List1.Clear
n = Val(Text1.Text)
If n >= 100 And n <= 500 Then
For i = 1 To 9
 
a = n \ 100
b = (n - 100 * a) \ 10
c = n Mod 10
_______________________
   
Next i

Else
List1.AddItem "输入数值有误"
End If

End Sub
(3)上述代码段中缺少了List1.AddItem Str(i)+"."+Str(n),此句代码应该加在_____(填字母)位置。
(4)若输入的数字为123,则List1中第三行为__________________。
上一题 下一题 0.99难度 填空题 更新时间:2019-05-07 09:15:29

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

同类题3

小宇为选定班级参赛作品编写了一个VB程序,设计如下:在文本框Text1内输入5位评委对3个作品的评分数据(评委对作品的评分数据由3位十进制数组成,第1位对应作品编号,第2、3位对应作品得分,分值范围为60,99。如“275”表示2号作品得分75)。单击“计分”按钮后,在标签Label1中输出3个作品的平均分,在标签Label2中输出参赛的作品(选择最高平均分作品参赛,若最高平均分存在并列,则从并列作品中随机柚取)。程序运行界面如图所示。

(1)“计分”按钮的对象名为_________。
(2)程序部分代码如下,请在划线处填入合适代码。
Private Suh jf_Click( )
Dim s As String,d As String,i As Integer
Dim f1 As Single,f2 As Single,f3 As Single
s = Text1. Text
i = 1
Do While ___________ 
d = Mid(s,i,3)
If  Mid(d,1,1) = "1”  Then
f1 = f1 + Val(Mid(d,2, 2))
ElseIf  Mid(d, 1, 1) = “2”  Then
f2 = f2 + Val(Mid(d,2, 2))
Else
f3 = f3 + Val(Mid(d,2, 2))
End If
________________
Loop
Label1.Caption="作品1平均分为:" + Str(f1 / 5)+ “作品2平均分为:” + Str(f2 / 5)+ “作品3平均分为:” + Str(f3 / 5)
'以下省略“处理并列最高平均分,并在Labd2中输出选取的参赛作品”的代码
End Sub
(3)运行该程序时,在文本框Text1中以不同的顺序输入原评分数据:
380/295/283/170/180/385/372/285/190/180/390/384/272/170/276,单击“计分”按钮,则Label1中显示的结果__________(选填:会/不会)发生改变。