下列程序实现的功能是：当在窗体上单击时，将随机产生100个3位数，并把它们写到D盘根目录下的文件myfile1．Dat中。 Private Sub Form_Click（)Dim k As IntegerOpen 【13】 RandomizeFor i=1 To 10 k=100+Int（899*Rnd) 【14】 Next i 【15】 End Sub

程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是（）。 下列程序实现的功能是：当在窗体上单击时，将在窗体上输出c:a1．txt文件中的所有小写字母。 Private Sub Form_Click（)Dim Ch As String*1Open"c:a1．txt"For Input As 10Do While 【13】 Ch=Input（1，10) If 【14】 Then Print Ch； End IfLoop 【15】 End Sub 设有如下程序：以上程序的功能是（）。程序运行后，单击窗体，输出结果为（）。 下列程序实现的功能是：当在窗体上单击时，将输出a1．txt 文件中的数字字符的个数。Private Sub form_ Click（) Dim Ch As String * 1 Dim n As Integer Open "c:a1. txt" for Input As 10 do while 【7】 Ch = Input（1, 10)if 【8】 then n=n+1End if Loop 【9 单击窗体上的关闭按钮，将触发____事件。 运行下列程序，单击窗体后输出的结果是( )。 下列程序的功能是：单击窗体时将随机生成10个0～99之间的随机数，并赋值给数组A，然后利用选择法排序；并把排序后的结果输出。 Private Sub Form_Click（) Dim A（9) As Integer,i As Integer Dim j As Integer,k As Integer Randomize For i=0 To 9 A（i)=Int（100*Rnd) Next i F 应用程序运行时，如果通过单击使窗体成为活动窗体，此时将触发事件（） 下列程序的功能是：单击窗体时将随机生成10个1～100之间的数，求出它们的总和及平均数。请填空。 Option Base 1 Private Sub Form_Click（) Dim a（10)As Integer,i As Integer Dim sum As Integer,aver As Single 【12】 For i=1 To 10a（i)=Int（100*Rnd)+1sum=sum+ 下列程序的功能是：当发生窗体的单击事件后，将在窗体上显示“1!+2!+3!+…+10!”的和。 Private Sub Form_Click（) Dim s As Long,i As Integer s=0 For i=1 To 10s=s+ 【11】 Next i Print s End Sub Private Function fact（ByVal n As Integer)As LongDi 工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是：窗体文件的程序代码是：运行程序，单击窗体上的命令按钮，则在窗体上显示的是（） 编写如下事件过程:程序运行后,单击窗体,则其上显示的内容是（） 程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是( )。 Private Sub Command1_Click() Dim i As Integer，a(9)As Integer For i=9 To 0 Step-1a(i)=10-i Next i Print a(2); a(5)；a(8) End Sub 阅读程序：程序运行后单击窗体，输出结果是（） 单击窗体上的关闭按钮时，触发的事件是 【7】 。 在窗体中添加一个通用对话框Commondialog1和一个命令按钮Command1，当单击按钮时，打开颜色对话框，能实现此功能的程序段是 设有如下程序：程序运行后单击窗体，输出结果是（） 当用户在窗体上单击鼠标时，不会触发的事件是（） 有如下程序:Form1.ClsForr=35To85Step25Circle（300,240）,rNextr单击窗体后,窗体上显示的是（） 窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：运行程序，单击命令按钮Command1，窗体上显示的是（）