题库 高中信息

题干

编写“数字序列”程序,实现如下功能:在文本框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

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

同类题1

数组 a 存储降序排列的 m 个数据,数组 b 中存储的是升序排列的 n 个数据,且两个数组中存储的数据为区间1,20范围内的不重复的随机整数。现将两个数组的数据合并到 c 数组中,使 c 数组的数据为左右交替上升,如下表所示:

当窗体 Form1 加载时,自动产生 a、b 数组的数据,并分别显示在列表框 List1 与 List2
中,单击合并按钮 Command1 后,在 c 数组中保存按规则合并后的 a、b 数组的数据,并显示在列表框 List3 中。程序截图如下所示:

实现该功能的 VB 程序如下:
Const m = 5
Const n = 6
Dim a(1 To m) As Integer
Dim b(1 To n) As Integer
Dim c(1 To m + n) As Integer
‘窗体加载时,生成数组 a、b 中的数据,并按要求排序后显示在列表框中,代码略
Private Sub Command1_Click()
Dim pa As Integer, pb As Integer, pc As Integer, s As Integer, flag As Boolean
pa = m: pb = 1: pc = 1
flag = True
Do While ____________________  
If a(pa) < b(pb) Then

s = a(pa)

pa = pa - 1

Else

s = b(pb)

pb = pb + 1

End If
c(pc) = s
If flag Then

pc = m + n - pc + 1

Else

pc =  

End If
__________________________
Loop
‘处理 a、b 数组中剩余数据,并在列表框 List3 中输出数组 c,代码略
End Sub
(1)窗体加载的事件处理过程名为__________。(填字母:
A.Form1_Click /B.Form_Click /
C.Form1_Load /D.Form_load)
(2)加框处代码有错,请改正。 __________
(3)在划线处填入合适的代码。