VB 编程语言

VB 编程语言 一、单选题(30 分，每小题 1 分)1(下列软件中______是操作系统。 A Windows B Internet Explorer C WPS D Visual Basic2(鼠标属于计算机中的______。 A 中央 处理器 B 存储器 C 输入设备 D 输出设备3(下列表示存储容量的数据中， ________是最大的。 (A)20480 KB (B) 1.44 MB (C) 2.5 GB (D)4865723 Byte4(十进制数 13 转换为二进制是______。 A 1101 B 1011 C 1100 D 10105(WINDOWS 中扩展名为______的文件不是图形文件。 A JPG B EXE C BMP D ICO6(在一个多窗体的工程中，如果有一个自定义函数需要被多个窗体调用，则 此函数的定义可保存在一个______类型的文件中。 A VBP B BAS C FRM D OCX7(下列______可作为 VB 的变量名。 A AampA B print_2 C 12AB D Const8(下 列对象中_______不能作为放置其他控件的容器。 A 窗体 B 文本框 C 图片框 D 框架9(以下语句中______能在窗体的标题栏中显示“Visual Basic 窗体”。 A Form1.Title quotVisual Basic 窗体quot B Form1.Name quotVisual Basic 窗体quot C Form1.Caption quotVisual Basic 窗体quot D Form1.Text quotVisual Basic 窗体 el1。列表框中显示若干城市quot10(设窗体中有一个列表框 Listt1 和一个标签 Lab 名称，单击某个城市名时，标签中显示选中的城市名称。以下______事件过程能实 现该功能。 A Private Sub List1_Click B Private Sub List1_Click Label1.Caption List1.ListIndex Label1.Text List1.ListIndex End Sub End Sub C Private Sub List1_Click D Private Sub List1_Click Label1.Text List1.Text Label1.Caption List1.Text End Sub End Sub11(窗体中有一个命令按钮 Command1。运行下列程序 。 Private Sub Command1_Click Dim city As 时单击命令按钮，则窗体中显示______ String city Arrayquot北京quot quot上海quot quot南京quot quot广州quot Print city1 End Sub A 空白 B 北京 C 上海 D 出现错误提示12(窗体中有一个命令按钮 Command1。运行下列程序，单击命令按钮，窗体中显示______。 Dim X As Integer Y As Integer 通用声明 Private Sub ProcByVal a As Integer ByVal b As Integer X a a Y b b End Sub Private Sub Command1_Click X 5: Y 3 Call ProcX Y Print X Y End Sub A 5 3 B 25 3 C 25 6 D 5 613(在以下过程中，Public 表示__________。 Public Sub Fx As Integer …… End Sub A 此过程可以被任何其它过程调用 B 此过程只可 以被本窗体模块中的其它过程调用 C 此过程不可以被任何其它过程调用 D 此过 程只可以被本工程中的其它过程调用14(执行下面这段代码时，窗体中将会显示 ________。 n 3 For i 1 To n x 0 For j 1 To i x x 1 Next j Next i Print x A 3 B 4 C 5 D 6 ，下面的程序段中15(需要将字符串 S 颠倒过来逆序排列形成字符串 T， 如将“ABCD”变成“DCBA”____不能实现该功能。 A s quotABCDquot: t quotquot B s quotABCDquot: t quotquot For i 1 To Lens For i 1 To Lens t t Mids Lens - i 1 1 t Mids i 1 t Next i Next i C S quotABCDquot: T quotquot D S quotABCDquot: T quotquot For i LenS To 1 Step -1 For i LenS To 1 Step -1 T T MidS i 1 T MidS i 1 T Next i Next i16(下列函数中________的值与其它三个不一 样。 A Valquot1quot B Abs-1 C Int1.3 D Sin117(设有如下程序，运行时单击命令按 钮，则文本框中显示______。 Sub Fa ByVal x As Integer Private Sub Command1_Click For i 1 To 5 Dim arr5 n As Integer x x ai For i 1 To 5 Next i arri i End Sub Next i n 10 Call Farr n Text1.Text n End Sub A 10 B 15 C 25 D 2418(以下程序段中 ______能正确地计算并显示 5 的阶乘。 A n 5: x 1 B n 5: x 1: i 1 Do Do x x i x x i i i 1 i i 1 Loop While i lt n Loop While i lt n Print x Print x C n 5: x 1: i 1 D n 5: x 1 Do For i n To 1 x x i x x i i i 1 Next i Loop While i lt n Print x Print x19(执行如下程序，单击命令按钮 3 次，则标签 Label1Label2Label3 中分别显示______。 Private Sub Command1_Click Static y As Integer Dim z As Integer n 10 z n z : y y z : x x z Label1.Caption x Label2.Caption y Label3.Caption z End Sub A 10 10 10 B 10 30 10 C 30 30 30 D 10 30 3020(需要将字符串 S 数组 b 中的各个元素逆序排列，下面的程序段____可实 现该功能。 A For i 0 To 5 - 1 2 B For i 0 To 5 2 tmp bi tmp bi bi b5 - i - 1 bi b5 - i - 1 b5 - i - 1 tmp b5 - i - 1 tmp Next i Next i C For i 0 To 5 D For i 1 To 5 2 tmp bi tmp bi bi b5 - i - 1 bi b5 - i - 1 b5 - i - 1 tmp b5 - i - 1 tmp Next i Next i21(设组合框 Combo1 中有 3 个项目，则______可删除其中最后一项。 A Combo1.RemoveItem Combo1.Text B Combo1.RemoveItem Combo1.Index C Combo1.RemoveItem Combo1.ListIndex D Combo1.RemoveItem Combo1.ListCount - 122(执行下列程序段，文本框 Text1 中显示______。 n IntRnd 3 Select Case n Case 1 To 10 x 10 Case 2 4 6 x 20 Case Is lt 10 x 30 Case 10 x 40 End Select Text1.Text x A 10 B 20 C 30 D 4023(以下关系表达式中______的值为 False。 A quotABCquot gt quotAbcquot B quotthequot ltgt quottheyquot C quotVISUALquot UCasequotUisualquot D quotIntegerquot gt quotIntquot24(窗体中有命令按钮 Command1，并已编写下列代码。运行程序时，单击命令按钮，窗体显示______。 Function Fm As Integer Private Sub Command1_Click If m Mod 2 0 Then Dim i As Integer F m S 0 Else For i 1 To 5 F 1 S S Fi End If Next End Function Print S End Sub A 11 B 10 C 9 D 825(设有如下代码，关于它的叙述______是正确的。 Private Type animal End Type AName As String 20 AColor As String 10 rec.AName quotElephantquot rec.AColor quotBlackquotPrivate Sub Command1_Click Put 1 rec Dim rec As animal Close 1 Open quotc:vbtest.datquot For Random End Sub As 1 Len Lenrec A 类型 animal 不能在窗体中定义，只能在模块中定义，所以运行 会发生错误 B 如果文件 c:vbtest.dat 不存在，则运行 Open 命令时发生错误 C 由 “Put 于 Put 命令没有指定记录号，因此每次写文件时都把记录写在文件尾 D 语句 1 rec”的作用是把 animal 类型的两个数据元素写入文件 26(以下关于菜单的叙述 中______是错误的。 A 下拉菜单和弹出式菜单都用菜单编辑器建立 B 在多窗体工 程中，每个窗体都可是以有自己的菜单 C 除分隔线外，所有的菜单项都能接收 Click 事件 D 如果把一个菜单项的 Enabled 属性设置为 False，则该菜单项不可见 27(窗体中有如下事件过程，如果希望运行时窗体显示如右图的形式，请选择适合 的表达式完善程序。 c 1234 c1 TrimStrc 1 For i 1 To 4 12 123 Print ______ 1234 Next A Rightc1i B Leftci C Midc1i1 D Midc1ii 28(下面这段程序的功能是______。 n ValText1.Text For i 2 To n For j 2 To Sqri If i Mod j 0 Then Exit For Next j If j gt Sqri Then Print i Next i A 输出 n 以内的奇数 B 输出 n 以内的偶数 C 输出 2-n 的所有数的阶乘 D 输出 n 以内的素数29(窗体中有 4 个名为 Command11 的命 令按钮，如图，下标从 0 开始，从上到下顺序增大。启动窗体时这 4 个命令按钮 从上到下分别显示______。 Private Sub Form_Load For i 0 To 3 Command1i.Caption Command1i.Index Next i End Sub A 0 1 2 3 B 1 2 3 4 C 0 1 3 2 D 出错30(窗体中有一个通用对话框 CommonDialog1 和一个命令按钮 Command1，并有以下代码。关于这段程序功能的描述错误的是______。 Private Sub Command1_Click CommonDialog1.Filter quotAll File.Word Documents.docText Documents.txtquot CommonDialog1.InitDir quotD:quot CommonDialog1.Action 2 End SubA产生一个“打开文件”对话框 B 在这个对话框中只能选择打开 Word 文档 或文本文件C 对话框中初始的路径是 D 盘的根目录 D 这个对话框不能真正实现 保存文件的功能二、填空题(50 分，每空 2 分，请在答题纸上标明每个空的编号) 1(函数 Sin30 3.14159 / 180 的值为___1____。2(VB 中数据文件根据对文件的 访问方式分为 3 类，即顺序文件、___2___和二进制文件。3(执行下面这段程序后， 窗体中显示___3___和___4___。 s2 For i 3.2 To 4.9 Step 0.8 ss1 Next i Print s i4(图 片框 Picture1 中已显示一张图片 d:pic1.jpg，单击命令按钮时希望清除该图片，使 图片框显示为空白，完成下面的代码。 Private Sub Command1_Click ____5____ End Sub5(下面这段程序要在窗体显示 20 个100，200间的随机整数，求这些数的和， 并显示其中 5 的倍数请完成程序。 For i 1 To 20 x Int___6___ ___7___ If ___8___ Next i Print quot总和:quot s6(下面的程序可根据用户所输入的数在一个数 组中查找相应的下标，完成程序。 Dim arr i M As ___9___ arr Array12 43 76 24 54 86 49 55 M ValInputBoxquot要查找的数quot For i ___10___ If arri M Then ___11___ Next i Print quot下标是:quot k7(窗体中有一个标签 Label1 和一个时钟 控件 Timer1。开始运行程序时，窗体显示如图a;单击窗体后显示如图b，其中的时 钟每秒更新一次显示当前时间。请填空完成程序代码。 Private Sub Form_Load Timer1.Enabled ___12___ Timer1.___13___ 1000 End Sub a Private Sub Form_Click Timer1.EnabledTrue End Sub Private Sub Timer1_Timer ___14___ b End Sub8(窗体中有一个文本框 Text1，其 MultiLine 属性值为 True，执行下列程序， 将文件 t1.txt 的内容显示在文本框中，请完善程序。 Private Sub Command1_Click Dim aspect Whole Open quotf:t1.txtquot For ___15___ Do While Not EOF1 Line Input ___16___ Whole Whole aspect Chr13 Chr10 Loop Text1.Text Whole ___17___ End Sub9(窗体中有文本框 Text1，标签 Label1 和命令按钮 Command1， 并有如下两段事件过程: Private Sub Command1_Click s InputBoxquot请输入一串 字符quot Text1.Text s End SubPrivate Sub Text1_Change Label1.Caption UCaseMidText1.Text 7End Sub运行时单击命令按钮，在输入框中输入字符串 “VisualBasic”，确定后标签显示___18___。 ab10(把数学式 改写成 VB 表达式: ___19___。 ln a11(一个数组中有 10 个元素，对它进行冒泡排序，元素进行交换 次。12(窗体中有文本框 Text1、列表框 List1 和标签 的次数最大可能是___20___ Label1，程序运行时列表框中显示若干人的简单信息。在文本框中输入姓或姓名并 回车， 在列表框中查找相符的人的情况，找到时在标签中显示查找结果(如图a); 如果列表框中没有相符的项目，则显示相应的提示信息(如图b) 。填空完成下面 的程序。 Private Sub Text1_ ___21___KeyAscii As Integer Dim k As Integer n As Integer Found As Boolean If KeyAscii 13 Then Found ___22___ ___23___ LenTrimText1.Text For k 0 To List1.ListCount - 1 If Text1.Text LeftList1.Listi n Then Label1.Caption ___24___ a Found True End If Next k If Not Found Then ___25___ End If End Sub三、编程题(20 分，每小题 10 分，请在答题纸上 b 标 明 题号)1(随机产生 10 个正整数，求其中的最小值，并将原始数据和最小值显示在 窗体中。2(窗体中有一个文本框 Text1、两个标签 Label1 和 Label2、一个垂 直 滚动条 Vscroll1。点击滚动条，可使文本框中显示2，20之间的一个 正整数 n，标 签 Label1 中立刻显示 1～ 2～ … n的值。运行界面如 图。编写完整的事件过程 完成以上功能。一、单选题(每空 1 分，共 30 分) 1A 2C 3C 4A 5B 6B 7B 8B 9C 10 D 11 D 12 C 13 D 14 A 15 D 16 D 17 A 18 C 19 B 20 B 21 D 22 A 23 A 24 C 25 C 26 D 27 B 28 D 29 A 30 A说明:第(20)题内容不准确，答 D 也可算对;第(23) 题由于打印错误，答A，C 均对; 第(30)题题目错误，答 A，B 均对。二、填 空(每空 2 分，共 50 分) 1 0.5 答 1/2 给 1 2 随机文件 3 5 分 4 5.6 5 Picture1.PictureLoadPicturequotquot 6 Rnd200-1001100 或其他等价的表 7 s s x 达式 8 x Mod 5 0 Then Print x 条件可表达为 Intx/5Intx.