vb程序设计总复习模拟题.docx

1、vb程序设计总复习模拟题一、单项选择题1利用VB设计程序的基本步骤可分四步：A（1）设计用户界；（2）_；（3）运行调试程序；（4）生成执行文件。A、编写代码 B、设计算法 C、信息反馈 D、系统集成2. 在一行内写多条语句时，每个语句之间用_符号分隔AA、 , B、 ： C、 . D、 ；3 下面_是合法的字符常量。BA、 ABC$ B、 “ABC” C、 ABC D、 ABC4Function fun(m As Integer) As Integer Dim k As Integer, sum As Integer sum=0 For k =m To 1 step -2 sum=sum +

2、 k Next k fun=sumEnd Function若在程序中用语句用 s=fun(8) 调用此函数，则s的值为_。A.20 B.30 C.40 D.105. 语句Print 5/4*65 Mod 2的输出结果是_B_。 A) 0 B)1 C) 2 D) 36在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim i As IntegerDim a(1 To 4) As Integer For i = 1 To 4 a(i) = i Next i j = 1 S = 0 For i = 4 To 1 Step -1 S = S +

3、 a(i) * j j = j * 10 Next i Print S End Sub 运行上面的程序，单击命令按钮，其输出结果是_D_。 A）4321 B）12 C）34 D）12347、在窗体（名称为Form1）上画一个名称为Text1 的文本框和一个名称为Command1的命令按钮,然后编写一个事件过程,程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为”计算机等级考试”.以下能实现上述操作的事件过程是_A_。 A Private Sub Text1_Change()Command1.Caption= “计算机等级考试” End Sub B Private Sub Comm

4、and1_Click() Caption=“计算机等级考试” End Sub C Private Sub Form1_ Click()Text1. Caption=“计算机等级考试” End Sub D Private Sub Command1_Click()Text1. Text1=“计算机等级考试”End Sub8设a=a，b=b，c=c，d=d，执行语句x = IIf(a d), A, B)后，x的值为BA、a B、b C、B D、A9在BASIC中，三个逻辑运算符NOT，AND，OR在运算过程中，优先级从高到低的顺序是_B_。A、 AND-NOT-OR B、 NOT-AND-ORC、

5、OR-NOT-AND D、 NOT-OR-AND10在VB中，复写框（Check）的Value值有三种，分别是_B_。 A、-1，0，1 B、0，1，2 C、1，2，3 D、True，False，011下列操作不能打开代码窗口的是_D_。A、选中对象,单击鼠标右键,在弹出的快捷菜单中选择“查看代码”命令 B、选中对象,双击鼠标左键C、按F7键D、按F4键12定时器控件的Interval属性值是指时间间隔，单位为_；当每隔此间隔的时间，定时器会触发一次_A_事件。(A)毫秒，Timer ( B)秒，Timer (C)毫秒，Scroll Bar (D)秒，Scroll Bar13下列关于控件数组的

6、说法错误的是AA) 定义控件数组的方法与定义一般数组的方法是相同的B) 使用Load语句载入的控件数组元素在默认的情况下是不可见的C) 对于不再使用的控件可以使用unload语句将其卸载D）控件数组中的控件事件过程与其他控件事件过程的结构类似14保存文件时，窗体的所有数据存储格式为(D ) A、 *PRG B、 *FRM C、*VBP D、 *EXE15. VB中的变量如果没有显示声明其数据类型，则默认为_D_。 A、日期型date) B、数据型 C、字符型string) D、变体型( variant)16. 以下叙述中正确的是_C_。A一个记录中所包含的各个元素的数据类型必须相同B随机文件中

7、每个记录的长度是固定的COpen 命令的作用是打开一个已经存在的文件D使用Input #语句可以从随机文件中读取数据17. 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() For i=1 To 4 x=4 For j =1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是_B_。A）7 B）15 C）157 D）5318. 以下程序运行后，单击命令按钮，在窗体上显示的内容是_C_。Private Sub Command1_

8、Click() Dim x As IntegerDim y As Integer x=10 y=5 call f1(x, y) Print x,y End Sub Private Sub f1(Byval x1 As Integer, y1 As Integer) x1=x1+2 y1=y1+2 End Sub A) 10 5 B) 12 5 C) 10 7 D) 12 719. 下列对顺序文件描述正确的是: _D_。A.记录之间有明确的分隔符 B.可通过记录号读出C.每条记录的长度必须相等 D.可编程对某条记录方便的修改20. 在列表框的方法中，_B_方法用于删除列表框中的一项。A) Add

9、Item B)RemoveItem C)Clear D)cls21. 框架是一个容器控件，其用于设置框架控件是否能够响应用户事件的是下列哪个属性：CA Name属性 B Caption属性 C Enable属性 D left属性22. 用来测试指定文件结束状态的函数是_A_。A、Eof B、FreeFile C、Loc D、Open23. 以下Case语句中错误的是: _D_。 A) Case 0 To 10 B) Case Is10 C) Case Is10 And Is1024. 文本框的ScrollBars属性只有在_A_属性为Ture时才有效。 A、MultiLine B、Text C

10、、Font D、PasswordChar25.下列程序段的执行结果为_D_。 m=1 n=1 Select Case m Case 1 Select Case n Case 0 Print “*0*” Case 1 Print “*1*” End Select Case 2 Print “*2*” End SelectA、*0* B、 0 C、*2* D、*1*26. 下列命令中_C_可实现对二进制文件的读操作。A) Line Input B). Put C). Get D). Read 27. 阅读以下程序： Function F(a As Integer) b = 0 Static c b

