vb期末自测卷卷答案

《vb期末自测卷卷答案》由会员分享，可在线阅读，更多相关《vb期末自测卷卷答案（11页珍藏版）》请在装配图网上搜索。

1、.答案仅供参考期末自测题A卷一、单项选择题每题1分，共25分1、211.66.160.1 是Internet上的( )。(A) IP地址 (B)域名 (C)密码 (D)软件编号2、在以下四个网址中，网址不符合网址书写规那么。(A) .163.(B) .gdpu.edu(C) . (D) 3、以下字符中，其ASCII码值最小的一个是。(A) A (B) a (C) Z (D) X4、以下软件中属于浏览器的是。(A) Excel (B) Internet Explorer (C) QQ (D) Visual Basic 5、电子(E-mail)地址的正确形式是。(A)用户名域名(B)用户名#域名

2、(C)用户名/域名 (D)用户名.域名6、下面变量名不合法的是。(A) a2 (B) abcd (C) a$x (D) Cd_E7、以下表达式中，正确的Visual Basic表达式是。(A) 2sin45 (B) *R2 (C) xy5 (D) x+1/x2+1/2 8、下面逻辑表达式的值为真的是。(A) A a (B) abc bc (C) That Thank (D) 12 12.1 9、以下过程定义语句说明不合法的是。(A) Sub f1(ByRef n() As Integer) (B) Sub f1(ByRef n As Integer) (C) Sub f1(ByVal n()

3、As Integer) (D) Sub f1(ByVal n As Integer)10、执行下面的4个打印语句，将出错的是 。(A) Print a = 3 + 5 (B) Print a=; 3 + 5 (C) Print a=3+5 (D) Print a=; 3 + 511、语句 For i = -3 To 20 Step 4 的循环次数为。(A) 5 (B) 6 (C) 7 (D) 812、以下表达中错误的选项是。(A) 列表框与组合框都有List属性 (B) 列表框与组合框都有Selected属性(C) 列表框和组合框都有Text属性 (D) 列表框与组合框都有Enabled属性1

4、3、窗体Form1里有两个对象，分别是图片框P1和标签L1。那么下面关于Print方法的使用中，错误的语句为。(A) P1.Print 147 (B) Print 147 (C) Form1.Print 147 (D) L1.Print 14714、通过设置图像框Image的属性，可以自动调整图形的大小，以适应图像框Image的尺寸。(A) Autosize (B) Stretch (C) AutoRedraw (D) Appearance15、执行语句 Print Left( VisualBasic , 3 )，在窗体上显示的容是。(A)VVV (B)Vis (C)s (D) sualBas

5、ic 16、以下表达中正确的选项是。(A) 窗体的Name属性指定窗体的名称，用来标识一个窗体(B) 窗体的Name属性的值是显示在窗体标题栏中的文本(C) 可以在运行期间改变对象的Name属性的值(D) 对象的Name属性值可以为空17、设x是整型变量，与函数IIf( x 0 , -x , x )有相同结果的代数式是。(A)|x| (B)-|x| (C) x (D )-x 18、将组合框bo1当前选中的项目容赋值给变量S，正确的语句是。(A) S= bo1.Text (B) S = bo1.Value (C) S= bo1.List (D) S = bo1.List(0)19、建立一个图书资

6、料管理输入界面，要求选择图书的借阅情况(借出/未借)、语种中文/英文/日文/其他及分类8类，存在重复分类，一本图书既属于1类，也同时属于2类。应如何在窗体中利用单项选择钮和复选框实现。(A) 用一组14个复选框来实现(B) 将8种分类用一组8个复选框、借阅情况和语种用一组6个单项选择钮实现(C) 将8种分类用一组8个单项选择钮、借阅情况和语种用6个复选框实现(D) 将8种分类用一组8个复选框、借阅情况用一组2个单项选择钮、语种用一组4个单项选择钮实现20、A、B、C中C最小，那么判断A、B、C可否构成三角形三条边长的逻辑表达式是。(A) A=B And B=C And C0 (B) A+CB

