VB模拟试题1-答案

1、、单选题 ( 30分，每小题 1 分) 一个完整计算机系统应包括 _ (A) 主机、键盘、和显示器 (C) 主机和其他外部设备 打印机属于计算机部件中的 _ (A) 输出设备 (B) 输入设备 (C) 存储设备 (D) 缓冲设备 下列表示存储容量的数据中， (3) 是最大的。(A)20480 KB (B) 1.44 MB (C) 1 GB (D)4865723 Byte 在计算机内部能够直接执行的程序语言是 _(4) 。(A)数据库语言(B)高级语言(C)机器语言下列叙述正确的是 _(5)_(A) 程序设计就是编制程序完成(C) 程序经调试改错后还应进行再测试 (D) 程序经调试改错后不必进行

2、再测试 以下叙述中错误的是(A) Visual Basic(B) Visual Basic(C) Visual Basic(D) Visual Basic以下不属于VB工作模式的是_(A) 编译 (B) 设计 (C) 以下语句的输出结果是 _(8)_ 。Print Format $(32548.5, “000,000.00 ”)(1) 。(B) 硬件系统和软件系统(D) 系统软件和应用软件 (2)_。(D) 汇编语言(B)程序的测试必须由程序员自己去(6)_。 是事件驱动型可视化编程工具 应用程序不具有明显的开始和结束语句 工具箱中的所有控件都具有宽度(Width)和高度(Height )属性

3、 中控件的某些属性只能在运行时设置(7)_ 模式。 运行 (D) 中断(A) 32548.5 (B) 32,548.5(C) 032,548.50 (D) 32,548.50若要使某可见控件获得焦点，则可使用 _(9) 方法来实现。(A) Refresh (B) SetFocus (C) Value (D) GotFocus 在下列说法中，正确的是 _(10)_ 。(A) 通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上(B) 在列表框中不能进行多项选择(C) VB系统不能在列表框中自动实现将项目按字母顺序从大到小排列(D) 复选框的 Value 属性值为布尔型 执行以下程序段 ,输

4、出的结果为 _(11)_。 a$=abbacddcbaFor i=6 To 2 Step -2 x=Mid(a,i,i): y=Left(a,i)z=Right(a,i): z=UCase(X & Y & z)Next iPrint z(A) ABA (B) BBABBA (C) ABBABA (D) AABAAB 控件在窗体上的位置是由 _(12)_ 属性确定的。(A) Width 和 Height (B) Top 和 Left (C) Width 和 Left (D) Top 和 Width 关于Name属性，以下叙述中 (13)_是正确的。(A) 窗体的Name属性指定窗体的名称，用于标

5、识一个窗体。(B) 窗体的Name属性用于设置显示在窗体标题栏的文本。(C) 可以通过代码在程序运行中改变某个对象的Name属性值。(D) 对象的Name属性值可以设置为空。下列名称中 (14)_可以作为VB的变量名。(A) mod (B) m-d(C) tempVal (D) left要求出变量x和y中较大的一个并保存在变量 Max中，下面的程序段中 (15)是不正确的。(A) Max = IIf(x y, x, y)(B) If x y Then Max = x Else Max = y(C) Max = x(D) If y x Then Max = yIf y = x Then Max

6、= yMax = x执行以下语句后，a的值为_(16)_Dim a As Integera = 1Do Until a = 100a = a + 2Loop(A) 102 (B)100(C) 溢出 (D)101对于语句 If a = b Then c = d 的语法分析， _(17)_是正确的。(A) a=b 和 c=d 都是赋值语句(B) a=b 是关系表达式， c=d 是赋值语句(C) a=b 和 c=d 都是关系表达式 (D) a=b 是赋值语句， c=d 是关系表达式 运行下列程序段， 单击两次命令按钮， 则第二次单击时窗体中显示的结果是 _(18)Private Sub Comman

7、d1_Click()Dim a As IntegerStatic b As Integera = a + 5: b = b + 5Print a, bEnd Sub(A) 5 10 (B) 5 5 (C) 10 10 (D) 0 0 在系统默认的情况下， Dim a(3, 4, 2 To 5) 定义的数组共有 _(19)_ 个元素。 (A) 36 (B) 48 (C) 60 (D) 80 下面的子过程定义语句中没有语法和逻辑错误的是_(20)_ 。(A) Sub S1(ByVal n%() (B) Sub S1(n As Integer) As Integer(C) Function S1(B

8、yVal n As Integer) (D) Function S1%(ByVal S1 As Integer) 执行了下面程序后，组合框中数据项的值是_(21)_ 。Private Sub Form_Click()For i=1 to 6 Combo1.AddItem i Next i For i= 1 to 3 Combo1.RemoveItem i Next iEnd Sub(A)1 5 6 (B)1 3 5 (C)4 5 6 (D)2 4 6 设窗体上有一个列表框控件 List1 ，且其中含有若干列表项。则以下能表示当前被选 中的列表项内容的是 _(22)_.(A)List1.List

9、 B) List1.ListIndex (C)List1.Index(D)List1. Text在窗体上画一个名称为Comma nd的命令按钮和一个名称为Textl的文本框，然后编 写如下事件过程：Private Sub Comma nd1_Click()n = Val(Text1.Text)For i = 2 To nFor j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j Sqr(i) Then Print iNext iEnd Sub 该事件过程的功能是 _(23)_(A) 输出 n 以内的奇数 (B) 输出 n 以内的偶数(C)

