VB专题习题

解决此问题的排序部分的程序段如下： Dim m(1 To 10) As Single Dim name(1 To 10) As String Private Sub Command1_Click( )

Dim i As Integer, j As Integer, k As Integer, x As Single, y As String For i = 1 To 9 k = i

For j = i + 1 To 10 If ① Then k = j Next j If k <> i Then

x = m(i) : m(i) = m(k) : ②

y = name (i) : name (i) = name (k) : name (k) = y End If Next I

For I = 1 To 10

List2.AddItem Str(m(i)) + \ Next i End Sub

Private Sub Form_Load()

' 此过程用于对数组a和数组b进行初始赋值，代码略 End Sub

在程序①和②划线处，填入适当的语句或表达式，把程序补充完整： （1）程序中①划线处应填入 。 （2）程序中②划线处应填入 。

8.【加试题】某单位会员储值卡查询系统具有如下功能：输入会员卡号，即可查出该卡号对应的余额。所有会员卡号和相应的余额已分别保存在数组kh和数组ye中，第i个会员的卡号保存在kh(i)中，对应卡号的余额保存在ye(i)中，卡号从小到大排序。 程序运行界面如第18题图所示，左边列表框List1中显示的是会员卡号和余额，在文本框Text1中输入会员卡号，单击\查询余额\按钮（Command1）后，如果找到此卡号，则在标签Label2中显示\此卡号余额为\和卡号对应的余额值，如果未找到则显示\找不到此卡号，请重新输入\。

29 / 30

第18题图

VB专题习题

解决此问题的部分程序段如下： Dim kh (1 To n) As Long Dim ye (1 To n) As Single Private Sub Command1_Click()

Dim x As Long, i As Long, j As Long, m As Long, f As Boolean x = Val(Text1.Text)

i = 1: j = n: f = False ‘ 设卡号总数为n Do While ① ②

If x = kh (m) Then f = True

ElseIf x < kh (m) Then j = m - 1 Else ③ End If Loop If f Then Else End Sub

Private Sub Form_Load()

’此过程用于对数组kh和数组ye进行初始赋值，代码略 End Sub

（1）程序中①划线处应填入 。 （2）程序中②划线处应填入 。 （3）程序中③划线处应填入 。

Label2.Caption = \找不到此卡号，请重新输入\

End If

Label2.Caption = \此卡号余额为\元\

30 / 30