题目内容

以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。 Private Sub Command1_Click() For i=1 To 20 x=Int(【】*100+200) If【】=0 Then Print x S=S+【】 End lf Next i Print"Sum="；S End Sub

查看答案

搜索结果不匹配？点我反馈

更多问题

桑塔纳DQ171型点火线圈一次绕组的电阻应为()Ω。

A. 0.42～0.66
B. 0.52～0.76
C. 0.52～0.86
D. 0.52～0.96

设有如下程序 Private Sub Search(a()As Variant，ByVa1 key As Variant，index%) Dim I% For I=LBound(A)To UBound(a) If key=a(1) Then index=I Exit Sub End If Next I index=I End Sub Private Sub Form_Load() Show Dim b() As Variant Dim n As Integer b = Array(1,3,5,7,9,11,13,15) Call Search(b, 11 ,n) Print n End Sub程序动行后,输出结果是【】。

装于汽车发电机内部的调节器是()。

A. FT61型
B. JFT106型
C. 集成电路调节器
D. 晶体调节器

以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在【】和【】处填入适当的内容，将程序补充完整。 Private Sub Form_Click() Dim x As Single，amax As Single，amin As Single x=Input Box("Enter a score") amax=X amin=x Do While【】 If x＞ama x Then Ama x=x End lf If【】Then amin=X End lf x=Input Box("Enter a score") Loop Print”Max="；amax，"Min="；amin End Sub