vb期末自测卷卷答案

2017-03-27

6220

答案仅供参考期末自测题（A 卷）一、单选题（每题1分，共25分）1、211.66.160.1 是Internet 上的( )。(A) IP地址 (B)域名 (

答案仅供参考

期末自测题（A 卷）

一、单选题（每题1分，共25分）

1、211.66.160.1 是Internet 上的( )。

(A) IP地址 (B)域名 (C)密码 (D)软件编号

2、在以下四个www 网址中，（）网址不符合www 网址书写规则。

(A) www.163.com (B) www.gdpu.cn.edu

3、下列字符中，其ASCII 码值最小的一个是（）。

(A) A (B) a (C) Z (D) X

4、下列软件中属于浏览器的是（）。

(A) Excel (B) Internet Explorer (C) QQ (D) Visual Basic

5、电子邮件(E-mail)地址的正确形式是（）。

(A)用户名@域名 (B)用户名#域名 (C)用户名/域名 (D)用户名. 域名

6、下面变量名不合法的是（）。

(A) a2 (B) abcd (C) a$x (D) Cd_E

7、下列表达式中，正确的Visual Basic表达式是（）。

(A) 2sin45° (B) ∏*R2 (C) x÷y×5 (D) （x 1）/（x^2 1）/2

8、下面逻辑表达式的值为真的是（）。

(A) "A"> "a" (B) "abc"> "bc"

9、下列过程定义语句说明不合法的是（）。

(A) Sub f1(ByRef n() As Integer) (B) Sub f1(ByRef n As Integer)

10、执行下面的4个打印语句，将出错的是（）。

(A) Print a = 3 5 (B) Print "a="; 3 5

11、语句 For i = -3 To 20 Step 4 的循环次数为（）。

(A) 5 (B) 6 (C) 7 (D) 8

12、下列叙述中错误的是（）。

(A) 列表框与组合框都有List 属性 (B) 列表框与组合框都有Selected 属性

13、窗体Form1里有两个对象，分别是图片框P1和标签L1。那么下面关于Print 方法的使用中，错误的语句为（）。

(A) P1.Print 147 (B) Print 147

14、通过设置图像框Image 的（）属性，可以自动调整图形的大小，以适应图像框Image 的尺寸。

(A) Autosize (B) Stretch (C) AutoRedraw (D) Appearance

15、执行语句 Print Left( "VisualBasic" , 3 ) ，在窗体上显示的内容是（）。

(A)VVV (B)Vis (C)s (D) sualBasic

16、以下叙述中正确的是（）。

(A) 窗体的Name 属性指定窗体的名称，用来标识一个窗体

(B) 窗体的Name 属性的值是显示在窗体标题栏中的文本

(D) 对象的Name 属性值可以为空

17、设x 是整型变量，与函数IIf( x > 0 , -x , x ) 有相同结果的代数式是（）。

(A)|x| (B)-|x| (C) x (D )-x

18、将组合框Combo1当前选中的项目内容赋值给变量S ，正确的语句是（）。

(A) S= Combo1.Text (B) S = Combo1.Value

19、建立一个图书资料管理输入界面，要求选择图书的借阅情况(借出/未借) 、语种（中文/英文/日文/其他）及分类（8类，存在重复分类，一本图书既属于1类，也同时属于2类）。应如何在窗体中利用单选钮和复选框实现（）。

(A) 用一组14个复选框来实现

(B) 将8种分类用一组8个复选框、借阅情况和语种用一组6个单选钮实现

(D) 将8种分类用一组8个复选框、借阅情况用一组2个单选钮、语种用一组4个单选钮实现

20、已知A 、B 、C 中C 最小，则判断A 、B 、C 可否构成三角形三条边长的逻辑表达式是（）。

(A) A>=B And B>=C And C>0 (B) A C>B And B C >A And C>0

(C)(A B)>=C And A-B <=C) And C>0 (D) A B>C And A-B>C And C>0

21、执行（）后，会弹出如下图所示的窗口。

(A) x = InputBox("输入框", "请输入VB 数据")

(B) InputBox("输入框", "请输入VB 数据")

(D) InputBox("请输入VB 数据"," 输入框")

22、窗体有Text1文本框和Command1命令按钮，并有

以下代码：

Private Sub Command1_Click()

Dim n

If Text1.Text <> "123456" Then

n = n 1

Print "口令输入错误" & n & "次！"

End If

End 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，则以下错误的叙述是（）。

(A) 该语句打开C 盘根目录下一个已存在的文件Test.Dat

(B) 该语句在C 盘根目录下建立一个名为Test.Dat 的文件

