VB模拟试题8.docx

1、VB模拟试题8一、单选题（30分，每小题1分）1下列软件中_A_是操作系统。(A) Windows (B) Internet Explorer (C) WPS (D) Visual Basic2鼠标属于计算机中的_D_。(A) 中央处理器 (B) 存储器 (C) 输入设备 (D) 输出设备3下列表示存储容量的数据中，_C_是最大的。（A）20480 KB （B） 1.44 MB （C） 2.5 GB （D）4865723 Byte4十进制数13转换为二进制是_A_。(A) 1101 (B) 1011 (C) 1100 (D) 10105WINDOWS中扩展名为_B_的文件不是图形文件。(A)

2、JPG (B) EXE (C) BMP (D) ICO6在一个多窗体的工程中，如果有一个自定义函数需要被多个窗体调用，则此函数的定义可保存在一个_B_类型的文件中。(A) VBP (B) BAS (C) FRM (D) OCX7下列_B_可作为VB的变量名。(A) A&A (B) print_2 (C) 12AB (D) Const8下列对象中_B_不能作为放置其他控件的容器。(A) 窗体 (B) 文本框 (C) 图片框 (D) 框架9以下语句中_C_能在窗体的标题栏中显示“Visual Basic窗体”。(A) Form1.Title = Visual Basic窗体 (B) Form1.N

3、ame = Visual Basic窗体(C) Form1.Caption = Visual Basic窗体 (D) Form1.Text = Visual Basic窗体10设窗体中有一个列表框Listt1和一个标签Label1。列表框中显示若干城市名称，单击某个城市名时，标签中显示选中的城市名称。以下_D_事件过程能实现该功能。(A) Private Sub List1_Click() Label1.Caption = List1.ListIndexEnd Sub(B) Private Sub List1_Click() Label1.Text = List1.ListIndexEnd S

4、ub(C) Private Sub List1_Click() Label1.Text = List1.TextEnd Sub(D) Private Sub List1_Click() Label1.Caption = List1.TextEnd Sub11窗体中有一个命令按钮Command1。运行下列程序时单击命令按钮，则窗体中显示_C_。Private Sub Command1_Click() Dim city As String city = Array(北京, 上海, 南京, 广州) Print city(1)End Sub(A) 空白 (B) 北京 (C) 上海 (D) 出现错误提示

5、12窗体中有一个命令按钮Command1。运行下列程序，单击命令按钮，窗体中显示_C_。Dim X As Integer, Y As Integer (通用)(声明)Private Sub Proc(ByVal a As Integer, ByVal b As Integer) X = a * a Y = b + bEnd SubPrivate Sub Command1_Click() X = 5: Y = 3 Call Proc(X, Y) Print X, YEnd Sub(A) 5 3 (B) 25 3 (C) 25 6 (D) 5 613在以下过程中，Public表示_D_。Publi

6、c Sub F(x As Integer) End Sub(A) 此过程可以被任何其它过程调用 (B) 此过程只可以被本窗体模块中的其它过程调用(C) 此过程不可以被任何其它过程调用 (D) 此过程只可以被本工程中的其它过程调用14执行下面这段代码时，窗体中将会显示_D_。 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) 615需要将字符串S颠倒过来逆序排列形成字符串T，如将“ABCD”变成“DCBA”，下面的程序段中_D_不能实现该功能。(A) s =

7、 ABCD: t = For i = 1 To Len(s) t = t + Mid(s, Len(s) - i + 1, 1) Next i(B) s = ABCD: t = For i = 1 To Len(s) t = Mid(s, i, 1) + t Next i(C) S = ABCD: T = For i = Len(S) To 1 Step -1 T = T + Mid(S, i, 1) Next i(D) S = ABCD: T = For i = Len(S) To 1 Step -1 T = Mid(S, i, 1) + T Next i16下列函数中_D_的值与其它三个不

8、一样。(A) Val(1) (B) Abs(-1) (C) Int(1.3) (D) Sin(1)17设有如下程序，运行时单击命令按钮，则文本框中显示_A_。Sub F(a(), ByVal x As Integer) For i = 1 To 5 x = x + a(i) Next iEnd SubPrivate Sub Command1_Click() Dim arr(5), n As Integer For i = 1 To 5 arr(i) = i Next i n = 10 Call F(arr(), n) Text1.Text = nEnd Sub(A) 10 (B) 15 (C)

9、 25 (D) 2418以下程序段中_C_能正确地计算并显示5的阶乘。(A) n = 5: x = 1 Do x = x * i i = i + 1 Loop While i n Print x(B) n = 5: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i n Print x(C) n = 5: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i = n Print x(D) n = 5: x = 1 For i = n To 1 x = x * i Next i Print x19执行如下程

