试题 试卷
题型：多选题 题类： 难易度：容易
新疆伊犁哈萨克自治州霍城县2023-2024学年高一上学期信息技术10月月考试卷
Private Sub Command1_Click()
Dim a As Integer
a = Int(6 * Rnd + 1) * Int(6 * Rnd - 1)
Print a
End Sub
For i = 1 To Len(Text1.Text)
c = Mid(Text1.Text, i, 1)
If c >= "0" And c <= "9" Then c = Chr(Asc(c) + 1)
If c >= "A" And c <= "Z" Then c = Chr(Asc(c) + 32)
s =s + c
Next i
若文本框Text1的内容为“Number 2468！”执行程序后，变量s的值为（ ）
Y=x Mod 7
If y=0 Then y=7
试题篮
