[单项选择]编写如下事件过程：
Option Explicit
Private Sub Form_Click（　）
Dim Str As String,i As Integer
Open"examp" For Output As#1
For i=1 To 5
Str=Chr(i+65)
Print#1,Str;
Next i
Close 1
Open"examp" For Input As#2
Str=Input $ (5, #2)
Print Str;
Close #2
End Sub
程序运行后，单击窗体，则窗体上显示的内容是______。
A. ABCDE
B. BCDEF
C. bcdef
D. 65

更多"编写如下事件过程： Option Explicit Private"的相关试题:

[单项选择]编写如下事件过程：
Private Sub Form KeyDown (KeyCode As Integer, Shift As Integer)
Print Chr (KeyCode)
End Sub
Private Sub Form_KeyPress( KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
在一般情况下(即不按住Shift键和锁定大写键时)运行程序，若按“T”键，则程序输出的结果是
A. T
B. t
C. T
D. t

查看答案

[单项选择]编写如下事件过程：
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，应执行的操作为______ 。
A. 同时按下Shift 键和鼠标左键
B. 同时按下Ctrl、Alt 键和鼠标右键
C. 同时按下Shift 键和鼠标右键
D. 同时按下Ctrl、Alt 键和鼠标左键

查看答案

[单项选择]编写如下事件过程和函数过程：
Private Sub Form_Click（　）
Dim num（　） To 6)As Single
num(1)=103:num(2):190:num(3)=0
num(4)=32:num(5)=-56:num(6)=100
Print
Print p2(6,num（　）)
End Sub
Private Function p2(ByVal n As Integer,number（　） As Single)As Integer
p2=number(1)
For i=2 To n
If number(j)＜p2 Then p2=number(j)
Next i
End Function
程序运行后窗体上显示的值是( )。
A. -56
B. 0
C. 103
D. 190

查看答案

[单项选择]编写如下事件过程：
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”，应执行的操作为______。
A. 同时按下Shift键和鼠标左键
B. 同时按下Shift键和鼠标右键
C. 同时按下Ctrl、Alt键和鼠标左键
D. 同时按下Ctrl、Alt键和鼠标右键

查看答案

[单项选择]编写如下事件过程：
Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)
If(Button And 3)=3 Then
Print."AAAA"
End If
End Sub
程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为 ______。
A. 左
B. 右
C. 同时按下左、右
D. 按什么键都不显示

查看答案

[单项选择]编写如下事件过程和函数过程：
Private Sub Form_Chck（　）
DimBum(1 To 6)As Single
num(1)=103:num(2)=190:num(3)=0
Bum(4)=32:num(5)=-56:num(6)=100
Print
Pdnt p2(6,hum（　）)
End Sub
Private Function p2(ByVal n As Integer,number（　）As Single)As Integer
p2=number(1)
Forj=2 Ton
lfnumber(j)＜p2 Thenp2=number(j)
Next j
End Function
程序运行后窗体上显示的值是( )。
A. -56
B. 0
C. 103
D. 190

查看答案

[单项选择]对窗体编写如下事件过程：
Private Sub Form_MouseDown(Button As Integer，Shift As Integer,X As Single，
Y As Single)
If Button=2 Then
Print "AAAAA"
End If
End Sub
Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，
Y As Single)
Print "BBBBB"
End Sub
程序运行后，如果单击鼠标右键，则输出结果为 ______ 。
A. AAAAA
B. BBBBB
C. AAAAA
D. BBBBBAAAAA

查看答案

[填空题]在窗体上画一个命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_click（　） Dim a a=Array(1，2，3，4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行一面的程序，单击命令按钮，其输出结果是【15】。

查看答案

[单项选择]把窗体的KeyPreview属性设置为True，然后编写如下事件过程：
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim ch As String
ch=Chr(KeyAscii)
KeyAscii=Ase(UCase(ch))
Print Chr(KeyAscii+2)
End Sub
程序运行后，按键盘上的“A”键，则在窗体上显示的内容是( )
A. A
B. B
C. C
D. D

查看答案

[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl Click（　）
Dim a（　）
a＝Array(1，3，5，7)
s=O
For i＝1 TO 3
S=S*10十a(i)
Next i
PrInt S
End Sub
程序运行后，输出结果为( )。
A. 135
B. 357
C. 531
D. 753

查看答案

[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click( )
Dim a
a=Array(1，2，3，4)
j=1
For i=4 To 1 Step -1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是______。
A. 4321
B. 12
C. 34
D. 1234

查看答案

[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click（　）
Do Until b a＝In put Box("输入a的值")
a＝Val(a)
b＝Input Box("输入b的值")
b=Val(b)
a=a＋b
Loop
Print a
End Sub
程序运行后，依次输入5，4，3，2，1，0，-1，-2，则输出结果是【14】。

查看答案

[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1 Click（　）
x=0
Do Until x=-1
a=InputBox("请输入A的值")
a=Val(a)
b=lnputBox("请输人B的值")
b=Val(b)
x=InputBox("请输入x的值")
x=Val(x)
a=a+b+x
Loop
Print a
End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为( )
A. 2
B. 3
C. 14
D. 15

查看答案

[填空题]在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1 Click（　） Do While b＞＝0 a＝Val(InputBox("请输入a的值")) b＝Val(InputBox("请输入b的值")) c＝a+b Loop MsgBox c End Sub 程序运行后，依次输入3,2,1,0,-1,-2，则输出结果是______。

查看答案

我来回答:

提交