题目
有如下程序: Private Sub Command1_Click() as="A WORKER IS HERE" x = Len(a$) For i=1 To x - 1 b$ =Mid$(a$, i,3) If b$ ="WOR" Then S=S+ 1 Next Print S End Sub 单击命令按钮,程序运行结果为
A.1
B.2
C.3
D.5
第1题
有如下程序: Private Sub Form_Click() Dim Check, Counter Check=True Counter=0 Do Do While Counter<20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter, Check End Sub 程序运行后,单击窗体,输出结果为______。
A.15 0
B.20 -1
C.10 True
D.10 False
第2题
有如下程序: Private Sub Form_Click() Dim Check,Counter Check=True Counter=0 Do Do While Counter<20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter,Check End Sub 程序运行后,单击窗体,输出结果为()。
A.15 0
B.20 -1
C.10 True
D.10 False
第3题
对于如下程序,单击Co皿andl事件发生后,窗体上显示的内容为 ______。 Private Sub Command1_Click() Dim i As Integer,a a As Integer Do While i<20 Do While True If i Mod 10 = 0 Then Exit Do Else i=i-1 End If Loop i=i+11 a=a+1 Loop Print a End Sub
A.21
B.32
C.33
D.11
第4题
在窗体上画—个命令按钮和—个文本框,名称分别为Command1和Text1,然后编写如下程序: Private Sub Command1_Click() a=InputBox("请输入日期(1~31)") t="旅游景点:"&IIf(a>0 And a<=10,"长城","")&_ IIf(a>10 And a<=20,"故宫","")&IIf(a>20 And a<=31,"颐和园","") Text1.Text=t End Sub 程序运行后,如果从键盘上输入16,则在文本框中显示的内容是
A.旅游景点:长城故宫
B.旅游景点:长城颐和园
C.旅游景点:颐和园
D.旅游景点:故宫
第5题
(9 )在窗体上画一个名称为 Command1 的命令按钮。然后编写如下程序:
Option Base 1
Private Sub Command1_Click ()
Dim a (10 ) As Integer
F or i=1 To 10
a (i ) =i
Next
Call swap (【 11 】 )
For i=1 To 10
Print a (i ) ;
Next
End Sub
Sub swap (b () As Integer )
n =U b ound (b )
For i=1 To n / 2
t =b (i )
b (i ) =b (n )
b (n ) =t
【 12 】
Next
End Sub
上述程序的功能是,通过调用过程 swap ,调换数组中数值的存放位置,即 a (1 ) 与 a (10 ) 的值互换, a (2 ) 与 a (9 ) 的值互换 , …… 。请填空。
第6题
有如下程序:
Private Sub Form_C1ick()
E=1:F=1
For j=1 To 3
E=E+F:F=F+E
Next
Print E;F
End Sub
该程序的输出结果是
A.6 6
B. 5 8
C. 13 21
D.34 55
第7题
(8 )有如下程序:
Private Sub Form_Click ()
n=10
i=0
Do
i=i+n
n=n-2
Loop While n>2
Print i
End Sub
程序运行后,单击窗体,输出结果为 【 10 】 。
第8题
在窗体上画了两个按钮控件Command1和Command2,有如下程序: Private Sub Command1_Click() Print "Visual"; End Sub Private Sub Command2_Click() Print "Basic"; End Sub Private Sub Form_Load() CommandCancel=True Command1.Cancel=True End Sub 执行程序后,按键盘Cancel键,在窗体上输出的结果是
A.Basic
B.Visual
C.Cancel
D.True
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!