《淮师vb期末复习资料整合》由会员分享，可在线阅读，更多相关《淮师vb期末复习资料整合（14页珍藏版）》请在金锄头文库上搜索。
1、在窗体上画一个命令按钮，然后编写如下程序： Function fun(ByVal num As Long) As LongDim k As Longk = 1num = Abs(num)Do While numk = k * (num 10)num = num 10Loopfun = k End FunctionPrivate Sub Command1_Click()Dim n As LongDim r As Longn = InputBox(“请输入一个数“)n = CLng(n)r = fun(n)Print r End Sub 程序运行后，单击命令按钮，在输入对话框中输入 234，输出结
2、果为 0。 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer For i=1 To 10a(i)=i Next Call swap(_a_) For i=1 To 10Print a(i); Next End Sub Sub swap(b() As Integer) n=_10_ For i=1 To n/2t=b(i)b(i)=b(n)b(n)=t_n=n-1_ Next End Sub 上述程序的功能是，通过调用过程 swap，调换数组中数值
3、的存放位置，即 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 Integern = Text1r = Te
4、xt2Text3 = fun(n) / fun( n-r ) / fun(r) End Sub Function fun(n As Integer) As LongDim t As Longt=1_ For k = 1 To nt = t * kNextfun = t End Function 从程序可以看出，fun 函数是用来求数的阶乘的，而要求求的公式为 ，所以 Text3 = fun(n) / fun(n-r) / fun(r)。函数 fun 是求阶乘，而阶乘都是从 1 开始的，所以函数中首先要把 t 赋值 为 1，即 t=1。 在窗体上画两个列表框，其名称分别为 List1 和 Lis
5、t2，然后编写如下程序：Private Sub Form_ _load_()List1.AddItem “语文“List1.AddItem “数学“List1.AddItem “物理“List1.AddItem “化学“List1.AddItem “英语“List1.AddItem “政治“End SubPrivate Sub List1_DblClick()List2.AddItem _listi_.TextList1.RemoveItem List1.ListIndexEnd SubPrivate sub List2_DblClick()List1.AddItem _list2_.Text
6、List2.RemoveItem List2.ListIndexEnd Sub 该程序的功能是：程序运行后在左侧列表框中显示各科目的名字，如果双击该列表框中的 某个科目，则该科目从该表框中消失，并移到右列表框中；如果双击右侧列表框中的某个 科目，则该科目从该列表框中消失，并移向左侧列表框中。请填空将程序补充完整。在窗体上画一个命令按钮然后编写如下事件过程： Option Base 1 Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 4 To 1 Step -1s = s + a(i) * jj = j * 1
7、0Next iPrint s End Sub 运行一面的程序，单击命令按钮，其输出结果是_1234_。 跟踪程序： 由 a=Array(1,2,3,4)可知： a(1)=1 a(2)=2 a(3)=3 a(4)=4 执行循环体： s=s+a(i)*j=a(4)*1=4,j=j*10=10 s=s+a(i)*j=4+a(3)*10=34,j=j*10=100 s=s+a(i)*j=34+a(2)*100=234,j=j*10=1000 s=s+a(i)*j=234+a(1)*1000=1234,j=j*10=10000 最终的输出结果是：1234。 在窗体上有一个名称为 Command1 的命令
8、按钮和一个名称为 Text1 的文本框。程序运行后， Command1 为禁用(灰色)，此时如果在文本框中输入字符，则命令按钮 Command1 变为可 用。请填空。 Private Sub Form_Load()Command1.Enabled=False End sub Private Sub Text1_ _()Command1.Enabled=True End Sub 本题解题思路：空缺位置应当填入文件框控件的一个事件名。由题面可知，当向文本框中 输入任何字符时，都能触发的文本框事件，一定是 Change 事件。 在窗体上画一个名称为 Label1 的标签和一个名称为 List1 的列
9、表框。程序运行后，在列表 框中添加若干列表项。当双击列表框中的某个项目时，在标签 Label1 中显示所选中的项目， 如图所示。请在_处填入适当的内容，将程序补充完整。 Private Sub Form_load()List1.AddItem “北京“List1.AddItem “上海“List1.AddItem “河北“ End SubPrivate Sub _()Label1.Caption=_ End Sub下面的程序用于根据文本框X中输入的内容进行以下处理： 如果X.Text的值不是2、4、6，则打印“X不在范围内”。Private Sub Command1_Click()Select
10、 Case Val(x.Text)Case 2Print “X的值为2“Case _4_Print “X的值为4“Case _6_Print “X的值为6“_Case Else_Print “X不在范围内“End Select End Sub 执行下面的语句后，所产生的信息框的标题是_BBBB_。a=msgbox(“AAAA“,“BBBB“,“,5) 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1的窗体上建立一个名称为Text1的文本框，一个名称为Cmd1，标题 为“输出“的命令按钮（如图所示）。要求程序运行后，在文本框输入几个字符，在
11、单 击“输出“按钮，则在窗体上显示文本框中的的文字。 *注意： 1）在程序中不能使用任何变量。 2）保存时必须存放在考生文件夹下，窗体文件名为wy12.frm，工程文件名为 wy12.vbp。* （2）在名称为Form1的窗体上建立二个名称分别为Cmd1、Cmd2，标题为“按钮一“、“按 钮二“的命令按钮（如图所示）。要求程序运行后，如果单击“按钮一“，则把“按钮二“ 移到“按钮一“上，使两个按钮重合。 *注意： 1）在程序中不得使用任何变量（必须通过属性设置来移动控件）。2）保存时必须存放在考生文件夹下，窗体文件名为wy13.frm，工程文件名为 wy13.vbp。1、考查基本控件的使用和对
12、Print方法的使用，新建一工程，建立一名为Text1的文本 框和名为Cmd，标题为“输出“的命令按钮，双击命令按钮加入如下代码：Cls Print Text1.Text 2、考查对控件的Top和Left属性的使用，在Cmd1的Click事件中加入如下代码：Cmd2.Top=Cmd1.Top Cmd2.Left=Cmd2.Left 1）在考生文件夹下有一个工程文件sj45.vbp，相应的窗体文件为sj45.frm。其功能是产生30个0999的随机整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮（名称为Command1，标题为“输出最小值“），即可求出其最小值，并在窗体上显示
13、出来（如图所示）。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。*（2）在考生文件夹下有一个工程文件sj46.vbp，相应的窗体文件为sj46.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出01000范围内不能被7整除的整数的个数，并在文本框中显示出来。 在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。要求：请勿改动程序中的任何内容，只在Function F
14、un()和End Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。 第1小题： 本题的考查的是数组和随机函数的用法，打开工程文件sjt3.vbp，点击工具箱中的 CommandButton控件图标，然后在窗体上拖拉出一个命令按钮Command1，设置其 Caption属性为“输出最小值“，双击命令按钮在代码窗口中补充如下代码：Private Sub Command1_Click()Dim arrN(30) As IntegerDim Min As IntegerRandomizeFor i = 1 To 30arrN(i) = Int(Rnd * 1000)Next
15、 iMin = arrN(1)For i = 2 To 30If Min arrN(i) ThenMin = arrN(i)End IfNext iPrint Min End Sub 按要求保存文件即完成本题。 第2小题： 打开一个工程文件sjt4.vbp，在窗体上有一个命令按钮和一个文本框，要求计算出 01000范围内不能被7整除的整数的个数，并在文本框中显示，在Function Fun()和 End Function之间补充代码如下：Function Fun() Dim i As Integer, num As Integer For i = 0 To 1000 If i Mod 7 6 或 x=6 或 x=7 或 x=7。 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a(1 To 10)Dim p(1 To 3)k = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3p(i) = a(i * i)Next iFor i = 1 To 3k = k + p(i) * 2Next iPrint k End Sub 程序运行后，单击命令按钮，输出结果是_33_。 在窗体上画两个文本框（
