试题 试卷
题型:填空题 题类:常考题 难易度:容易
内蒙古巴彦淖尔市临河三中计算机班2018-2019高二下学期信息技术期中考试试卷VB
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c = 0: n = 10
For i = 1 To 10 Step 2
If n Mod i = 0 Then
c = c * i
Else
c = c + i
End If
Next i
Text1.Text = Str(c)
End Sub
执行该算法,当x的值为5时( )
在这个算法中,最多有几次猜价机会( )
PRIVATE SUB FORM__CLICK( )
S=0
FOR A = 1 TO 5
FOR B= 1 TO 3
S=S+1
NEXT B
NEXT A
PRINT S
END SUB
a(1) = "231": a(2) = "34": a(3) = "23": a(4) = "234": a(5) = "123"
For i = 1 To 2
For j = 1 To 5 - i
If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t
Next j
Text1.text=a(j)
执行该程序段后,文本框Text1显示的内容为( )
试题篮