选择题
- A、 算术运算符、关系运算符、逻辑运算符
- B、 逻辑运算符、关系运算符、算术运算符
- C、 关系运算符、算术运算符、逻辑运算符
- D、 逻辑运算符、算术运算符、关系运算符
s1 = "2019GaoKao"
For i = 1 To Len(s1)
ch = Mid(s1, i, 1)
If ch >= "0" And ch <= "9" Then
ch = Str((Val(ch)+1) Mod 10)
s2 = ch + s2
ElseIf ch >= "a" And ch <= "z" Then
ch = Chr(Asc(ch) - 32) s2 = s2 + ch
End If
Next i
该程序运行后,s2的值是( )
- A、 "A0A00213"
- B、 "0213A0A0"
- C、 "02130A0A"
- D、 "0A0A0213"
- A、 计算机病毒,黑客的非法入侵以及网络陷阱
- B、 网页中多媒体技术的大量应用
- C、 网络上的垃圾邮件越来越多
- D、 使用计算机上网的人越来越多
Private Sub Form_Click()
Dim arr(1 to 10, 1 to 10) As Integer
Dim i As Integer, j As Integer
For i =2 To 4
For j = 2 To 4
arr(i, j) = i * j
Next j
Next i
Label1.Caption =str(arr(2, 2)+ arr(3, 3))
End Sub
- A、 12
- B、 13
- C、 14
- D、 15
Const n = 5
Dim b(n)As Integer
For i = 1 To 5
b(i)= i
Next i
For i = 1 To 2
For j = n – 1 To I Step -1
If a(b(j))> a(b(j + 1))Then
t = b(j):b(j)=b(j + 1):b(j + 1)= t
End If
Next j
Next i
数组元素a(1)~a(5)的值依次为“35,24,45,16,77”,运行上述程序段后,数组元素b(1)到b(5)的值依次为( )
- A、 1,3,5,2,4
- B、 5,3,1,2,4
- C、 2,4,1,3,5
- D、 4,2,1,3,5
For k = 100 To 500
x = k
z = 0
Do while x > 0
Loop
If z= k Then
List1.AddItem Str(k)
End lf
Next k
上述程序段中方框处可选语句为:( )
①x =x\ 10 ②y = x Mod 10 ③z = z+10* y ④z= 10* z + y
则(1)(2)(3)处语句依次为
- A、 ①②③
- B、 ②①③
- C、 ①②④
- D、 ②①④
m=0:n=0
For i=1 to 100
If i mod 3="0" then
m=m+1
Else
n=n+1
next i
print m,n
- A、 For
- B、 End if
- C、 Next
- D、 If