单选题复选框是否被选中,取决于复选框的( )。
单选题在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程:
Private Sub Commandl_Click() Dim i As Integer,n As
Integer For i-0 To 50 i=i+3
n=n+1 If i>10 Then Exit For Next
Text1.Text=Str (n) End Sub
程序运行后,单击命令按钮,在文本框中显示的值是______。
A.2
B.3
C.4
D.5
单选题在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) Dim x(5)As String Dim n As Integer For n=4 To 0 Step-i x(n)=n+1 Print x(n); Next n End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是______。
单选题下列说法中正确的是
为了装入一个Visual Basic应用程序,应当
单选题阅读程序: Sub Form_Click{{U}} {{/U}}
a = 10: b = 15: c = 20: d = 25 Print a; Spc(5); b;
Spc(7); c Print a; Space(8); b; Space(5); c
Print c; Spc(1); "+"; Spc(1); d; Print Spc(1); " = ";
Spc(1); c + d End Sub
运行上面的程序,单击窗体后,第三行输出结果是________。
A. ■20■+■25■=■45■
B. 20+25=45
C. 10 15 20
D. 20 25 45
单选题假定建立了一个名为Commandl的命令按钮数组,则以下说法中错误的是______。
单选题下面关于鼠标拖放操作的叙述中错误的是
单选题下面4个CT函数中是用来判断用户输入的数是否为奇数的,是奇数的返回1,否则返回0,其中正确的是( )。
单选题有人编写了如下程序:
Private Sub Form_Click()
Dim s As Integer, x As integer
s=0
x=0
Do While s=10000
x=x+1
s=s+x^2
Loop
Print s
End Sub
上述程序的功能是:计算s=1+2
2
+3
2
+…+n
2
+…,直到s>10000为止。程序运行后,发现得不到正确的结果,必须进行修改。下列修改中正确的是______。
单选题以下选项中,不合法的Visual Basic的变量名是
单选题下面程序的功能是:先输入一个字符串,再输入3个字符,然后统计这3个字符分别在字符串中出现的次数并输出Private Sub Command1_Click() Dim ch$(3), str$, prompt$, count%(3) str = InputBox("请输入一个字符串") For k = 1 To 3 prompt = "请输入要查找的第" "出现的次数为"; count(k) Next kEnd Sub程序不完整,在横线上应该填写的是
单选题在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim i As Integer,n As Integer
For i=0 To 50
1=1+3
n=n+1
If i>10 Then Exit For
Next
Textl.Text=Str(n)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是【 】
单选题下面程序计算并输出的是( )。Private Sub Command1_Click()Num=10:Sum=0DoSum=Sum+Num*Num*NumNum=Num-1Loop Until Num<=0Print SumEnd Sub
单选题设有如下通用过程: Public Function Fun(xStr As String)As
String Dim tStr As String,strL As Integer
tStr="" strL=Len(xStr) i=strL/2
Do While i<=strL tStr=tStr&Mid(xStr,i+1,1)
i=i+1 Loop Fun=tStr&tStr
End Function
在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮。然后编写如下的事件过程: Private Sub
Commandl_Click() Dim Sl As String
S1="ABCDEF" Text1.Text=LCase(Fun(S1)) End
Sub 程序运行后,单击命令按钮,文本框中显示的是______。
A.ABCDEF
B.abcdef
C.defdef
D.defabc
单选题计算z的值,当x大于等于y时,z=x;否则z=y。下列语句中错误的是______。
单选题如果要将窗体中的某个命令按钮设置成无效状态,应该设置命令按钮的{{U}} {{/U}}属性。
A.Value
B.Visible
C.Enabled
D.Default
单选题在窗体上画一个名称为Command1的命按钮,然后编写如下事件过程: Private Sub Command1_Click( ) Static x As Integer Cls For i=1 To 2 y=y+x x=x+2 Next Print x,y End sub 程序运行后,连续三次单击Command1按钮后,窗体上显示的是
单选题编写如下事件过程: Private Sub Form MouseDown(Button As Integer,Shift As Integer,X As Single, Y As Single) If Shift=6 And Button=2 Then Print "BBBB" End If End Sub 程序运行后,为了在窗体上输出“BBBB”,应执行的操作为
单选题执行如下语句: Print"计算机等级考试"; Print"(二级)", Print"Visual Basic"运行后输出结果是______。
单选题设有数组定义语句:Dim a(5)As Integer,List1为列表框控件。下列给数组元素赋值的语句错误的是( ) A.a(3)=3 B.a(3)=InputBox("input data") C.a(3)=List1.Listlndex D.a=Array(1,2,3,4,5,6)
