填空题

下面的程序的作用是利用随机函数产生10个100-300(不包含300)之间的随机整数，打印其中7的倍数的数，井求它们的总和，请填空。　　Sub TOF( ) 　　Randomize 　　Dim s As Double 　　Dim a(10) As lnteger 　　For i=0 To 9 　　　　　【】　　Next 　　For i=0 To 9 　　　　If【】Then 　　　　　Print a(i) 　　　　　s=s+a(i) 　　　　　【】　　　Next i 　　Print 　　Print "S=" ; s 　　End Sub

【参考答案】

a(i)=Int(Rnd * 200+100)

<上一题目录下一题>

热门试题

单项选择题

窗体上有两个水平滚动条HV、HT，还有一个文本框Text1和一个标题为“计算”的命令按钮Command1，并编写了下列程序： Private Sub Command1_Click() Call cale(HV.Value，HT.Value) End Sub Public Sub cale(x As Integer,y As Integer) Text1.Text=x*y End Sub 运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述中正确的是( )。

A．过程调用语句不对，应为cale(HV.HT)
B．过程定义语句的形式参数不对，应为Sub cale(x As Contro1，y As Control)
C．计算结果在文本框中显示出来
D．程序不能正确运行

单项选择题

单击命令按钮时，下列程序的执行结果是（）。Private Sub Command1_Click()Dim a As Integer，b As Integer，c As Integera=3b=4c=5Print SecProc(c，b，a)End SubFunction FirProC(x As Integer，y As Integer，z As Integer)FirProc=2*s+y+3*zEnd FunctionFunction SecProc(x As Integer，y As Integer，z As Integer)SecProc=FirProc(z，x，y)+xEnd Function

A． int a=5；int x[a]；
B． const int a=5；int x[a]；
C． int n=5；int *p=new int[a]；
D． const int n=5；int *p=new int[a]；

相关试题