题目内容

窗体上有一个列表框和一个文本框，编写下列两个事件过程： Private Sub Form. Load() List1.AddItem "北京" List1. AddItem "天津" List1. AddItem "上海" Text1. Text="" End Sub Private Sub List1. Click() Print Text1. Text+List1. Text End Sub 程序运行后，在文本框中输入“中国”，然后单击列表框中的“北京”，则输出结果是( )。

A. 中国北京
B. 中国天津
C. 中国上海
D. 北京中国

查看答案

搜索结果不匹配？点我反馈

更多问题

下列程序要求用户输入一个年份，并能够判断用户输入的年份是否是闰年，横线处应填( )。 Sub EnSure() Dim year As Integer year=Val(InputBox("请输入年份：")) If(year Mod 4=0year Mod 100＜＞0)(year Mod 400=0)Then Print"您输入的是闰年" Else Print"不是闰年，是普通年份" End If End Sub

And And
B. And Or
C. Or Or
D. Or Or

下列程序运行时输出的结果是( )。 Option Base 1 Const a=10 Private Sub Form_Click0 Dim x(a)As Integer k=-1 For i=1 To a x(i)=ik k=(-1)k Next i For i=1 To 10 Print x(i) Next i End Sub

A. 1 3 5 7 9 10
B. -1-3-5-7-9
C. -1 2-3 4-5 6-7 8-9 10
D. 1-2 3-4 5-6 7-8 9-10

下列程序代码实现生成20个0～100之问的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段( )，完成程序。 Private Sub Command1 Click() Dim arr(1 To 20) For i=1 To 20 arr(i)= Text1. Text=Text1. Text＆arr(i)＆Chr(13)＆Chr(10) Next i Surn=0 For Each X If X＞50 Then Print Tab(20)；X Sum=Sum+X End If NextX Print Tab(20)；"Sum="；Sum End Sub

A. Int(Rnd*99+1)In arr
B. Int(Rnd)In arr
C. Int(Rnd*99+1)In arr()
D. Int(Rnd)In arr()

吴老先生因脑溢血已在家卧床2个月，大小便失禁，不能自行翻身，近日骶尾部皮肤呈紫红色，压之不褪色。给予的护理措施哪项不妥( )。

A. 每2小时翻身1次
B. 保持衣裤及床铺干燥
C. 尿湿后用温水擦净皮肤
D. 每天按摩骶尾部2次 E．床上铺气垫褥