题目内容
（请给出正确答案）
在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：
PriVate Sub Commandl_CUck()
Dimalt(1 To 100)As Integer
Fori=1 To 100
arr(i)=Int(Rnd*1000)
Nexti
Max=arr(1)
Min=arr(1)
Fori=1 To 100
If [12] Then
Max=arr(i)
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程： PriVate Sub Commandl_CUck（) D”相关的问题
在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如 Private Sub Command1_Click() CommonDialogl. Flags = vbOFNHideReadOnly CommonDialogl. Filter =" All Files(*.*)|*. * |Text Files(*.txt)|*. txt CommonDialogl. FilterIndex = 1 CommonDialogl. ShowOpen MsgBox CommonDialogl. FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是
A．All Files(*.*)
B．Text Files(*.txt)
C．Batch Files(*.bat)
D．All Files(*. *)|Text Files(*.txt)
在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：
Private Sub Command1_Click（）
Dim a（10）As Integer
Dim x As Integer
For i=1 To 10
a（i）=8+i
Next
x=2
Print a（f（x）+x）
End Sub
Function f（x As Integer）
x=x+3
f=x
End Function
程序运行后，单击命令按钮，输出结果为（）。
A．12
B．15
C．17
D．18
在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click（）
Dim arr（1 To 100）As Integer
For i=1 To 100
arr（i）=Int（Rnd*1000）
Next i
Max=arr（1）
Min=arr（1）
For i=1 To 100
If________Then
Max=arr（i）
End If
If________Then
Min=arr（i）
End If
Next i
Print"Max="；Max，"Min="；Min
End Sub
程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组arr中，然后查找并输出这100个数中的最大值Max和最小值Min，请填空。
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() a = 12345 Print Format$(a, "000.00") End Sub 程序运行后，单击命令按钮，窗体上显示的是
A． 123.45
B．12345.00
C．12345
D．00123.45
在窗体上画一个命令按钮，其名称为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 SubA)
*B)C)D)
A．*** ** *
B．* ** ****
C．* * *
D．******
（7）在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程：
Private Sub Command1_Click()
a$="National Computer Rank Examination"
n=Len(a$)
s=0
For i=1 To n
b$=Mid(a$, i, 1)
If b$="n" Then
s=s+1
End If
Next i
Print s
End Sub
程序运行后，单击命令按钮，输出结果是 【7】 。
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() x=-3 If Sgn(x)Then y=Sgn(x^2) Else y=Sgn(x) End If Print y End Sub 程序运行后，单击命令按钮，其输出结果为 ______。
A．-3
B．9
C．-1
D．1
在窗体上画一个命令按钮，其名称为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．******
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程： Private Sub Commandl_click() Dim i As Integer,X As Integer For i=1 To 6 If i=1 Then x=i If i＜=4 Then x=x+1 Else x=x+2 End If Next i Print x End Sub 程序运行后，单击命令按钮，其输出结果为______。
A． 9
B．6
C．12
D．15
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：
Private Sub Corrtmandl Click()
a$=”Nationalcomputer rank Examination”
n=Len(a$)
S=0
For i=1 To n
b$=Mid(a$，i，1)
Ifb$=”n”Then
s=s+1
End If
Next i
Print s
End Sub
程序运行后，单击命令按钮，输出结果是【 】。
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