11、 = b+1 c = c+1 F = a+b+c End Function Private Sub Command1_Click () Dim a As Integer a =2 For i =1 To 3 Print F(a) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为B_。 A） 4 B）4 C）4 D）4 4 5 6 7 4 6 8 928. 以下哪种不能使控件获得输入焦点：_A_。1）用鼠标单击指定的控件2）反复按Tab键直到指定控件获得输入焦点3）按Shift键使指定控件获得输入焦点4）调用控件的SetFocus方法29. 在标题的字符串中的某个字符前加上

12、符号&便可以建立该命令按钮的_B_。A.默认值 B、快捷键 C、输入焦点 D、编辑器29. 在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： function f(m As Integer) as Long If m Mod 2 = 0 Then f = m Else f = 1 End If End Function private Sub Command1_Click() Dim i As Integer s = 0 For i = 1 To 5 s = s + f (i) Next print s End Sub 程序运行后，单击命令按钮，在窗体

13、上显示的是:A A) 11 B) 10 C) 9 D) 830. 有程序代码如下：Text1.Text=”Text1.Text”则Text1、Text、”Text1.Text”分别代表（A ）A、对象、值、属性B、对象、方法、属性C、对象、属性、值D、属性、对象、值31. 以下程序段的输出结果为 B x=1 y=4 Do x=x*y y=y 1 Loop Until y 4 Print x A1 B4 C8 D .20二、填空题1. 数学关系3= x10表示成正确的VB表达式为_B_。 A、3 = x 10 B、3= x AND x=3 OR x 10 D、3 = x AND 10 2.阅读以

14、下程序：Function fun(ByVal num As Long) As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num Mod 10) num=num10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox(请输入一个数) r=fun(n) Print r End Sub 程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为 _24_3插入排序法的算法思想是：逐个处理待排序的数据，

15、每个新的数据都与前面已经排序的子序列进行比较，如果新的数据比前面的数据小（升序），将它们交换位置，再与前面的数据比较。这样经过多次的比较，便可将新的数据插入到最前面的位置。使用插入排序对以下给定的8个数按从大到小的顺序进行排序。请在 下列三处括号内将程序补充完整。Option Base 1Private Sub Command1_Click( )Dim intNum Dim intTmp As Integer Dim i As IntegerDim j As IntegerintNum = Array(43，21，18，15，28，16，23，17 )For i = 2 To 8 For j

16、= i To 2 Step - 1 If intNum(j) intnum(j-1) Then intTmp = intNum(j) 交换两个元素 intNum (j) = _intnum(j-1)_ intNum(j 1) = intTmp Else Exit For End If Next j Next i Print 排序结果是： For i = 1 To 8 Print _(i)_; NextEnd Sub 4在窗体上有一个名称为Label1的标签和一个名称为List1在列表框。程序运行后，在列表框中添加若干列表项。当单击列表框中的某个项目时，在标签Label1中显示所选中的项目，如图

17、所示。请在_处填入适当的内容，将程序补充完整。(3分) Private Sub Form_Load() List1.AddItem “香蕉” List1.AddItem “苹果” List1.AddItem “西瓜” End Sub Private Sub List1_Click() Label1.Caption=_lstfruit.text_ End Su5. Print Format(123.5, #.00)显示_123.50_。6. 在名称为 Form1 的窗体上画一个文本框，其名称为 Text1，在属性窗口中把该文本框的 MultiLine 属性设置为 True，该文本框的Scroll

18、Bars属性设置为Both，Text属性设置为空。以下程序的功能是，把磁盘文件 d:testsmtext1.txt 的内容读到内存并在文本框中显示出来。然后把该文本框中的内容写入磁盘文件 smtext2.txt中去。(提示：为了判断一个文件的当前读入的位置是否位于文件结束位置，可以使用EOF函数。EOF函数将返回一个表示文件指针是否到达文件末尾的标志。如果到了文件末尾，EOF函数返回TRUE，否则返回FALSE。)Private Sub Form_Click() Dim i As Integer Dim strTmp As String Opend:testsmtext1.txtFor Inp

19、ut As #1 StrTmp= Do While Not _ Line Input #1, strTmp Text1.Text= Text1.Text & vbCrLf & strTmp Loop Close #1Open d:testsmtext2.txtFor Output As #1Print #1,_i_Close #1End Sub三、编程题一、如下图，设计一个界面，给出3个可选答案，用于允许选择某人的兴趣，某人的兴趣是“音乐”，选择完毕后单击“完成”命令按钮可弹出一个消息框显示用户选择的内容。如果单击的是“音乐”，则显示“答对了”。否则，则显示“答错了”。1 要求填写程序设计对象

20、属性表；2. 编写程序单选钮 1单选钮 2单选钮 3(1) 填写对象属性设置表：对象类型属性名属性值窗体NameForm1Caption单选钮1NameOption1Caption单选钮2NameOption2Caption单选钮3NameOption3Caption框架NameFrame1Caption“确定”按钮NameCommand1Caption（2）在“确定”命令的单击事件过程中键入如下代码：Private Sub Command1_Click()End Sub二、新建一个窗体，程序运行时，当用鼠标单击窗体任一地方时，程序用随机函数产生15个随机数，然后程序把刚才产生的15个整数分3行在在窗体上显示，每行5个整数。三、设有一维数组A（1 to 10）,用键盘（Inputbox()函数）输入10个整数到数组A中，然后将数组元素倒置。例如；输入2、4、6、8、10、1、3、5、7、9 输出 9、7、5、3、1、10、8、6、4、2