第七章 VB上机题2.docVIP

------------------------------------------------------- 本程序利用二分法查找某数字n是否在已排序的数列当中， 若在其中则输出其在数列中的位置，否则输出-1。 ------------------------------------------------------- Option Base 1 Sub birsearch(a(), ByVal low%, ByVal high%, ByVal key, index%) Dim mid As Integer mid = (low + high) \ 2 If a(mid) = key Then **********SPACE********** 【?】 Exit Sub ElseIf low high Then index = -1 Exit Sub End If If key a(mid) Then **********SPACE********** high = 【?】 Else low = mid + 1 End If **********SPACE********** Call birsearch(a(), low, high, 【?】, index) End Sub Private Sub Command1_Click() Dim b() As Variant, index As Integer b = Array(5, 13, 19, 21, 37, 56, 64, 75, 80, 88, 92) n = Val(Text1) Call birsearch(b, LBound(b), UBound(b), n, index) Print index End Sub ※ 【程序填空】 ------------------------------------------------------- 题目：本程序用辗转相除法求自然数m、n的最大分约数和最小公倍数，求最大公约数的算法如下: (1) 对于己知两数m、n，使得mn; (2) m除以n得余数r; (3) 若r=0，则n为求得的最大公约数，算法结束；否则执行(4) (4) m-n，n-r再重复执行(2) 原两数相乘除以最大公约数即为最小公倍数，程序如下: 请在【】处填入正确的内容 ------------------------------------------------------- Private Sub Form_Click() Dim m%, n%, mn% n = Val(InputBox(n=)) m = Val(InputBox(n=)) If n = 0 Or m = 0 Then MsgBox 数据出错 Exit Sub End If **********SPACE********** 【?】 **********SPACE********** If 【?】 Then t = m m = n n = t End If **********SPACE********** Do While 【?】 **********SPACE********** r = 【?】 m = n n = r Loop Form1.Print 最大公约数=; m Form1.Print 最小公倍数=; mn / m End Sub ※ ------------------------------------------------------- 【程序填空】 ------------------------------------------------------- 题目： 在窗体上有三个名称为Ch1、Ch2和Ch3的复选框，标题依次为 程序设计、数据库原理、计算机网络，还有一个名称为C1， 标题为选课的命令按钮（如图1所示）。要求程序运行后，如果 选择某个复选框， 则当单击命令按钮时在窗体上输出相应的信息。 例如：如果选择程序设计和数据库原理复选框，则单击命令 按钮后，将在窗体上显示我选的课程是程序设计数据库原理； 如果选择数据库原理复选框，则单击命令按钮后，将在窗体上 显示我选的课程是数据库原理。 -------------------------