跟VisualBasic程序设计相关题目有哪些
-
下列程序段的运行结果是（）。Dim A As Integer , B As Integer A = 15 B = 4 Print 4 + A B
A.7
B.-7
C.75
D.8
-
执行下面程序段后，输出的结果为（）。 Dim a(10, 10) As Integer For i = 2 To 4 For j = 4 To 5 a(i, j) = i * j Next j Next i Print a(2, 5) + a(3, 4) + a(4, 5)
A. 22
B. 42
C. 32
D. 52
-
刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）
A.单选按钮
B.图片框
C.普通对话框
D.文本框
-
要获得当前驱动器，应使用驱动器列表框的属性为（）。
A.Path
B.FilePath
C.Drive
D.Change
-
下面程序：Function a(x) Static b As Integer b = b + x ^ 2 Print bEnd Function Private Sub Command1_Click（） Dim c% c = a(2)End Sub单击两次命令按钮，第二次显示的结果是（）。
A. 2
B. 4
C. 6
D. 8
-
在窗体上画一个命令按钮(名称为Command1)，并编写如下代码：Function Fun1(ByVal a As Integer, b As Integer) As Integer Dim t As Integer t = a C b b = t + a Fun1 = t + bEnd Function Private Sub Command1_Click（） Dim x As Integer x = 10 Print Fun1(Fun1(x, (Fun1(x, x C 1))), x C 1)End Sub程序运行后，单击命令按钮，输出结果是（）。
A. 10
B. 0
C. 11
D. 21
-
在窗体上画一个通用对话框，其名称为CommonDialog1，然后添加一个命令按钮，并编写如下事件过程：Private Sub Command1_Click（）CommonDialog1.Filter = “all files(.)|.|text files|.txt|bat files(.bat)|.bat”CommonDialog1.filterIndex = 2 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileNameEnd Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是（）：
A.All Files(.)
B.Text Files(.txt)
C.Bath Files(*.bat)
D.不确定
-
在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview设置为True（在激活对象上的控件键盘事件之前，优先激活键盘事件,即Form优先）然后编写如下代码：Dim SaveAll As StringPrivate Sub Command1_Click（）Text1.Text=Ucase(SaveAll)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)SaveAll= SaveAll+Chr(KeyAscii)End Sub程序运行后，在键盘上输入“abcdefg”,单击命令按钮，则文本框显示为（）。
A.abcdefg
B.不显示任何信息
C.ABCDEFG
D.出错
-
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 IfEnd Sub程序运行后，为在窗体上输出“BBBB”，应执行操作为（）。
A.同时按下Shift和鼠标左键
B.同时按下Shift和鼠标右键
C.同时按下Ctrl、Alt和鼠标左键
D.同时按下Ctrl、Alt和鼠标右键
-
在窗体上建立一个通用对话框，名称为 CommonDialog1，用下面的语句可以建立一个对话框，CommonDialog1.Action=2与该语句等价的语句是（）：
A.CommonDialog1.ShowOpen
B.CommonDialog1.ShowSave
C.CommonDialog1.ShowColor
D.CommonDialog1.ShowFont