试题 试卷
题型:多选题 题类: 难易度:容易
新疆伊犁哈萨克自治州霍城县2023-2024学年高一上学期信息技术10月月考试卷
Dim j As Integer, k As Integer
List Clear
For k = 1 To 100
j = Int(Sqr(k))
If j * j = k Then list1.AddItem Str(k)
Next k
分析程序功能,该程序的功能是( )
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的值为( )
PRIVATE SUB FORMCLICK
FOR I = 3 TO {#blank#}1{#/blank#}
F=0
FOR J= 2 TO I-1
IF {#blank#}2{#/blank#} THEN
F=1
EXIT FOR
END IF
NEXT J
IF F=0 THEN {#blank#}3{#/blank#}
{#blank#}4{#/blank#}
END SUB
试题篮