试题 试卷
题型：单选题 题类：常考题 难易度：普通
浙江省高中信息技术 VB基本语句同步练习
Private Sub Command1_Click()
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
End Sub
该程序通过For循环计算sum的值，下列表达式的值与sum相等的是（ ）
Dim n As Integer, s As Integer, i As Integer
n=Val(Text1.Text)
s=0
For i=1 To n Step 2
s=s+i
Next i
Text2.Text=Str(s)
图1
i=1
Do While i<=n
i=i+2
Loop
图2
当n的值为10时，关于该两段程序，下列说法不正确的是( )
Private Sub Command1_click ( )
Dim n As Integer , m As Integer , k As Integer
n = Len ( Text1．Text )
m = Val ( Text2．Text )
k = Val ( Text3．Text )
If m + k -1 > n Then
Text4．Text = Mid ( Text1．Text , 1 , m – 1 )
Else
Text4．Text = Mid ( Text1．Text , 1 , m–1 ) + Mid ( Text1．Text , m+k , n–m–k +1 )
End If
For i=1 to n
j = 1
a(j)=a(j)+1
Do While a(j)>7
a(j)=0 : j=j+1 : a(j)=a(j)+1
当n=102时，执行程序结束后数组a中各元素相加的和为（ ）
试题篮