10、序，单击命令按钮3次，则标签Label1,Label2,Label3中分别显示_B_。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 = zEnd Sub (A) 10 10 10 (B) 10 30 10 (C) 30 30 30 (D) 10 30 3020设已执行b=Array(5,3,9,1,6)，现要将数组b的各个元

11、素逆序排列，程序段_B_可实现该功能。(A) For i = 0 To 5 - 1 2 tmp = b(i) b(i) = b(5 - i - 1) b(5 - i - 1) = tmp Next i(B) For i = 0 To 5 2 tmp = b(i) b(i) = b(5 - i - 1) b(5 - i - 1) = tmp Next i (C) For i = 0 To 5 tmp = b(i) b(i) = b(5 - i - 1) b(5 - i - 1) = tmp Next i(D) For i = 1 To 5 2 tmp = b(i) b(i) = b(5 - i

12、- 1) b(5 - i - 1) = tmp Next i21设组合框Combo1中有3个项目，则_D_可删除其中最后一项。(A) Combo1.RemoveItem Combo1.Text (B) Combo1.RemoveItem Combo1.Index(C) Combo1.RemoveItem Combo1.ListIndex (D) Combo1.RemoveItem Combo1.ListCount - 122执行下列程序段，文本框Text1中显示_A_。 n = Int(Rnd) + 3 Select Case n Case 1 To 10 x = 10 Case 2, 4,

13、6 x = 20 Case Is Abc (B) the they (C) VISUAL = UCase(Visual) (D) Integer Int24窗体中有命令按钮Command1，并已编写下列代码。运行程序时，单击命令按钮，窗体显示_C_。Function F(m As Integer) If m Mod 2 = 0 Then F = m Else F = 1 End IfEnd FunctionPrivate Sub Command1_Click() Dim i As Integer S = 0 For i = 1 To 5 S = S + F(i) Next Print SEnd

14、 Sub(A) 11 (B) 10 (C) 9 (D) 825设有如下代码，关于它的叙述_D_是正确的。Private Type animal AName As String * 20 AColor As String * 10End TypePrivate Sub Command1_Click() Dim rec As animal Open c:vbtest.dat For Random As #1 Len = Len(rec) rec.AName = Elephant rec.AColor = Black Put #1, , rec Close #1End Sub(A) 记录类型anim

15、al不能在窗体中定义，只能在标准模块中定义，所以运行会发生错误(B) 如果文件 c:vbtest.dat 不存在，则运行 Open 命令时发生错误(C) 由于Put命令没有指定记录号，因此每次写文件时都把记录写在文件尾(D) 语句“Put #1, , rec”的作用是把animal类型的两个数据元素写入文件26以下关于菜单的叙述中_D_是错误的。(A) 下拉菜单和弹出式菜单都用菜单编辑器建立(B) 在多窗体工程中，每个窗体都可是以有自己的菜单(C) 除分隔线外，所有的菜单项都能接收Click事件(D) 如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见27窗体中有如下事件过

