11.上一题

输入答案，中间不含空格:

12.以下程序段产生100个1~4之间的随机整数，并进行统计。数组元素S(i)(i=1,2,3,4)的值表示等于i的随机数的个数，要求输出如下格式： S(1)=. . . S(2)=. . . S(3)=. . . S(4)=. . . 将程序补充完整。 Dim S(4) As Integer Randomize For I=1 To 100 X=Int(Rnd * 4+1) S(X)=S(X)+1 Next I For I=1 To 4 ____ Next I

输入答案，中间不含空格:

13.设工程中有两个窗体Form1、Form2，一个标准模块Module1，设在Form2的代码中定义了以下过程： Sub aaa(x,y,z) z=x^2+y^2 End Sub 在Mobule1中定义了以下过程： Sub bbb(x,y,z) z=x^3+y^3 End Sub 在Form1中单击命令按钮Commandl时，调用以上过程计算两个数的平方和与立方和。并分别将结果显示在文本框Text3和Text4中，请在以下程序段中写出相应的调用语句。 Private Sub Commandl_Click( ) a=val(Text1.Text) b=val(Text2.Text) Call ____ Text3.Text=cl ____ Text4.Text=c2 End Sub

输入答案，中间不含空格:

14.上一题

输入答案，中间不含空格:

15.打开顺序文件StuData.txt，读取文件中的数据，并将数据显示在窗体上。 Private Sub Form_Click( ) Open"C:StuData.txt"For Input As #1 Do While While Not EOF(1) ____,StuNo,StuName,StuEng Loop Close #1 End Sub

输入答案，中间不含空格: