有如下程序： Private Sub Command1_Click（） F

1、有如下程序： Sub Filelnfo(file1) Dim f1,{f,s

有如下程序： Sub Filelnfo(file1) Dim f1,{f,s Set f1＝CreateObject("Scripting.FileSystemObject") Set f＝f1.GetFile(file1) s＝f.DateCreated MsgBox s End S...

2、对窗体编写如下代码： Option Base1 Private Sub F

对窗体编写如下代码：Option Base1Private Sub Form_Key Press（Key Ascii AsInteger）a=Array（237，126，87，48，498）m1=a（1）m2=1IfKey Ascii=13ThenForI=2To5Ifa（...

3、设有如下程序： Option Base 0 Private Sub For

设有如下程序：Option Base 0Private Sub Form_Click()Dim aDim i As Integera = Array(1,2,3,4,5,6,7,8,9)For i = 0 To 3Print a(5 – i);Next End S...

4、某人设计了如下程序用于计算并输出7!(7的阶乘)： Private Sub

某人设计了如下程序用于计算并输出7!(7的阶乘)： Private Sub Command1_Click t = 0 For k = 7 To 2 Step -1 t = t * k Next Print t End Sub 执行程...

5、在窗体上画一个命令按钮，然后编写如下代码： Private Sub Comm

在窗体上画一个命令按钮，然后编写如下代码： Private Sub Command1 Click() a&＝InputBox("请输入第一个数") b&=InputBox("请输入第二个数") Print b&+a& End Sub ...

6、设有如下程序： Private Sub Form_Click() A=1 F

设有如下程序： Private Sub Form_Click() A=1 For i＝1 To 3 Select Case i Case 1,3 A＝A+1 Case 2,4 A＝A+2 End Select Next i Print A End Sub 程序运行后，单击窗体，则在窗体上显示的内容是A6B5C4D3