题目内容
（请给出正确答案）
下列事件过程：
Private Sub Command1_Click()
CommonDialog1. 【 12 】 =" 打开文件 "
CommonDialog1.Filter="All Files(*.*)|*.*"
CommonDialog1.InitDir="C :\ "
CommonDialog1.ShowOpen
End Sub
该程序的功能是 ： 程序运行后 ， 单击命令按钮 ， 将显示 “ 打开 ” 文件对话框 ， 其标题是 “ 打开文件 ” ，在 “ 文件类型 ” 栏内显示 “ AIl Files(*.*) ” ，并显示 C 盘根目录下的所有文件，请填空。
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“（10 ） 在窗体上画 1 个命令按钮和 1 个通用对话框 ， 其名称分别为 Command1 和 CommonDialog1 ，”相关的问题
在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：
Dim SaveAll As String
Private Sub Command1_Click（）
Text1.Text=Left（UCase（SaveAll），4）
End Sub
Private Sub Text1_KeyPress（KeyAscii As Integer）
SaveAll=SaveAll+Chr（KeyAscii）
End Sub
程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是______。
在窗体上画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个命令按钮和1个文本框，其名称分别为Commandl和Textl，然后编写如下代码：
Dim Save All As String
Private Sub Commandl_C1iCk()
Text1.Text=Left(UCase(SaveAU)，4)
End Sub
Private Sub Textl_KeyPress(KeyAscii As Intege)
SaveA11=Save All+Chr(KeyAscii)
End Sub
程序
3在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Text1)，然后编写如下事件过程： Private Sub Commandl_Click() x=Val(Text1.Text) SelectCaseX Case 1，3 y=X*X CaseIS＞=10，IS＜=-10 y=X Case-10 To 10 y=-X End Select End S
A．执行y=x*x
B．执行y=-x
C．先执行y=x*x，再执行y=-x
D．程序出错
在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() a=0 For i=1 To 2 For j=1 To 4 If j Mod 2＜＞0 Then a=a-1 End If a=a＋1 Next j Next i Print a EndSub 程序运行后，单击命令按钮，输出结果是______。
A．0
B．2
C．3
D．4
在窗体上画1个命令按钮，并编写如下事件过程：
Private Sub Command1-Click()
For i=5 To 1 Step-0．8
Print Int(i)；
Next i
End Sub
运行程序，单击命令按钮，窗体上显示的内容为
A．5 4 3 2 1 1
B．5 4 3 2 1
C．4 3 2 1 1
D．4 4 3 2 1 l
在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程
Option Base 1
Pribate Sub Command1_Click（）
Dim a（5.5） As Integer
For i=1 To 5
a（I,j）*5\10
Next j
Next i
S=0
For i=1 To 5
S=s+a（i,i）
Next i
Print s
End Sub
程序运行后，单击命令按钮，输出结果是（）。
A．15
B．13
C．11
D．9
在窗体上画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个命令按钮和1个文本框，其名称分别为Commandl和Textl，再编写如下程序：
Dim 88 As String
Private Sub Textl—KeyPress(KeyAscii As Integer)
If Chr(KeyAscii)＜＞””Then ss=ss+Chr(KeyAscii)
End Sub
Private Sub Commandl_Click()
Dim m As String，i As Integer
For i=ten(ss)To 1 Step-1
Ill=m+Mid(88,，i，1)
Next
Textl．Text=UCase(n1)
End Sub
运行程序后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中最示的是
A．NUMBER 100
B．REBMUN
C．REBMUN 100
D．001 REBMUN
在窗体上画1个名称为Command1的命令按钮，然后编写下列程序：
Private Sub Command1_Click（）
Print fun("ABCDEFG")
End Sub
Function fun(st As String)As string
stlen=Len(st)
temp=""
For k=1 To stlen／2
temp=temp+Mid(st，k，1)+Mid(st，stlen-k+1，1)
Next k
fun=temp
End Function
程序运行时，单击命令按钮，则在窗体上显示的是（）。
A.ABCDEFG
B.AGBFCE
C.GFEDCBA
D.AGBFCED
在窗体上画1个命令按钮，并编写如下事件过程i
Private Sub Commandl—Click()
Dim a(3，3)
For m=1 T0 3
F0r n=1 To 3
If n=m Or n=4-m Then
a(m，n)=m+n
Else
a(m，n)：0
End If
Print a(m，n)；
Next n
Prim
Next m
End Sub
运行程序，单击命令按钮，窗体上显示的内容为
A．2 0 0
B．2 0 4
C．2 3 0
D．2 0 0
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