(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.RemoveItem i

Next i

2、执行下面的程序段后，输出结果为 25,21 。

x = 5

For I = 1 To 20 Step 2

x = x I 5

Next I

Print x, I

3、执行下面的程序段后，则在Text1中显示的值为 24 。

Dim A(10, 10), i, j

For i = 1 To 10

For j = 1 To 10

A(i, j) = i j

Text1.Text = A(5, A(2, 3)) A(7, A(3, 4))

4、执行下面的程序段后，在输入对话框中分别输入321和456，则窗体上的输出结果为 321456 。

a = InputBox("请输入一个整数")

b = InputBox("请输入一个整数")

Print a b

5、程序运行后，单击命令按钮，则两个标签中显示的内容分别为 5,18 。

Private Sub Command1_Click()

Dim x, y

x = 5: y = 3

Call proc(x, y)

Label1.Caption = x

Label2.Caption = y

End Sub

Private Sub proc(ByVal a As Integer, b As Integer)

a = a * b

b = a b

End Sub

三、填空题（每空2分, 共40 分）

1、请完善程序，功能是：随机生成一个8位数的整数，统计0～9这10个数字在生成的8位整数中出现的次数，并显示统计结果。

Dim i, s&, j, a(0 To 9) As Integer

s = _INT(RND*9000000000) 10000000

Print "这个八位数是";s

Print "其中"

For j = 1 To 8

c = Val(Mid(s, j, 1))

a(c) = _a(c) 1__ _____

Next J

For i = 0 To 9

If a(i) <> 0 Then

Print i; "出现的次数";___ a(1) _____

___ end if _____

Next i

2、窗体上有一个名为List1的列表框，一个名称为Text1的文本框，一个命令按钮，标题分别为“计算”。编写代码实现：

1）程序启动时，将所有的3位素数添加到列表框中。函数Prime 用于判断一个数是否为素数。请完善程序。

2）单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果。请完善程序。

Function Prime( n ) As Boolean '判断素数函数

Dim i

Prime = true

For i = 2 To Sqr(n)

If n mod i=0 Then Prime = False

End Function

Private Sub Form_ load ()

Dim i, j, t As Boolean

For i = 100 To 999

If prime(i)=true

Then List1.AddItem i

Next i

End Sub

Private Sub Command1_Click() ‘计算

Dim i，sum

For i = 0 To list1.listcount-1

Sum = sum list1.list(i)

Text1.Text = Sum

End Sub

3、将“ABC ” 添加到列表框List1中第三项的语句为： list1.additem “ABC”,2 。

⎧1 x

4、求分段函数 y =⎨2⎩x 2x (x ≥0) (x <0) 的值，可用y = IIf(x>0,1 x,x^2 ︱2x ︱) 。

5、设置文本框Text1中的文本字体颜色为红色的语句为： text1.forecolor=vbred 。

6、命令按钮Command1左移200，实现语句是 command1.left=command1.left-200 。

7、将D:根目录下的顺序文件t1.txt 内容读入变量S ，并显示在文本框Text1中；继而将其中的字母（包括大小写）、数字及其它字符的分别串成不同的字符串，最后将结果显示在图形框P1中。请完善程序段。

Dim s$, i, c$, n1$, n2$, n3$

Open "D:t1.txt" For input As #1

Do While Not Eof(1)

s = Input(1,1) '文件的内容逐个读入变量s

Text1.Text = Text1.Text & s

Loop

Close #1

For i = 1 To Len(s)

c = Mid( s,i,1 )

Select Case c

Case “A ” to ”Z ”, ”a ” to ”z ”

n1 = n1 & c

Case "0" To "9"

n2 = n2 & c

case else

n3 = n3 & c

End Select

P1.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 项（该数列的规律是从第四项开始，每一项是前三项之和），直到某项的值超过50000。

期末自测题（B 卷）

一、单选题（每题1分，共25分）

1、211.66.160.1 是Internet 上的( A )。

(A) IP地址 (B)域名 (C)密码 (D)软件编号

2、www.gdpu.edu.cn 是Internet 上的( B )。

(A) IP地址 (B)域名 (C)密码 (D)软件编号

3、计算机病毒是（D ）。

(A) 一种令人生畏的传染病 (B) 一种使硬盘无法工作的细菌

4、下列表示存储容量的数据中，（）是最大的。

(A) 1.44MB (B) 20480KB (C) 1 GB (D)48657 Byte

5、下列设备中，不能作为计算机输出设备的是（）。

(A)显示器 (B)绘图仪 (C)扫描仪 (D)打印机

6、下列字符序列中，可以作为变量名的是（）。

(A) a24 (B) ab*d (C) a$x (D) Cd E

7、表达式 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 Sub

10、在默认情况下，InputBox 函数返回值的类型为（）。

(A) 数值 (B)字符串 (C) 变体 (D) 数值或字符串(视输入的数据而定)

11、窗体上有一水平滚动条，其Max 为1，Min 为100。以下叙述中正确的是（）。

(A) 程序运行时，若使滚动块向左移动，滚动条的Value 属性值会增大

(B) 程序运行时，若使滚动块向左移动，滚动条的Value 属性值会减小

(D) 由于滚动条的Max 值小于Min 值，程序运行时滚动条的长度会缩为一点，滑块无法移动

12、在窗体上有两个名分别为Op1、Op2的单选按钮，一个名称为Ck1的复选框。程序运行后，要求Op1和Ck1被选中，以下能实现上述操作的程序段是（）。

(A) Op1.Value = True (B) Op1.Value = True Ck1.Value = True Ck1.Value = 1

Ck1.Value = 0 (D) Op1.Value = True Ck1.Value = 2 13、设x=30,执行语句y = IIf(x > 10, x 10, IIf(x < 0, x ^ 2, x ^ 3))后，y 值是（）。

(A) 30 (B) 40 (C) 900 (D) 2700

14、以下定义数组或给数组元素赋值的语句中，正确的是（）。

（A ）Dim a As Variant （B ）Dim a(10) As Integer

a=Array(1,2,3,4,5) a=Array(1,2,3,4,5)

（C ）Dim a(10)

a(1)="ABCDE" （D ）Dim a(3),b(3) As Integer a(0)=0:a(1)=1:a(2)=2:b=a

15、下列语句中错误的是（）。

(A) Text1.Text = List1.Text (B) Label1.Caption = List1.Text

16、下列叙述中错误的是（）。

(A) 列表框与组合框都有List 属性 (B) 列表框有Selected 属性，而组合框没有

17、如果要在菜单中添加一个分隔线，则应将其Caption 属性设置为（）。

(A) = (B) * (C) & (D) -

18、将组合框Combo1当前选中的项目下标赋值给变量S ，正确的语句是（）。

(A) S= Combo1.Text (B) S = Combo1.ListIndex

19、要向文件t1.txt 添加数据，正确的文件打开命令是（）。

(A) Open "t1.txt" For Write As #1 (B) Open "t1.txt" For Append As #1

20、表达式Abs(-5) Len("ABCDE")的值是（）。

(A) -5ABCDE (B) 5ABCDE (C) 0 (D) 10

21、执行语句 Print Mid( "VisualBasic" , 3 ) ，在窗体上显示的内容是（）。

(A)s (B)Vis (C)sua (D) sualBasic

22、VB 中窗体、图片框或图像框装入图形可使用（）函数。

(A) LoadPicture (B) PictureLoad (C) LoadImage (D) Imageload

23、有如下声明语句：Dim str1 As String*5，则执行语句Str1= "Visual Basic " 后，str1的值是（）。

(A) Visual (B) Visua (C) Visual Basic (D) V

24、窗体上有两个列表框List1和List2，List1中有若干项目（如下图所示），并有下面程序：

Private Sub Command1_Click()

For k = 0 To List1.ListCount - 1

If List1.Selected(k) Then

List2.AddItem List1.List(k)

List1.RemoveItem k

End If

Next k

End Sub

程序运行时若按图示在List1中选中2个项目并单击命令按钮，则产生的结果是（）。

(A)在List2中添加了“物理”、“计算机”两项

(B)在List1中删除了“物理”、“计算机”两项

(C)同时产生(A) 和(B) 的结果

(D)出现错误提示

25、能表示身高H 超于1.7米且体重W 小于62.5千克的逻辑表达式是（）。

(A) H > 1.7 And W <= 62.5 (B) H <= 1.7 Or W >= 62.5

二、程序阅读题（每题3分，共15分）

1、程序运行后，单击命令按钮，输出结果为 1,3,5 。

Private Sub Command1_Click()

Dim num As Integer

num = 1

Do Until num > 6

Print num;

num = num 2.4

Loop

End Sub

2、以下程序片段运行后输出a 的值是 3 。

a = 0

For i = 1 To 3

For j = 1 To 3

If j < i Then a = a 1

Next j

Next i

Print a

3、程序运行后，单击命令按钮，则两个标签中显示的内容分别为 25,3 。

Private Sub Command1_Click()

Dim x, y

x = 5: y = 3

Call proc(x, y)

Label1.Caption = x

Label2.Caption = y

End Sub

Private Sub proc(a As Integer, ByVal b As Integer)

a = a* a

b = b b

End Sub

4、程序运行后，单击命令按钮，则变量 a 的值是负。

Private Sub Command1_Click()

temp = Int (-0.8)

Select Case temp

Case Is < 0

a = "负"

Case 0

a = "零"

Case Is > 0

a = "正"

End Select

End Sub

5、执行下面的程序段后，输出结果为 93 。

Dim A(10, 10), i, j

For i = 1 To 10

For j = 1 To 10

A(i, j) = i * j

Print A(5, A(2, 3)) A(7, A(3, 3))

三、填空题（共40 分，每空2 分）

1、要使用下列For 循环执行20次，请在下划线处填入正确的值。

For k= 97 To –2 Step -5

2、命令按钮Command1右移200，实现语句是 command1.left=command1.left 200 。

3、设a 、b 、c 都是整型变量，判断“a 和b 中有一个小于c ”的表达式是 a

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( mid(s,i,1) )

If n >= 65 And n <= 90 Then

a(n)=a(n) 1

End If

max = 65

For i = 65 to 90

If a(i) > a(max) Then max=i

Print "使用频率最高的是:" & chr(max) & ",共出现" & a(max) & " 次。"

End Sub

5、窗体上有一个名为List1的列表框，一个名称为Text1的文本框，一个命令按钮，标题分别为“计算”。

相关推荐