题型:填空题 题类:常考题 难易度:困难
浙江省诸暨中学2018-2019学年高一下学期信息技术期中考试试卷
Private Sub command1_click()
Dim X, N As Integer
im count As Integer 'count 用来保存能被 6 整除余 2 的数据的个数
Randomize Timer '随机数初始化,以时钟为随机数种子
For N = 1 To 50
X = + int(Rnd * 40) '随机产生 50 个 60~100 的随机数
If X Mod 6 = 2 Then
List1.AddItem Str(X)
End If
Next N
Label1.Caption=str(count)
End Sub
试题篮