题目内容
（请给出正确答案）
Private Sub Commandl_CUck()
CommonDialog1.______="打开文件"
CommonDialog1.Filter="All Files(*.*)|*.*"
CommonDialog1.InitDir="C:\"
CommonDialog1.ShowOpen
End Sub
该程序的
如果结果不匹配，请 联系老师 获取答案
更多“在窗体上画1个命令按钮和1个通用对话框，其名称分别为Comm…”相关的问题
在窗体上画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
程序
在窗体上画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 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的命令按钮，然后编写如下事件过程
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 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个命令按钮，并编写如下事件过程：
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个命令按钮，并编写如下事件过程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
在窗体上画1个命令按钮，并编写如下事件过程：
Private Sub Command1 Click（）
Dim a(3，3)
For m=1 To 3
For 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
Next m
End Sub
运行程序，单击命令按钮，窗体上显示的内容为（）。
A.2 0 0
0 4 0
0 0 6
B.2 0 4
0 4 0
4 0 6
C.2 3 0
3 4 0
0 0 6
D.2 0 0
0 4 5
0 5 6
在窗体上画1个命令按钮，名称为Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox("请输入：") If Flag Then Printf(intNum) End If End Sub Function f(x As Integer)As Integer If X＜10 Then Y=X Else Y=X+10 End If f=Y End Function Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Flag=True End Sub 运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为()。
A．0
B．5
C．15
D．无任何输出
