VB教程第6章 节 课堂讨论.ppt

第6章 习题讨论; 1．下列程序段运行后，假设依次输入1、3、5，则运行结果是______。 Dim a(3) As Integer, b(3) As Integer For k = 0 To 2 a(k + 1) = Val(InputBox(请输入数据：)) b(3 - k) = a(k) Next k Print b(3) + a(3) A. 7 B. 6 C. 5 D. 8; 2. 下列程序段的运行结果是______。 Dim a a = Array(1, 3, 5, 7, 9, 11) For k = 0 To 2 Print a(5 - k) - a(k); Next k A. 10 7 4 B. 10 6 2 C. 9 5 3 D. 10 6 3; 7. 产生n个10～100随机整数并存入数组，再从键盘上接收一数据，将该数据插入数组中，插入位置也从键盘接收。补充完整下列程序代码 (先分析) Dim a() As Integer 模块级变量，数组a是动态数组 Private Sub Form_Load() n = Val(InputBox(数据个数：)) ____(1)____ Randomize Show Print 原始数据： For k = 1 To n 产生n个随机数 a(k) = Int(91 * Rnd + 10) Print a(k); Next k; Print: Print d = Val(InputBox(插入的数据：)) p = Val(InputBox(插入的位置：)) For K = n To p Step -1 _____(2)_____ Next K _____(3)_____ Print 处理结果： For K = 1 To n + 1 Print a(K); Next K End Sub ; 补充题1： 将10个人(分别用A，B，C，… J表示)随机分配在4排3列的座位中，分配后的空位用“Empty”表示。在窗体上设置一个文本框控件数组，来显示座位分配情况 1. 用户界面; Private Sub Form_Load() Dim t(12) As String Randomize For k = 1 To 12 t(k) = Empty 初始安排12个位置均为Empty Next k For h = 65 To 74 代表A至J，每次随机安排一个字母 Do While True 随机查找一个空位 p = Int(1 + 12 * Rnd) 产生1～12随机数 If t(p) = Empty Then t(p) = Chr(h) Exit Do End If Loop Next h For k = 1 To 12 Text1(k - 1).Text = t(k) 显示座位分配情况 Next k End Sub; (