高中VB题目,求详解28.Subtest2() a = 12:b = 12:c = 5Label1.Caption= "
高中VB题目,求详解
28.Subtest2()
a = 12:b = 12:c = 5
Label1.Caption= ""
Label2.Caption= ""
If a> b Or Not b Label1.Caption = "monday"
Else
Label2.Caption = "tiger"
EndIf
Label3.Caption= Label1.Caption+ Label2.Caption
End sub
该程序段运行后,在标签Label3的Caption属性值是:
(A)"monday" (B)"tiger" (C)"mondaytiger" (D)""
29.Sub test3()
For i = 1 To 5 step 1
s = ""
For j = 1 To 2 * i - 1
s = Str(j) + s
Next j
List1.AddItem s
Next i
End Sub
该程序的运行后列表框输出的第三行是 ( )
(A)33333 (B)55555 (C)12345 (D)54321
30.Subtest4()
S=1
For i =19 To 0 Step -4
S = S + i
Next i
MsgBox (S)
End sub
该程序的运行结果是( )
(A)54 (B)55 (C)56 (D)57
31.下列程序运行后循环体的执行次数是()次
Sub test5()
s = 0:i=1
Do While s < = 10
i = i *2
s = s + i
Loop
End Sub
(A) 1 (B) 2 (C)3 (D)4