VB普通考试期末自测卷.docx

1、VB普通考试期末自测卷期末自测题（A卷）一、单选题（每题1分，共25分）1、211.66.160.1 是Internet上的( )。(A) IP地址 (B)域名 (C)密码 (D)软件编号2、在以下四个www网址中，（ ）网址不符合www网址书写规则。 (A) (B) .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

2、)用户名域名(B)用户名#域名 (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

3、As Integer) (C) Sub f1(ByVal n() 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

4、) 列表框和组合框都有Text属性 (D) 列表框与组合框都有Enabled属性13、窗体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

5、 , 3 )，在窗体上显示的内容是（ ）。(A)VVV (B)Vis (C)s (D) sualBasic 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、将组合框Combo1当前选中的项目内容赋值给变量S，正确的语句是（ ）。(A) S= Combo1.Tex

6、t (B) S = Combo1.Value (C) S= Combo1.List (D) S = Combo1.List(0)19、建立一个图书资料管理输入界面，要求选择图书的借阅情况(借出/未借)、语种（中文/英文/日文/其他）及分类（8类，存在重复分类，一本图书既属于1类，也同时属于2类）。应如何在窗体中利用单选钮和复选框实现（ ）。(A) 用一组14个复选框来实现(B) 将8种分类用一组8个复选框、借阅情况和语种用一组6个单选钮实现(C) 将8种分类用一组8个单选钮、借阅情况和语种用6个复选框实现(D) 将8种分类用一组8个复选框、借阅情况用一组2个单选钮、语种用一组4个单选钮实现20

7、、已知A、B、C中C最小，则判断A、B、C可否构成三角形三条边长的逻辑表达式是（ ）。(A) A=B And B=C And C0 (B) A+CB 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文本框和Command1命令按钮，并

8、有以下代码：Private Sub Command1_Click()Dim nIf Text1.Text 123456 Then n = n + 1 Print 口令输入错误 & n & 次！End IfEnd Sub 希望程序运行时若输入口令不正确，显示出错的次数（如下面图），但实际运行时没有出现预期效果（如上面图）。修改方案中正确的是（ ）。(A)在Dim n后添加一句：n=0 (B)将 Dim n改为Dim n% (C)将Dim n放到“通用”-“声明”处(D)将Print 口令输入错误 & n & 次！改为Print 口令输入错误 + n + 次！23、刚建立一个新的标准EXE工程后，

9、不在工具箱中出现的控件是（ ）。(A)单选按钮 (B) 图片框 (C) 通用对话框 (D) 文本框24、设有语句Open c:Test.Dat For Output As #1，则以下错误的叙述是（ ）。(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分

10、，共15分）1、执行下面的程序段后，列表框List1中余下的两项为 【1】 。 For i = 1 To 4 List1.AddItem i Next i For i = 1 To 2 List1.RemoveItem iNext i2、执行下面的程序段后，输出结果为 【2】 。x = 5For I = 1 To 20 Step 2 x = x + I 5Next IPrint x, I3、执行下面的程序段后，则在Text1中显示的值为 【3】 。Dim A%(10, 10), i%, j%For i = 1 To 10 For j = 1 To 10 A(i, j) = i + j Next

