高段练习专门为信息技术高分所备.doc

3以下Visual Basic程序的功能是：计算表达值，并在文本框Text1中输出计算结果。Private Sub Command1_Click() Dim i As Integer, t As Long t = 0 i = 1 Do While i = 2187 t = t + i i = i + 3 Loop Text1.Text = Str(t)End Sub（1）为了实现这一目标，程序划线处的表达式应更正为_。（2）运行更正后的程序，循环刚退出时变量i的值为_。4. 在网上商城中找到商品后可以将商品按照价格顺序显示，下列程序模拟该信息处理过程，程序能根据找到的商品信息（价格和发货地），将所有商品按照价格从高到低显示。一开始，所有商品的价格和发货地分别保存在数组a和数组b中，第i个商品的价格保存在a(i)中，对应的发货地保存在b(i)中。 程序界面如图VB-1所示，左边列表框List1中显示用户已找到的所有商品信息（包括价格和发货地），单击 开始排序按钮（Command1），所有商品按照价格从高到低显示在列表框List2中。 解决此问题的算法流程图如图VB-2所示，相应的程序如下，在程序(1)和(2)划线处，填入适当的语句或表达式，把程序补充完整。Private Sub Command1_Click() Dim i As Integer, j As Integer, t1 As Integer, t2 As String, k As Integer For i = 1 To n - 1 n表示商品总数 k = i k保存第i大的数，一开始假定是a(i) For j = i + 1 To n If a(k) a(j) Then k =_(1)_ Next j If _(2)_ Then t1 = a(i): a(i) = a(k): a(k) = t1 交换价格 t2 = b(i): b(i) = b(k): b(k) =t2 交换发货地 End If Next i For i = 1 To n 在列表框List2中输出排序结果 List2.AddItem Str(a(i) + + b(i) Next iEnd Sub程序中(1)划线处应填入_ 程序中(2)划线处应填入_ 图VB-1 图VB25猜密码。电脑产生一个8位密码，用户输入猜测的密码，电脑判断用户所猜密码的正确性，如果用户输入的密码和电脑产生的密码完全一致则输出恭喜你猜中了密码！，否则程序将输出用户密码和计算机产生密码之间不同的字符数。电脑产生的8位密码分别保存在数组pass的8个下标变量pass(1)、pass(2)、pass(8)中。 程序界面如图VB-1所示，用户在文本框Text1中输入密码，单击密码校验按钮（Command1）后，程序在标签Label3中输出密码校验结果。 解决此问题的算法流程图如图VB-2所示，相应的程序如下，在程序(1)和(2)划线处，填入适当的语句或表达式，把程序补充完整。Dim pass(1 To 8) As IntegerPrivate Sub Command1_Click() Dim x(1 To 8) As Integer, i As Integer, s As Integer For i = 1 To 8 x(i) = Val(Mid(Text1.Text, i, 1)把文本框中数字逐个分割出来并转化成数值 Next i s = 0 变量s保存不同字符的总数 For i = 1 To 8 If pass(i) x(i) Then _(1)_ Next i If _ (2)_ Then Label3.Caption = 恭喜你猜中了密码！ Else Label3.Caption = 你输入的密码共有 + Str(s) + 个字符和密码不符 End IfEnd SubPrivate Sub Form_Load() Dim i As Integer产生8位密码，每位一个非负整数，保存到数组pass For i = 1 To 8 pass(i) = Fix(