10、 输出 n 以内的素数 (D) 输出 n 以内能被 j 整除的数 如果要在菜单中添加一个分隔线，则应将其标题属性设置为_(24) 。(A)=(B)*(C)&(D)-以下关于文件的叙述中正确的是 _(25)_。(A) 一个记录中所包含的各元素的数据类型都是相同的(B) 随机文件中每个记录的长度是固定的(C) Open命令的作用是打开一个已经存在的文件(D) 使用In put # 语句可以从随时机文件中读取数据以下定义数组或给数组元素赋值的语句中，正确的是_(26)(A) Dim a As Varia nt a=Array(1,2,3,4,5)(C) Dim a%(10) a(1)=ABCDE(B

11、) Dim a(10) As In teger a=Array(1,2,3,4,5)(D) Dim a( 3),b(3) As In teger a(0)=0 : a(1)=1 : a(2)=2 : b=a(27)窗体中有一个命令按钮，编写如下程序，程序运行后，输出结果为Private Sub test(p,m, n)p=p+1: m=m+1: n=n+1Print“Sub:” ; p; m; nEnd SubPrivate Sub Comma nd1_Click()a1=1: b1= 2: c1=3Call test(a1,b1+3,(c1)Print “Main: ” ; a1; b1;

12、c1End Sub(A) Sub: 2 6 4(B) Sub: 2 6 4(C) Sub: 2 6 4(D) Sub: 2 6 4Mai n: 2 6 4Mai n: 1 6 4Mai n: 1 2 3Mai n: 2 23以下语句用于打开一个顺序文件 Ope nC:MyFile.txt For OutPut,但是该语句的一个重要错误是没有(28)。(A)指定打开方式(B)指定文件号(C)指定打开文件名(D)指定文件类型在窗体上画一个名称为Label1、标题为“ VisualBasic考试”的标签，两个名称分别 为Comma nd和Comma nd2标题分别为“开始”和“停止”的命令按钮，然后

13、画一个 名称为Timer1的计时器控件，并把其Interval属性设置为500。编写如下程序： Private Sub Form_Load()Timer1.E nabled=FalseEnd SubPrivate Sub Comma nd1_Click()Eabell .L eft = Labell 丄 eft + 20Timerl.E nabled=TrueLabel1.Left=0End SubEnd IfEnd Sub程序运行后，单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是_(29)_(A) 标签的移动方向为自右向左(B) 单击“停止”按钮后再单击“开始”按钮，标

14、签从停止的位置继续移动(C) 当标签全部移出窗体后，将从窗体的另一端出现并重新移动(D) 标签按指定的时间时隔移动设有如下程序，通过For循环计算一个表达式的值，这个表达式是 _(30):Private Sub Comma nd1_Click()Dim sum As Double, x As Doublesum = 0: n = 0For i = 1 To 5x = n / i: n = n + 1: sum = sum + xNextEnd Sub(A)1+1/2+ 2/3+3/4+4/5(B)1+1/2+2/3+3/4(C) 1/2+2/3+3/4+4/5(D)1+1/2+1/3+1/4+

15、1/5二、填空题(50分，每空2分)Visual Basic中有三种类型的模块文件，即类模块、标准模块和_1窗体模块。将数学式+丄写成VB表达式，应该是_2。 Sqr(yA3+3/abs(a*b) |ab|赋值语句：a=123 + MID(123456,3,2) 执行后，a变量中的值_3 468。Visual Basic提供的对数据文件的三种访问方式为顺序访问方式、_4和二进制访问方式。执行下列语句序列，显示的结果是5false 。a = 2: b = 3: c = 4: d = 5Print 3 2 * b Or a = c And b c Or c d运行下列程序，单击命令按钮，则Text

16、l中显示_65_，窗体中显示_70_Private Sub Comma nd1_Click()Dim i As In teger, j As In teger, a(5, 4) As In tegerFori = 2 To 3Forj = 2 To 4a(i, j) = i + jNext jNext iTextl.Text = a(3, 2)Print a(3, 1)End Sub如下图，窗体上有两个命令按扭 C1, C2及一个文本框Textl，当按下C1时，将C2 的标题与Textl中的内容交换。C1CommandPrivate Sub C1_Click()Dim a As Stri ng

17、Form1.C aptio n = 交换后 a =8C2.Captio nText1.Text =9aC2.Capti on = aEnd Sub请完善以下判断完数的程序。一个数如果恰好等于它的因 子之和，这个数就被称为“完数”。一个数的因子是指除 了该数本身以外能够被其整除的数。例如6是一个完数,因为 6=1+2+3Private Sub CmdJudge_Click()Dim a()m = Val(Text1.Text)ReDim a(1)If _ 13k=mThenPicture1.Pri nt m & 阜半米行疋兀数a(1) = 1Picture1.Print m;=;k = _101

18、_j = 1For i = 2 To m - 1For i = 1 To UBound(a) - 1Picture1.Pri nt a(i); +;Next iIf m Mod i = 0 ThenPicture1.Print_14a(i)或 a(ubound(a)ElsePicture1 Print m & 不是完数k = k + i因数和j = j + 1因数个数ReDim _11 a(j) _a(j) = 12i_End IfNext I(转右)编写程序。在窗体上显示如下图所示的“九九加法表”15OptionExplicitPrivate Sub Form_Click()Dim i%,

19、j%Print + 1 2 3 4 5 6 7 8 9For i = 1 To _169Print i;For j = 1 To _17iIf i + j 10 _18then_ Print ”；Print _19i+j_;Next j20printNext i1234567894 5 6 7 8s106 7 B o I 2ioMlon坨13148161TQ-Comma nd1的命令按钮，然后编写如下程序请填空End Sub在窗体上画一个名称为Swap调换数组中数值的存放位置，即 换，,a(5)与a(6)的值互换Option Base 1Private Sub Comma nd1_Click()Dim a(10) As In tegerFor i = 1 To 10a(i) = iNextCall Swap(_21a()_)For i = 1 To 10Print a(i);NextEnd Sub设当前文件夹已有文件