更多"有如下程序，运行后输出的是( )。 Option Base 1 "的相关试题:
[单项选择]以下程序运行后输出的结果是 ______。
Option Base 1
Private Sub Form_Click（ ）
Dim A(20)
For K=1 To 20
A(K)=K^2
Next K
Print A(K)
End Sub
A. 20
B. 441
C. 400
D. 出错信息
[单项选择]执行以下语句过程，在窗体上显示的内容是
Option Base 0
Private Sub Command3_Click（ ）
Dim d
d=Array("a"，"b"，"c"，"d")
Print d(1);d(3)
End Sub
A. ab
B. bd
C. ac
D. 出错
[单项选择]下列程序运行后会出现错误的提示为
Private Sub Command1_Click（ ）
Dim i AS Integer
Dim x
x=Array(2，3， 4， 5， 6， 7)
For Each i In x
Print i；
Next i
End Sub
A. 数组的下标超界
B. For Each数组的控制变量必须为变体变量
C. 关键字Each的位子不对
D. x应该定义成数组
[单项选择]下列程序段运行后窗体上输出结果为( )。
Private Sub Command1 Click（ ）
a=5：b=4：c=3：d=2
X=3＞2*b Or a=c And b＜＞C Or c＞d
Print X
End Sub
A. 1
B. True
C. False
D. 2
[单项选择]下列程序运行后在立即窗口输出的结果是( )。
Private Sub Form_Click（ ）
x="a":y="b"
z=1:u=2
Debug.Print x;y,z;u
Debug.Print z;x,y;u
End Sub
A. ab 12
B. ab 12
C. ab 12
D. ab 12
[单项选择]设有如下程序：
Private Sub search(a(
)As Variant, ByVal key As Variant, index%)
Dim I%
For I = LBound
A. To UBound(a)
[单项选择]有如下程序，输出结果为( )。
Private Sub Form_Activate（ ）
Dima
a=Array(1,2,3,4,5)
Fori=LBound(a)To UBound(a)
a(i)=i*a(i)
Nexti
Printi，LBound(a)，UBound(a)，a(i)
End Sub
A. 4 0 4 25
B. 5 0 4 25
C. 不确定
D. 程序出错
[单项选择]有如下程序：
Sub Filelnfo(file1)
Dim f1,f,s
Set f1＝CreateObject("Scripting.FileSystemObject")
Set f＝f1.GetFile(file1)
s＝f.DateCreated
MsgBox s
End Sub
这个子程序的作用是
A. 创建一个新文件file1
B. 在消息对话框中显示文件file1的内容
C. 在消息对话框中显示文件的所有信息
D. 在消息对话框中显示文件的创建日期
[单项选择]编写如下程序：
Private Sub Form Click（ ）
a$=: "4321": b$="abcd"
For 3=1 To 4
Print Mid$(a$，5-j，1)+Nid$(b$, j, 1)；
Next j
Print
End Sub
程序运行后，单击窗体，其输出结果为 ______。
A. alb2c3d4
B. b4c3d2el
C. eld2c3b4
D. la2b3c4d
[单项选择]编写如下程序：
Private Sub Form_Click（ ）
a$="54321":b$="abcde"
For j=1 To 5
Print Mid$(a$，6-j，1)+Mid$(b$，j，1)；
Next j
Print
End Sub
程序运行后，单击窗体，其输出结果为 ______。
A. a1b2c3d45e
B. a5b4c3d2e1
C. e1d2c3b4a5
D. 1a2b3c4d5e
[单项选择]在窗体中添加一个命令按钮，名称为Commandl，然后编写如下程序：
Private Sub Command1_Click（ ）
Dim a As Integer，b As String，C As Integer
a = 1234 : b = Str(
[单项选择]若希望下列的程序运行后输出25，程序空白处的正确选项是( )。
main（ ）
int id=50，a[]=7, 4, 10, 5, 8;
for( )
j+=a[i];
printf("%d", j-40);
A. i=1; i＜4; ++i
B. i=1; i＜3; ++i
C. i=4; i＞2; i==
D. i=2; i＜4; ++i
[单项选择]若看到程序有如下事件过程，则可以肯定的是，当程序运行时
Private Sub Click_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "VB Program"
End Sub
A. 若用鼠标左键单击名称为“Command1”的命令按钮，则执行此过程
B. 若用鼠标左键单击名称为“MouseDown”的命令按钮，则执行此过程
C. 若用鼠标右键单击名称为“MouseDown”的命令按钮时，则执行此过程
D. 若用鼠标左键或右键单击名称为“Click”的控件时，则执行此过程
[单项选择]窗体上有2个名称分别为Text1和Text2的文本框。编写如下程序： Private Sub Form_Load（ ） Private Sub Command 1_Click（ ） Text1．Text="" Print Text1．Text+Text2．Text Text2．Text="" End Sub End Sub 程序运行后，在Text1和Text2中依次输入100和200，单击Command 1，则输出结果为
A. 100
B. 200
C. 300
D. 100200
[单项选择]程序段如下：
Private Sub Command1_ Click（ ）
a = 0
for 1=15 To 15 Step- 2
a = a +1
Next I
Print a, I
End Sub
发生Command 1的单击事件后，程序的输出结果是 ______。
A. 0 13
B. 15 13
C. 0 15
D. 15 15
[单项选择]下列代码运行后输出结果是
Ｄefstr B-E
Ｐrivate Sub Command1_Click（ ）
Ｂ$="123"
Ｃ="456"
Ｐrint B+C$
Ｅnd Sub
A. 123456
B. "123456"
C. 123+"456"
D. 显示出错信
[单项选择]下面过程运行后，变量N的值为( )。 PRIVATE SUB MAINSUB( ) DIM N AS INTEGER N=9 CALL GET. DATA(N) END SUB PRIVATE SUB GETDATA(BYREF M AS INTEGER) M=M*3+SC-N(-9) END SUB
A. 25
B. 26
C. 27
D. 28
[单项选择]在窗体上画一个文本框，然后编写如下事件过程。当该程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为 ______。
Private Sub Text1_KeyPress＜KeyAscii As Integer)
Dim char as String
char=Chr(KeyAscii)
Text1.Text=String(5，KeyAscii)
End Sub
A. aaaaa
B. AAAAA
C. aaaaaa
D. AAAAAA
