齐幼菊版《visualbasic程序设计》课程作业及答案

《Visual Basic程序设计》课程作业（一）

第1章 初试可视化编程——Hello VB

1．单项选择题

（1）如果要设置窗体的标题栏，应选择（ ）属性。

A．Visible B．Caption C．Name D．Text

（2）要使命令按钮不响应用户生成的事件，应设置命令按钮的（ ）属性。

A．Visible B．Caption C．Enable D．Enabled

（3）要使标签能透出窗体的背景，应设置标签的（ ）属性。

A．BackStyle B．BorderStyle C．Appearance D．BackColor

（4）以下控件中，（ ）控件不会影响到界面设计效果。

A．计时器 B．文本框 C．标签 D．Line控件

（5）在VB中，一般（ ）属性用来设置字体的颜色。

A．FontColor B．ForeColor C．BackColor D．ShowColor

（6）在VB中断模式下，可用调试窗口监视表达式和变量的值,其中在（ ）窗口中可以直接键入命令以显示命令所请求的信息。

A．立即 B.监视 C.本地 D.中断

（7）某计时器控件的interval属性为0时，表示（ ）。

A．计时器关闭计时 C．Timer事件的间隔时间为0毫秒 B．Timer事件的间隔时间为0秒 D．计时器启动计时

（8）在窗体Form1的Click事件过程中有以下语句：

=”Visual Basic”

若本语句执行之前，标签控件的Caption属性为默认值，则标签控件的Name属性和Caption属性在执行本语句之前的值分别为（ ）。

A．Label和Label B．Label1和Label1 C．Label1和Visual Basic D．Label和Caption

（9）（ ）控件不具有Caption属性。

A．Label B．Form C． TextBox D．CommandButton

（10）改变控件在窗体中的上下位置，应设置控件的（ ）属性。

A．Top B．Left C．Width D．Right

（11）文本框中选定的内容，由下列（ ）属性反映。

A．Text B．Caption C．Seltext D．sellenght

2．编程题

（1）在窗体上画一个标签框和3个命令按钮。程序初始界面如下左图所示；单击“学习目的”按钮，显示如下中图所示；单击“学习方法”命令按钮，显示如下右图所示；单击“退出”按钮时，退出程序。编写程序实现上述要求。

（2）设计一个简单的加法程序，程序界面设计如下图所示。

（3）开发一个简易的文本框编辑器，用于实现文框之间的文本复制、剪切和粘贴。该文本框编辑器中包含源文本框和目标文本框，可以选择源文本框中的文本内容，利用“剪切”和“复制”命令按钮实现剪切和复制，然后再利用“粘贴”命令按钮粘贴到目标文本框中。简易文本框编辑器的程序界面如下图所示。

第2章 编程基础——四则运算程序

1．单项选择题

（1）在Visual Basic中，变量的默认类型是（ ）。

A．String B．Integer C．Double D．Variant

（2）假设已定义Integer变量x、y，则以下赋值语句正确的是（ ）。

A．x + 1 = y B．x := y C．y = x + y D．1 = x

（3）\\、/、Mod、*四个算术运算符中，优先级别最低的是（ ）。

A． \\ B． / C．Mod D ．*

（4）下列（ ）语句可以将变量A、B值互换。

A．A=C : C=B : B=A B．A=A+B : B=A–B: A=A–B C．A=B : B=A D．A=(A+B)/2 : B=(A - B)/2

（5）以下语句的输出结果是（ ）。

Print Format ,“000,000.00”)

A． B． 32,548.5 C．032, D． 32,

（6）表达式4+5 \\ 6 * 7 / 8 Mod 9 的值是 （ ）。

A．4 B． 5 C． 6 D． 7

（7）函数Int(Rnd*10)是在哪个范围内的整数？（ ）