7、And B+C A And C0(C)(A+B)=C And A-B 0 (D) A+BC And A-BC And C021、执行后，会弹出如以下图所示的窗口。(A) x = InputBox(输入框, 请输入VB数据) (B) InputBox(输入框, 请输入VB数据) (C) x = InputBox(请输入VB数据,输入框) (D) InputBox(请输入VB数据,输入框)22、窗体有Text1文本框和mand1命令按钮，并有以下代码：Private Sub mand1_Click()Dim nIf Text1.Text 123456 Then n = n + 1 Print 口令

8、输入错误 & n & 次！End IfEnd Sub希望程序运行时假设输入口令不正确，显示出错的次数如下面图，但实际运行时没有出现预期效果如上面图。修改方案中正确的选项是。(A)在Dim n后添加一句：n=0 (B)将 Dim n改为Dim n% (C)将Dim n放到“通用-“声明处(D)将Print 口令输入错误 & n & 次！改为Print 口令输入错误 + n + 次！23、刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是。(A)单项选择按钮 (B)图片框 (C) 通用对话框 (D)文本框24、设有语句Open c:Test.Dat For Output As #1，那么以下

9、错误的表达是。(A) 该语句打开C盘根目录下一个已存在的文件Test.Dat (B) 该语句在C盘根目录下建立一个名为Test.Dat的文件(C) 该语句建立的文件的文件号为1(D) 执行该语句后，就可以通过Print #语句向文件Test.Dat中写入信息25、滚动条产生Change事件是因为值改变了。(A) Max (B) Min (C) Value (D) Caption二、程序阅读题每题3分，共15分1、执行下面的程序段后，列表框List1中余下的两项为1,3。 For i = 1 To 4 List1.AddItem i Next i For i = 1 To 2 List1.Rem

