试题 试卷
题型：单选题 题类：常考题 难易度：普通
内蒙古巴彦淖尔市临河三中计算机班2018-2019学年高二上学期信息技术期中考试试卷VB
Private Sub Command1_Click()
a=Val(Text1.text)
b=Val(Text2.text)
Do While a Mod b<>0
r=a Mod b
a=b
b=r
Loop
Text3.text=str(b)
End Sub
在Text1、Text2中分别输入30、6，则Text3中的值为（ ）
Dim a(1 To 6) As Integer
Randomize
a=n Mod k
n=n\k,k=k+1,s=s+a
a(1) = Int(11 * Rnd) + 2
For i = 2 To 6
a(i) = Int(11 * Rnd) + 2
If i Mod 2 = 1 And Not prime(a(i)) Then i = i - 1
ElseIf Not prime(a(i)) Then a(i) = a(i) + a(i - 1)
End If
Next i
'自定义函数 prime()用于判断参数是否为质数，prime(n) = True 则说明 n 为质数，否则为合数，定义函数代码略执行该程序后，a(1)～a(6)的值不．可．能．为（ ）
试题篮