11、NextText1.Text = A(5, A(2, 3) + A(7, A(3, 4)4、执行下面的程序段后，在输入对话框中分别输入321和456，则窗体上的输出结果为 【4】 。a = InputBox(请输入一个整数)b = InputBox(请输入一个整数)Print a + b5、程序运行后，单击命令按钮，则两个标签中显示的内容分别为 【5】 。Private Sub Command1_Click()Dim x%, y% x = 5: y = 3 Call proc(x, y) Label1.Caption = x Label2.Caption = yEnd SubPrivate S

12、ub proc(ByVal a As Integer, b As Integer) a = a * b b = a + bEnd Sub三、填空题（每空2分,共40 分）1、请完善程序，功能是：随机生成一个8位数的整数，统计09这10个数字在生成的8位整数中出现的次数，并显示统计结果。Dim i%, s&, j%, a(0 To 9) As Integers = _ 【1】 _ Print 这个八位数是;sPrint 其中For j = 1 To 8 c = Val(Mid(s, j, 1) a(c) = _ 【2】 _Next jFor i = 0 To 9 If a(i) 0 Then P

13、rint i; 出现的次数;_ 【3】 _ _ 【4】 _Next i2、窗体上有一个名为List1的列表框，一个名称为Text1的文本框，一个命令按钮，标题分别为“计算”。 编写代码实现：1）程序启动时，将所有的3位素数添加到列表框中。函数Prime用于判断一个数是否为素数。请完善程序。2）单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果。请完善程序。Function Prime( n% ) As Boolean 判断素数函数 Dim i%Prime = 【5】 For i = 2 To Sqr(n) If 【6】 ThenPrime = False NextEn

14、d FunctionPrivate Sub Form_ 【7】 () Dim i%, j%, t As BooleanFor i = 100 To 999 If 【8】 Then List1.AddItem iNext iEnd SubPrivate Sub Command1_Click() 计算Dim i%，sum% For i = 0 To 【9】 Sum = sum + 【10】 Next Text1.Text = SumEnd Sub 3、将“ABC” 添加到列表框List1中第三项的语句为： 【11】 。4、求分段函数的值，可用y = IIf( 【12】 )。5、设置文本框Text1

15、中的文本字体颜色为红色的语句为： 【13】 。6、命令按钮Command1左移200，实现语句是 【14】 。7、将D:根目录下的顺序文件t1.txt内容读入变量S，并显示在文本框Text1中；继而将其中的字母（包括大小写）、数字及其它字符的分别串成不同的字符串，最后将结果显示在图形框P1中。请完善程序段。 Dim s$, i%, c$, n1$, n2$, n3$Open D:t1.txt For 【15】 As #1Do While 【16】 s = 【17】 文件的内容逐个读入变量sText1.Text = Text1.Text & s LoopClose #1For i = 1 To

16、Len(s) c = Mid( 【18】 ) Select Case c Case 【19】 n1 = n1 & cCase 0 To 9 n2 = n2 & c 【20】 n3 = 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) IP地址 (B)域名 (C)密码 (D)软件编号2、是Internet上的( )。(A) IP地址 (B)域名 (C)密码 (D)软件编号3、计算机病毒是（ ）。(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函数返回值的类型为（ ）

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

20、(A) 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的值是 【2】 。 a =

21、 0 For i = 1 To 3 For j = 1 To 3 If j i Then a = a + 1 Next j Next i Print a3、程序运行后，单击命令按钮，则两个标签中显示的内容分别为 【3】 。Private Sub Command1_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 Sub

22、4、程序运行后，单击命令按钮，则变量 a 的值是 【4】 。Private Sub Command1_Click()temp = Int (-0.8)Select Case temp Case Is 0 a = 正 End SelectEnd Sub5、执行下面的程序段后，输出结果为 【5】 。Dim A%(10, 10), i%, j%For i = 1 To 10 For j = 1 To 10 A(i, j) = i * j NextNextPrint A(5, A(2, 3) + A(7, A(3, 3)三、填空题（共40 分，每空2 分）1、要使用下列For循环执行20次，请在下划线

23、处填入正确的值。For k= 【1】 To 2 Step -52、命令按钮Command1右移200，实现语句是 【2】 。3、设a、b、c都是整型变量，判断“a和b中有一个小于c”的表达式是 【3】 。4、请完善程序，功能是：在文本框Text1中输入一串字符，在窗体上输出其中出现频率最高的字母（不区分大小写）及其出现次数。例如：输入“This is a beautiful world.”则输出“使用频率最高的是i，共出现3次。”Private Sub Command1_Click() Dim s$, a%(65 To 90), i%, max%, n% s = Text1.Text For i = 1 To Len(s) n = Asc( 【4】 ) If n = 65 And n a(max) Then 【7】 NextPrint 使用频率最高的是: & 【8】 & ,共出现 & a(max) & 次。End Sub5、窗体上有一个