程序设计语言VB习题集含答案

62. 窗体的（B）方法可以清除窗体上的图形与文本。

A. print B. cls C. load D. circle

63. 窗体没有（B ）属性。

A. Caption B. Text C. Picture D. Top

64. 当一个工程有多个窗体时，其中的启动窗体是（D ）。

A. 第一个添加的窗体 B. 最后一个添加的窗体 C. 启动VB时建立的窗体

D. 在工程属性对话框中指定的窗体

65. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（C）。

A. 工程资源管理器窗口 B. 工具箱窗口 C. 代码窗口 D. 属性窗口

66. 以下哪种属性或者方法可以重新定义VB坐标系？（B ）

A. ScaleMode属性 B. Scale方法

C. DrawWidth和DrawStyle属性 D. BorderWidth和BorderStyle 属性

67. 指令Circle（2000，3000），2000，QBColor，－3.14/2，－3.14将绘制以下哪种图形？

（ C ） A. 圆 B. 椭圆 C. 扇形 D. 圆弧

68. 使用Line方法时，参数B和F可以组合使用，下列组合中（ D ）是不允许的。

A. 不使用B和F B. B

C. B和F D. F

69. 执行命令Line（200，200）－step（500，500）后，CurrentX＝（ C ）。

A. 200 B. 500

第 9 页 共 22 页

C. 700 D. 300

70. 在Visual Basic中,以下选项中表示单击事件的是（B）。

A. KeyUp B. Click C. Activate D. Load

71. 下面不属于键盘事件的是（ D）。

A. KeyUp B. KeyDown C. KeyPress D. Click

72. 每当窗体失去焦点时会触发的事件是（D）。

A. Active B. Deactive C. LostFocus D. Initialize

73. 设在窗体上有一通用对话框控件Commonialog1，通过调用（C）语句可以建立“颜色”

对话框。

A. Commonialog1.ShowOpen B. Commonialog1.Action=2 C. Commonialog1.ShowColor D. Commonialog1.Action=5

74. 用语句Commonialog1.ShowOpen建立了“打开”对话框以后，要得到用户所选择文

件的路径及文件名，应使用Commonialog1的（C ）。 A. DialogTitle属性 B. FileTitles属性 C. FileName属性 D. InitDir属性

75. 用于显示弹出式菜单的方法名是(D )。

A. ShowOpen B. ShowMenu C. ShowPopup D. PopupMenu

76. 打开菜单编辑器的快捷键是（C）。

A. CTRL+F B. Alt+F C. CTRL+E D. Alt+E

第 10 页 共 22 页

77. 下列叙述中，错误的是（ A）。

A. 顺序文件打开后，既可以读又可以写 B. 随机文件打开后，既可以读又可以写 C. 顺序文件打开后，只能读或者只能写

D. 顺序文件和随机文件的打开都使用Open语句

78. VB编程中顺序文件的处理将用到关键字是（C）。

A. File B. Save C. Open D. Disk

二、填空题1

79. Private Sub Command1_Click()

a=3 b=1

For i=1 To 3 f=a + b a=b b=f Next i Print f End Sub

以上程序段运行后，f的结果为 9 。

80. 设有如下通用过程：

Public Sub fun(a() As Integer, x As Integer) For i = 1 To 5 x = x + a(i) Next End Sub

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:

Private Sub Command1_Click()

Dim arr(5) As Integer, n As Integer For i = 1 To 5 arr(i) = 2* i Next fun arr, n

第 11 页 共 22 页

Text1.Text = Str(n) End Sub

程序运行后,单击命令按钮,则在文本框中显示的内容是 30 。

81. 阅读下列程序段

Option Explicit

Private Sub Command1_Click() Dim str1 As String Dim str2 As String str1 = \ MySub str1, str2 Print str2 End Sub

Private Sub MySub(ByVal a As String, b As String) Dim c As String Dim i As Integer

For i = Len(a) To 1 Step -1 c = c+ Mid(a, i, 1) Next b= c End Sub 程序运行后，“print”语句的输出结果是__ GFEDCBA _ _。

82. 在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() x = Int(Rnd) + 6

If x ^ 2 > 25 Then y = x ^ 2 + 5 x = Int(Rnd) + 4

If x ^ 2 < 25 Then y = x ^ 2 x = Int(Rnd) + 5

If x ^ 2 = 25 Then y = x ^ 2 - 5 Print y End Sub

程序运行后，单击命令按钮，其输出结果为_20_ _。

83. 阅读下列程序段

Private Sub Command3_Click() Print pl(3, 6) End Sub

Public Function pl(x As Single, n As Integer) As Single If n = 0 Then

第 12 页 共 22 页