更多"在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮"的相关试题:
[填空题]在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，输出结果是 【15】
Private Sub Command1_Click（ ）
Dim a(1 To 10)
Dim p(1 To 3)
k=5
For i = 1 To 10
a(i) = i
Next i
For i = 1 To 3
p(i) = a(i * i)
Next i
For i = 1 To 3
k=k+p(i) *2
Next i
Print k
End Sub
[单项选择]在窗体上画一个命令按钮，其名称为Command1。程序运行后，单击命令按钮，输出结果是( )。
Private Sub p1(n As Integer)
For i=n To 1 Step-1
x=String(i,"*")
Print x
Next i
End Sub
Private Sub Command1_Click（ ）
p1(3)
End Sub
A. ***
B. *
C. *
D. ******
[单项选择]在窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID As Integer Name As String * 20 End Type Private Sub Command1_Click( ) Dim MaxSize, NextChar, MyChar Open "d:/vb/tt. txt" For Input As #1 MaxSize = LOF(1) For NextChar = MaxSize To 1 Step - 1 Seek # 1, NextChar MyChar = Input(1, # 1) Next NextChar Print EOF(1) Close $1 End Sub 假设文件d:/vb/tt. txt 的内容为 Hello eveybody! 那么程序运行后，单击命令按钮，其输出结果为 ______。
A. True
B. False
C. 0
D. Null
[填空题]在窗体上画一个命令按钮，然后编写如下代码：
Private Type Record
R_ID As Integer
R_Name As String * 20
Ene Type
Private Sub Commandl_Click( )
Dim M _Sise, N_Char, M_Char
Open" c: /file. txt" For Input As #1
M_sise=LOF(1)
For N_Char = M_Sise To 1 Step - 1
Seek#1, Next Char
M_char = Input(1 ,#1)
Next
Print EOF(1)
Close#1
End Sub
程序运行后，单击命令按钮，其输出结果为 【15】 。
[单项选择]在窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID As Integer Name As String*20 End Type Private Sub Commandl_click（ ） Dim MaxSize，NextChar，MyChar Open "D:/temp/female.txt"For Input As #1 MaxSize=LOF(1) For NextChar=1 To Max Size Seek #1，Next Char MyChar=Input(1，#1) Next NextChar Print EOF(1) Close #1 End Sub 程序运行后，单击命令按钮，其输出结果为 ______。
A. True
B. False
C. 0
D. Null
[单项选择]窗体上画一个命令按钮，然后编写如下代码：
Private Type Record
ID As Integer
Name As String * 20
End Type
Private Sub command1 _ Click(
Open "c: /file. txt" for Input As
MaxSize = LOF (1)
for NextChar =MaxSize To Step-1
Seek #1, NextChar
MyChar=Input(1，#1)
Next NextChar
Print EOF(1)
Close #1
End Sub
程序运行后，单击命令按钮，其输出结果为______。
A. True
B. False
C. 0
D. Null
[单项选择]在窗体上画一个命令按钮，然后编写如下代码：
Private Type Record
ID As Integer
Name As String * 20
End Type
Private Sub Command1_Click（ ）
Dim MaxSize，NextChar，MyChar
Open"D:/temp/female.txt"For Input As # 1
Max Size=LOF(1)
For Next Char=1 To MaxSize
Seek # 1，NextChar
MyChar=Input(1，# 1)
Next NextChar
Print EOF(1)
Close # 1
End Sub
程序运行后，单击命令按钮，其输出结果为 ______。
A. True
B. False
C. 0
D. Null
[单项选择]在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command1_Click( ) Dim a As Integer，b As hiteger a=1 b=2 Print N(a，b) End Sub Function N(x As Integer，y As Integer)As Integer N=IIf(x>y，x，y) End Function 程序运行后，单击命令按钮，输出结果为
A. 1
B. 2
C. 5
D. 8
[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl Click（ ）
Do Until b＜0
a=InputBox("输入a的值")
a=Val(a)
b=InputBox("输入b的值")
b=Val(b)
a=a +b
Loop
Print a
End Sub
程序运行后，依次输入5，4，3，2，1，0，-1，-2，则输出结果是 【14】 。
