s=Text1.Text
s1=Text2.Text
s2=Text3.Text
i=1
Do While i<=Len(s)
If Mid(s, i, Len(s1))=s1Then
Else
EndIf
Loop
Label1.Caption=s
方框中的代码由以下三部分组成：
①i=i+1 ②s=Mid(s,1,i-1)+s2+Mid(s,i+Len(s1)) ③i=i+Len(s2)
下列选项中，代码顺序正确的是（ ）
|
图a |
请回答下列问题：
|
图b
图c |
|
图1 |
请回答下列问题：
|
图2 |
根据上述要求编写VB程序，功能如下：读取高一年级n个班级学生学号信息，显示在列表框List1中。程序运行时，单击“抽取”按钮Command1，在列表框List2中显示每班被抽取中的两名学生学号。程序运行界面如图所示。
Constn=8
Dim a(1 To 500) As String
Private Sub Form_Load()
‘读取数据库中学生学号信息并存储于数组a中，过程略。
EndSub
Private Sub Command1_Click( )
Dim s(1 To 8) As String
Dim flag(1 To 500) As Integer
Dim b(1 To n) As Integer
Dim w As Integer, t As Integer, i As Integer, j As Integer
Dim x As String
For i=1 To 45*n
flag(i)=0
Next i
For i=1 To n
b(i)=0
Next i
w=0
For i=1 To n
t=
If flag(t)=1 Then
i=i-1
ElseIf b(i)<2 Then w=w+1
b(i)=b(i)+1
flag(t)=1
If w Mod 2=1 Then i=i-1
End If
Next i
For i=1 To 2*n-1 '排序并输出被抽中学生学号
If Then x=s(i+1): s(i+1)=s(i):s(i)=x
End If
For j=i To i+1
List2.AddItem s(j)
Next j
Next i
End Sub
|
日期 |
1号 |
2号 |
3号 |
4号 |
5号 |
6号 |
7号 |
8号 |
9号 |
10号 |
|
最高气温℃～最低气温℃ |
22～14 |
17～12 |
10～4 |
10～2 |
8～1 |
11～8 |
17～5 |
15～4 |
19～7 |
19～7 |
若程序运行后，数组元素f(7)的值为。
Dim a(1 To 30) As String
Private Sub Form_Load( )
‘读取本月每日气温数据，存储于数组a中并在列表框List1中显示，过程略。
EndSub
PrivateSubCommand1_Click()
Dim temp(1 To 60) As Integer
Dim length As Integer, t As Integer, j As Integer
Dim ave As Single
Dim f(30) As Integer
Dim flag As Boolean
For i=1 To 30
length=Len(a(i))
j=1: t=1
Do While j<=length
If Not(Mid(a(i), j, 1)<="9" And Mid(a(i), j, 1)>="0") Then
temp(2*i-1)=Val(Mid(a(i), t, j-t))
End If
j=j+1
Loop
temp(2*i)=Val(Mid (a(i), t, j-t))
Next i
f(0)=0: low=30: flag=False
For i=1 To 30
ave=(temp(i*2-1)+temp(i*2))/2
If ave<low Then low=ave
If Not flag Then
If ave<=10 Then
Else
f(i)=0
End If
If f(i)=5 Then
Text1.Text="本月已入冬"
flag=True
End If
End If
Next i
If Then Text1.Text="本月尚未入冬"
Text1.Text=Text1.Text+""+"本月日均气温最低为："+Str(low)
End Sub