10、oveItem iNext i2、执行下面的程序段后，输出结果为25,21。x = 5For I = 1 To 20 Step 2 x = x + I 5Next IPrint x, I3、执行下面的程序段后，那么在Text1中显示的值为24。Dim A%(10, 10), i%, j%For i = 1 To 10 For j = 1 To 10A(i, j) = i + j NextNextText1.Text = A(5, A(2, 3) + A(7, A(3, 4)4、执行下面的程序段后，在输入对话框中分别输入321和456，那么窗体上的输出结果为321456。a = InputBox

11、(请输入一个整数)b = InputBox(请输入一个整数)Print a + b5、程序运行后，单击命令按钮，那么两个标签中显示的容分别为5,18。Private Sub mand1_Click()Dim x%, y% x = 5: y = 3 Call proc(x, y) Label1.Caption = x Label2.Caption = yEnd SubPrivate Sub proc(ByVal a As Integer, b As Integer) a = a * b b = a + bEnd Sub三、填空题每空2分,共40 分1、请完善程序，功能是：随机生成一个8位数的整数

12、，统计09这10个数字在生成的8位整数中出现的次数，并显示统计结果。Dim i%, s&, j%, a(0 To 9) As Integers = _INT(RND*9000000000)+10000000Print 这个八位数是;sPrint 其中For j = 1 To 8c = Val(Mid(s, j, 1) a(c) = _a(c)+1_ _Next JFor i = 0 To 9 If a(i) 0 Then Print i; 出现的次数;_ a(1) _ end if_Next i2、窗体上有一个名为List1的列表框，一个名称为Text1的文本框，一个命令按钮，标题分别为“计算

13、。编写代码实现：1程序启动时，将所有的3位素数添加到列表框中。函数Prime用于判断一个数是否为素数。请完善程序。2单击“计算按钮，那么对List1中的数进行累加求和，并在文本框中显示计算结果。请完善程序。Function Prime( n% ) As Boolean 判断素数函数 Dim i%Prime =true For i = 2 To Sqr(n) Ifn mod i=0 ThenPrime = False NextEnd FunctionPrivate Sub Form_ load() Dim i%, j%, t As BooleanFor i = 100 To 999 If pri

14、me(i)=true Then List1.AddItem iNext iEnd SubPrivate Sub mand1_Click() 计算Dim i%，sum% For i = 0 To list1.listcount-1 Sum = sum + list1.list(i) Next Text1.Text = SumEnd Sub 3、将“ABC添加到列表框List1中第三项的语句为：list1.additem “ABC,2。4、求分段函数的值，可用y = IIf(x0,1+x,x2+2x)。5、设置文本框Text1中的文本字体颜色为红色的语句为：text1.forecolor=vbre

15、d。6、命令按钮mand1左移200，实现语句是mand1.left=mand1.left-200。7、将D:根目录下的顺序文件t1.txt容读入变量S，并显示在文本框Text1中；继而将其中的字母包括大小写、数字及其它字符的分别串成不同的字符串，最后将结果显示在图形框P1中。请完善程序段。Dim s$, i%, c$, n1$, n2$, n3$Open D:t1.txt For input As #1Do While Not Eof(1)s = Input(1,1) 文件的容逐个读入变量sText1.Text = Text1.Text & sLoopClose #1For i = 1 To

16、 Len(s) c = Mid( s,i,1) Select Case c Case “A to Z,a to zn1 = n1 & cCase 0 To 9n2 = n2 & ccase elsen3 = n3 & cEnd SelectNextP1.Print 字母串为：; n1 P1.Print 数字串为：; n2 P1.Print 其它字符串为：; n3 四、程序设计题每题10分，共20分1、编程计算圆周率 Pi的近似值。计算公式如下，一直到 1/i 小于0.0000001为止。2、编写程序，形成数列1，1，1，3，5，9，17，的前N项该数列的规律是从第四项开始，每一项为哪一项前三项

17、之和，直到某项的值超过50000。期末自测题B卷一、单项选择题每题1分，共25分1、211.66.160.1 是Internet上的( A )。(A) IP地址 (B)域名 (C)密码 (D)软件编号2、.gdpu.edu.是Internet上的( B )。(A) IP地址(B)域名 (C)密码 (D)软件编号3、计算机病毒是D。(A) 一种令人生畏的传染病 (B) 一种使硬盘无法工作的细菌 (C) 一种可治的病毒性疾病 (D) 一种使计算机无常工作的破坏性程序4、以下表示存储容量的数据中，是最大的。(A) 1.44MB (B) 20480KB (C) 1 GB (D)48657 Byte 5

18、、以下设备中，不能作为计算机输出设备的是。(A)显示器 (B)绘图仪(C)扫描仪 (D)打印机6、以下字符序列中，可以作为变量名的是。(A) a24 (B) ab*d (C) a$x (D) Cd E7、表达式 5 Mod 3+35*2的值是。(A) 0 (B) 2 (C) 4 (D) 6 8、改变控件在窗体中的上下位置，应修改控件的属性。(A) Top (B) Left (C) Width (D) Right 9、以下语句错误的选项是。(A) Exit For (B) Exit If (C) Exit Do (D) Exit Sub10、在默认情况下，InputBox函数返回值的类型为。(A

19、) 数值(B)字符串 (C) 变体 (D) 数值或字符串(视输入的数据而定)11、窗体上有一水平滚动条，其Max为1，Min为100。以下表达中正确的选项是。(A) 程序运行时，假设使滚动块向左移动，滚动条的Value属性值会增大(B) 程序运行时，假设使滚动块向左移动，滚动条的Value属性值会减小(C) 由于滚动条的Max值小于Min值，程序出错(D) 由于滚动条的Max值小于Min值，程序运行时滚动条的长度会缩为一点，滑块无法移动12、在窗体上有两个名分别为Op1、Op2的单项选择按钮，一个名称为Ck1的复选框。程序运行后，要求Op1和Ck1被选中，以下能实现上述操作的程序段是。(A)

20、Op1.Value = TrueCk1.Value = True (B) Op1.Value = TrueCk1.Value = 1(C) Op1.Value = FalseCk1.Value = 0(D) Op1.Value = TrueCk1.Value = 213、设x=30,执行语句y = IIf(x 10, x + 10, IIf(x 1.7 And W = 62.5 (B) H = 62.5 (C) H 1.7 And W 1.7 Or W 6 Print num; num = num + 2.4 LoopEnd Sub2、以下程序片段运行后输出a的值是3。 a = 0 For i

21、 = 1 To 3For j = 1 To 3 If j i Then a = a + 1 Next j Next i Print a3、程序运行后，单击命令按钮，那么两个标签中显示的容分别为25,3。Private Sub mand1_Click()Dim x%, y% x = 5: y = 3 Call proc(x, y) Label1.Caption = x Label2.Caption = yEnd SubPrivate Sub proc(a As Integer, ByVal b As Integer) a = a* a b = b + b End Sub4、程序运行后，单击命令按

22、钮，那么变量 a 的值是负。Private Sub mand1_Click()temp = Int (-0.8)Select Case temp Case Is 0 a = 正 End SelectEnd Sub5、执行下面的程序段后，输出结果为93。Dim A%(10, 10), i%, j%For i = 1 To 10For j = 1 To 10A(i, j) = i * j NextNextPrint A(5, A(2, 3) + A(7, A(3, 3)三、填空题共40 分，每空2 分1、要使用以下For循环执行20次，请在下划线处填入正确的值。For k= 97To 2 Step

23、 -52、命令按钮mand1右移200，实现语句是mand1.left=mand1.left+200。3、设a、b、c都是整型变量，判断“a和b中有一个小于c的表达式是ac or b= 65 And n a(max) Then max=i NextPrint 使用频率最高的是: & chr(max) & ,共出现 & a(max) & 次。End Sub5、窗体上有一个名为List1的列表框，一个名称为Text1的文本框，一个命令按钮，标题分别为“计算。1程序启动时，将1000以完数添加到列表框中。函数PerfNum用于判断一个数是否为完数(一个数如果恰好等于它的因子之和，这个数就被称为“完数

24、。一个数的因子是指除了该数本身以外能够被其整除的数)。请完善程序。2单击“计算按钮，那么对List1中的数进行累加求和，并在文本框中显示计算结果。请完善程序。Function PerfNum ( n% ) As Boolean 判断完数函数 Dim i% , s%For i = 1 To n - 1 If n mod i=0 Then s = s + iNext i If n=s Then PerfNum = True Else PerfNum = False End FunctionPrivate Sub Form_ load() Dim i%, j%, t As BooleanFor i

25、= 1 To 1000 If perfnum(i) Then List1.AddItem iNext iEnd SubPrivate Sub mand1_Click() 计算Dim i%，sum% For i = 0 To list1.listcount-1 Sum = sum + list1,list(i) Next Text1.Text = SumEnd Sub 6、设有一个文本文件c:aa.txt，其中有假设干容，如图，窗体界面如下图。1将文本文件c:aa.txt的数据读出来存放到数组中，并在列表框中显示。请完善程序。2在Text1中输入一个名字或姓氏，将找到的显示在Text2中，否那么

26、显示找不到。请完善程序。Dim a$(), n%Private Sub mand1_Click() 取数 Open c:aa.txt For input As #1 Do While Not EOF(1) n = n + 1redim Preserve a(n)input #1 , a(n)List1.AddItem a(n) Loop Close #1End SubPrivate Sub mand2_Click() 查找flag = FalseFor i = 1 To list1.listcountIf a(i) = Text1 Or Left(a(i), Len(Text1) = Text1 Then Text2 = Text2 & a(i) & vbCrLfFlag=true End IfNextIf Flag=false Then MsgBox 找不到！End Sub四、程序设计题每题10分，共20分1、今年我国的国民生产总值为300670亿元,假设今后每年以9%的增长率增长, 编写程序计算多少年后能实现国民生产总值翻一番 2、编写程序，计算并输出数列1，2，3，5，16，231的前N项该数列的规律是从第三项开始，每一项为哪一项前两项的平方差，N值通过InputBox输入。-