16、程，如果希望运行时窗体显示如右图的形式，请选择适合的表达式完善程序。 c = 12341121231234 c1 = Trim(Str(c) For i = 1 To 4 Print _B_ Next(A) Right(c1,i) (B) Left(c,i) (C) Mid(c1,i,1) (D) Mid(c1,i,i)28下面这段程序的功能是_D_。n = Val(Text1.Text)For i = 2 To n For j = 2 To Sqr(i) If i Mod j = 0 Then Exit For Next j If j Sqr(i) Then Print iNext i(A)

17、 输出n以内的奇数 (B) 输出n以内的偶数(C) 输出2-n的所有数的阶乘 (D) 输出n以内的素数29窗体中有4个名为Command11的命令按钮，如图，下标从0开始，从上到下顺序增大。启动窗体时这4个命令按钮从上到下分别显示_A_。Private Sub Form_Load()For i = 0 To 3 Command1(i).Caption = Command1(i).IndexNext iEnd Sub(A) 0 1 2 3 (B) 1 2 3 4(C) 0 1 3 2 (D) 出错30窗体中有一个通用对话框CommonDialog1和一个命令按钮 Command1，并有以下代码。

18、关于这段程序功能的描述错误的是_B_。Private Sub Command1_Click() CommonDialog1.Filter = All File|*.*|Word Documents|*.doc|Text Documents|*.txt CommonDialog1.InitDir = D: CommonDialog1.Action = 2End Sub (A)产生一个“另存为”对话框 (B) 在这个对话框中只能选择Word文档或文本文件类型(C) 对话框中初始的路径是D盘的根目录 (D) 这个对话框不能真正实现保存文件的功能二、填空题（50分，每空2分，请在答题纸上标明每个空的编

19、号）1函数 Sin(30 * 3.14159 / 180) 的值为_10.5_。2VB中数据文件根据对文件的访问方式分为3类，即顺序文件、_2随机文件_和二进制文件。3执行下面这段程序后，窗体中显示_35_和_45.6_。 s = 2 For i = 3.2 To 4.9 Step 0.8 s = s + 1 Next i Print s, i4图片框Picture1中已显示一张图片d:pic1.jpg，单击命令按钮时希望清除该图片，使图片框显示为空白，完成下面的代码。Private Sub Command1_Click() _5Picture1.Picture = LoadPicture (

20、“ “)_End Sub5下面这段程序要在窗体显示20个100，200间的随机整数，求这些数的和，并显示其中5的倍数请完成程序。 For i = 1 To 20 x = Int(_6Rnd*101+100_) _7s=s+x_ If _8x mod 5 = 0 then print x;_ Next i Print 总和：; s6下面的程序可根据用户所输入的数在一个数组中查找相应的下标，完成程序。 Dim arr, i%, M As _9Integer_ arr = Array(12, 43, 76, 24, 54, 86, 49, 55) M = Val(InputBox(要查找的数) Fo

21、r i = _100 To 7_ If arr(i) = M Then _11k=i_ Next i Print 下标是：; k7窗体中有一个标签Label1和一个时钟控件Timer1。开始运行程序时，窗体显示如图(a)；单击窗体后显示如图(b)，其中的时钟每秒更新一次显示当前时间。请填空完成程序代码。Private Sub Form_Load() Timer1.Enabled = _12False_ Timer1._13Interval_ = 1000End SubPrivate Sub Form_Click() Timer1.Enabled=TrueEnd SubPrivate Sub T

22、imer1_Timer() _14Label1.Caption = Time_End Sub8窗体中有一个文本框Text1，其MultiLine属性值为True，执行下列程序，将文件t1.txt的内容显示在文本框中，请完善程序。Private Sub Command1_Click() Dim aspect$, Whole$ Open f:t1.txt For _15Input As #1_ Do While Not EOF(1) Line Input _16#1,aspect_ Whole = Whole + aspect + Chr(13) + Chr(10) Loop Text1.Text

23、 = Whole _17Close_End Sub9窗体中有文本框Text1，标签Label1和命令按钮Command1，并有如下两段事件过程：Private Sub Command1_Click() s$ = InputBox(请输入一串字符) Text1.Text = sEnd SubPrivate Sub Text1_Change() Label1.Caption = UCase(Mid(Text1.Text, 7)End Sub运行时单击命令按钮，在输入框中输入字符串“VisualBasic”，确定后标签显示_18BASIC_。10把数学式改写成VB表达式：_19(a+b)/(Log(

24、Abs(a)/Log(Exp(1)_。11一个数组中有10个元素，对它进行冒泡排序，元素进行交换的次数最大可能是_209_次。12窗体中有文本框Text1、列表框List1和标签Label1，程序运行时列表框中显示若干人的简单信息。在文本框中输入姓或姓名并回车，在列表框中查找相符的人的情况，找到时在标签中显示查找结果（如图(a)）；如果列表框中没有相符的项目，则显示相应的提示信息（如图(b)）。填空完成下面的程序。Private Sub Text1_ _21KeyPress_(KeyAscii As Integer) Dim i As Integer, n As Integer, Found

25、As Boolean If KeyAscii = 13 Then Found = _22False_ _23n_ = Len(Trim(Text1.Text) For i = 0 To List1.ListCount - 1 If Text1.Text = Left(List1.List(i), n) Then Label1.Caption = _24List1.List(i)_ Found = True End If Next i If Not Found Then _25MsgBox (“无此人”)_ End IfEnd Sub三、编程题（20分，每小题10分，请在答题纸上标明题号）1随机

26、产生10个正整数，求其中的最小值，并将原始数据和最小值显示在窗体中。Private Sub Form_Click()Dim i%, min%Dim a(10) As IntegerFor i = 1 To 10a(i) = Int(Rnd * 101)Print a(i);Next imin = a(1)For i = 2 To 10If a(i) min Then min = a(i)Next iPrintPrint 最小值： & minEnd Sub2窗体中有一个文本框Text1、两个标签Label1和Label2、一个垂直滚动条Vscroll1。点击滚动条，可使文本框中显示2，20之间的

27、一个正整数n，标签Label1中立刻显示 1！+ 2！+ + n!的值。运行界面如图。编写完整的事件过程完成以上功能。Private Sub Form_Load()VScroll1.min = 2VScroll1.max = 20Label1.Caption = Label2.Caption = n=End SubPrivate Sub Vscroll1_Change()Dim s As Double, I%, j%, n%, t As Doublet = 1Text1.Text = VScroll1.Valuen = Val(Text1.Text)For I = 1 To n t = 1For j = 1 To I t = t * jNext j s = s + tNext ILabel1.Caption = 1!+n! = & sEnd Sub