试题 试卷
题型:填空题 题类:模拟题 难易度:普通
试题来源:浙江省杭州市2015年高考信息技术模拟卷8
Private Sub Command1_Click()
Dim s As Integer, j As Integer
s = 0
For j = 1 To 10
If j Mod 2 <> 0 Then
s = s + j
End If
Next j
Label1.Caption = Str(s)
End Sub
收藏 纠错
组卷次数:1次 +选题
Dim a As Integer, b As Integer
a = Val(Text1.Text)
If a Mod 2 = 0 Then
b = a + 1
ElseIf a Mod 3 = 0 Then
b = a + 2
ElseIf a Mod 5 = 0 Then
b = a + 4
Else
b = a
Label1.Caption = Str(b)
运行该程序,在文本框Text1中输入25,单击命令按钮Command1,在标签Label1中显示的是( )
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
Next
该程序通过For循环计算sum的值,下列表达式的值与sum相等的是( )
实现上述功能的VB程序如下,请回答下列问题:
Dima( 1 To 5) As Integer
Dimi As Integer, j As Integer, s As String
s=“”
For i= 2 To 5
For j=i To 5
If j Mod i=0 Then a(j) =a(j)+1
Next i
For i= 1 To 5
If a(i) <>1Then s=Str(i) +s
Text 1.Text=S
若数组a的初始值都为0,则运行该程序段后,Text 1中显示的内容为( )
试题篮