淮师VB期末复习资料整合.docVIP

在窗体上画一个命令按钮，然后编写如下程序： Function fun(ByVal num As Long) As Long Dim k As Long k = 1 num = Abs(num) Do While num k = k * (num \ 10) num = num \ 10 Loop fun = k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n = InputBox(请输入一个数) n = CLng(n) r = fun(n) Print r End Sub 程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为0。 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer For i=1 To 10 a(i)=i Next Call swap(___a___) For i=1 To 10 Print a(i); Next End Sub Sub swap(b() As Integer) n=__10____ For i=1 To n/2 t=b(i) b(i)=b(n) b(n)=t __n=n-1____ Next End Sub 上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。 在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式 计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中（见下图）。请填空。 Private Sub Command1_Click() Dim r As Integer, n As Integer n = Text1 r = Text2 Text3 = fun(n) / fun( n-r ) / fun(r) End Sub Function fun(n As Integer) As Long Dim t As Long t=1___ For k = 1 To n t = t * k Next fun = t End Function 从程序可以看出，fun函数是用来求数的阶乘的，而要求求的公式为 ，所以Text3 = fun(n) / fun(n-r) / fun(r)。函数fun是求阶乘，而阶乘都是从1开始的，所以函数中首先要把t赋值为1，即t=1。 在窗体上画两个列表框，其名称分别为List1和List2，然后编写如下程序： Private Sub Form_ _load_____() List1.AddItem 语文 List1.AddItem 数学 List1.AddItem 物理 List1.AddItem 化学 List1.AddItem 英语 List1.AddItem 政治 End Sub Private Sub List1_DblClick() List2.AddItem ___listi___.Text List1.RemoveItem List1.ListIndex End Sub Private sub List2_DblClick() List1.AddItem __list2____.Text List2.RemoveItem List2.ListIndex End Sub 该程序的功能是：程序运行后在左侧列表框中显示各科目的名字，如果双击该列表框中的某个科目，则该科目从该表框中消失，并移到右列表框中；如果双击右侧列表框中的某个科目，则该科目从该列表框中消失，并移向左侧列表框中。请填空将程序补充完整。 在窗体上画一个命令按钮然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4)