试题 试卷
题型：单选题 题类：常考题 难易度：容易
计算机解决问题的过程
Private Sub Command1_Click()
Dim x As Integer, m As Integer
m = 3
For x = 1 To 5
If m > 3 Then m = m + 2 Else m = m - 1
Next x
Text1.Text = Str(m)
End Sub
s = 0 : i = 1
Do while
s = s + i
i = i + 2
Loop
该程序运行后，变量s的值等于25，则程序划线处的语句是（ ）
x=Val(Text1.Text)
If x>3 Then
If x<=6 Then y=2*x
Else y=3*x
Else
y=4*x
End If
Print y
若程序运行时在文本框Text1中输入6，则y的值是 （ ）
试题篮
