单选题下列程序执行后,变量X的值为( )。 Dim f1, b, c, d As Single Dim X As Single f1=10 b=30 C=400 If b>f1 Then d=f1:f1=b:b=d EndIf If b>e Then x=b ElseIf f1>c Then x=c Else x=a EndIf
单选题以下程序运行后,输出结果是{{U}} {{/U}}。 For i=1 To
3 Print Tab(3*j);2*(j-1) Next j
Print
A. 1 3 25
B. 19 25
C. 0 2 4
D. 1 3 5
单选题文本框接受的最长字符数由文本框的( )属性确定。
单选题在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim x As Integer,y As Integer x = 41: y = 54 Call sub1(x,y) x = x + 1 Print x; y End Sub Private Sub sub1(n As Integer, ByVal m As Integer) n=n Mod 10 m=m/10 End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是
单选题对于复选框来说,Value属性可以设置为0、1或2。其中1表示选中该复选框。故B选项正确
单选题设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图5所示的文件对话框:PrivateSubCommand1_Click()CD1.DialogTitle="打开文件"CD1.InitDir="C:"CD1.Filter="所有文件|*.*|Word文档|*.doc|文本文件|*.txt:"CD1.FileName=""CD1.Aetion=1IfCD1.FileName=""ThenPrint"未打开文件"ElsePrint"要打开文件"&CD1.FileNameEndIfEndSub但实际显示的对话框中列出了C:/下的所有文件和文件夹,“文件类型”列表框中显示的是“所有文件”。所以,需要修改程序,下面的修改方案中正确的是A.把CD1.Action=1改为CD1.Action=2B.把“CD1.Filter=”后面的字符串中的“所有文件”改为“文本文件”C.在语句CD1.Action=1的前面添加:CD1.FilterIndex=3D.把CD1.FileName=""改为CD1.FileName="文本文件"
单选题阅读下列程序:
Private Sub Command1_Click()
Dim i As Integer,k As Integer
k=2
For i=1 To 3
Print H(k);
Next i
End Sub
Function H(j As Integer)
a=0
Static b
a=a+1
b=b+1
H=a*b+j
End Function
程序运行后,单击命令按钮输出结果是( )。
单选题以下语句的输出结果是(在立即窗口中)
a=27 <CR> (<CR>为回车,Δ表示空格,下同)
b=65 <CR>
Print a:b <CR>
单选题在Visual Basic中,要使一个窗体不可见,但不从内存中释放,应使用的语句是( )
单选题关于多重窗体应用程序,以下描述中不正确的是________。
单选题设窗体上有一个名为Text1的文本框,并编写如下程序: Private Sub Form_load0 Show Text1.Text=“”:Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,_shift As integer.X As Single,Y As Integer) Print”程序设计” End Sub Private Sub Text_KeyDown(keyCod As Integer,_shift As Integer) Print”Visual Basic”; End Sub 程序运行后,如果在文本框中输入字母“a”,然后单击窗体,则在窗体上显示的内容是
单选题下列语句: X=5 If X>0 Then Y=5
Y=10 运行程序后,下列叙述中正确的是 ______。
A.变量Y的值是5
B.变量Y的值是10
C.变量X的值是10
D.变量Y的值无法确定
单选题设窗体上有名称为Optionl的单选按钮,且程序中有语句:If Optionl.Value=True Then下面语句审与该语句丕等俭的是( )。
单选题命令按钮Command1的Caption属性为“退出(x)”,要将命令按钮的快捷键设为“Alt+ X”,应修改Caption属性为 ______。
单选题下列关于InputBox函数的叙述中,错误的是
单选题在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序: Private Sub Command1_Click() Dim x, Y, z As Integer x=5 y=7 z=0 Text1. Text="" Call P1(x, y, z) Text1. Text=Str(z) End Sub Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer) c=a+b End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是______。
单选题假定有如下的窗体事件过程: Private Sub Form_Click() a$="MicrosoftVisual Basic" b$=Right(a$,5) c$=Mid(a$,1,9) MsgBox a$,34,b$,c$,5 End Sub 程序运行后,单击窗体,则在弹出的信息框的标题栏中显示的信息是
单选题下列程序段的执行结果为( )。 a=0:b=0 For i=-1 To-2 Step-1 For j=-1 To-2 Step-1 b=b+1 Next i a=a+1 Next i Print a;b A) 24 B) -2 2 C) 4 2 D) 2 3
单选题下列程序段的执行结果为 ______。
X=5
Y=-20
If Not X>0 Then X=Y-3 Else Y=X+3
Print X-Y;Y-X
单选题在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明:PrivateTypePersonnameAsString*8majorAsString*20EndTypeDimpAsPerson设文本框中的数据已正确地赋值给Person类型的变量p,当单击“保存”按钮时,能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是____。
