发布时间 : 星期日 文章Vb专题习题 - 图文更新完毕开始阅读dba07b45c77da26924c5b064
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