试题 试卷
题型:单选题 题类:常考题 难易度:普通
浙江省东阳市第二高级中学2014-2015学年高一上学期信息技术期末考试试卷
Private Sub Command1_Click()
Dim a as Integer
a=Val(Text1.text) ‘将文本框中的数字文本转换成数值
a=2*a+1
Text1.text = StrA.
End Sub
程序运行时在文本框Text1中输入1,连续两次单击命令按钮Command1后,Text1中显示的内容是:( )
s = Text1.Text
List1.Clear
len1 = Len(s) ‘①
For i = 1 To len1 ‘②
For j = 1 To len1- i ‘③
List1.AddItem Mid(s, j, i) ‘④
Next j
Next i
运行时发现未输出所有子串,则修改( )
Dim a(5) as Integer
Dim n as Integer, i as Integer
n = Val(Text1.Text)
i = 0
a(1) = 1
a(2) = 1
For i = 3 To n
a(i) = a(i-1) + a(i-2)
Label1.Caption = a(i)
若在Text1中输入5,则点击按钮后的运行结果为( )
试题篮