试题 试卷
题型:单选题 题类:常考题 难易度:普通
浙江省稽阳联谊学校2021届高三下学期信息技术4月联考试卷
Dim r As Double, s As Double
r=Val(text1.text)
s=
Text2.Text=Str(s)
x=Text1.Text
p=0
For i=1 to Len(x)
If Mid(x,i,1)=“a” Then p=p+1
Next i
Print p
若程序运行时,在文本框Text1中键入“Are you happy”,则运行结果是( )
Dim strA As String, strB As String
strA = "hongda":strB = ""
For i = 1 To Len(strA) * 2
If i / 2 = Int(i / 2) Then
strB = strB + Chr(Asc(Mid(strA, (i - 1) Mod Len(strA) + 1, 1)) + 2)
End If
该程序段运行后,变量strB的值是( )
试题篮