A．（0, 10） B． (0,10] C． [0, 10） D．[0, 10]

（8）下面哪个是算数运算符？（ ）

A．Mod B． Like C． And D．Not

（9）已知三个变量A、B、C，判断A、B、C能否构成三角形的逻辑表达式为（ ）。

A．A >= B And B >= C And A >= C

B．A + C >= B And A + B >= C And B + C >= A

C．A + C >= B Or A + B >= C Or B + C >= A D．A + C >= B And A + B >= C Or B + C >= A

（10）下面程序段运行后，显示的结果是（ ）。

Dim intX As Integer

If intX Then Print intX Else Print intX + 1

A．0 B． 1 C． 2 D．不一定

（11）以下程序的输出结果是（ ）。

Dim a, i%, sum%

a = Array(4, 3, 2, 1) For i = 0 To 3

sum = sum + a(i) Next i Print sum

A．4 B． 6 C． 10 D．不一定

2．程序阅读题

（1）阅读以下程序，写出点击窗体两次后变量Sum的值。 Private Sub Form_Click() Static Sum As Integer For I = 1 To 2 Sum = Sum + I Next I Print Sum End Sub

（2）阅读以下程序，写出点击按钮后文件框Text3和Text4的结果。 Private Sub Command1_Click() =2 =3 =+

=Val+Val End Sub

（3）阅读以下程序，写出点击按钮后文件框Text1和Text2的结果。 Private Sub Command1_Click() Dim A(1 To 5) As Integer Dim x As Integer For i = 1 To 5 A(i) = i Next i i = 1

Do While x < 3

A(i) = A(i) + x x = x + 1 i = i + 1 Loop = A(1) = A(2) End Sub 3．编程题

（1）编写一个数制转换程序，运行界面如下图所示，实现在第一个文本框中输入十进制数后，第二个文本框自动显示该数对应的十六进制数，第三个文本框自动显示该数对应的八进制数。提示：利用文本框的Change事件和转换函数Hex、Oct。

（2）编写一个猜数字程序。程序产生一个随机数，由用户来猜这个数，并提示用户猜的数是否正确，程序运行界面如下图所示。

（3）编写一个学生身高统计程序，学生人数总是不超过100。输入若干个男生或女生的身高，若输入数据不合法则给予提示，如图3所示。单击确定按钮将接收数据并将统计结果显示于右方的文本框中，统计数据包括总人数、男生人数及平均身高、女生人数及平均身高，如下图所示。

参考答案

第1章 初试可视化编程——Hello VB

1．单项选择题

（1）B （2）D （3）A （4）A （6）A （7）A （8）B （9）C 2．编程题 （1）

Private Sub cmdAim_Click() = \开发Windows应用程序\ End Sub

Private Sub cmdExit_Click() End End Sub

Private Sub cmdWay_Click()

（5）B （10）A

（11）C

= \从实际应用程序的开发过程中学习VB\ End Sub

（2）

Private Sub cmdSum_Click() = Val + Val End Sub （3）

Dim strPaste As String '模块级变量strPaste用于存放待粘贴的内容 Private Sub cmdCopy_Click() '复制

strPaste = '将选中的文本复制到变量strPaste中。 End Sub

Private Sub cmdCut_Click() '剪切

strPaste = '将选中的文本复制到变量strPaste中。 = \删除文本框中被选中的文本。 End Sub

Private Sub cmdEnd_Click() End End Sub

Private Sub cmdPaste_Click() '粘贴

' 将变量中的内容粘贴到txtTarget中。若txtTarget中有选定的文本， ' 则用变量内容将其覆盖；若无选定文本，粘贴到插入点处 = strPaste End Sub

第2章 编程基础——四则运算程序

1．单项选择题

（1）D （2）C （3）C （6）B （7）C （8）A 2．程序阅读题 （1）6

（2）23 5 （3）1 3 3．编程题 （1）

Private Sub TxtDec_Change() = Hex(Val) = Oct(Val)

（4）B （9）B （5）C （10）B

（11）C