《Visual Basic语言程序设计教程》课后习题答案

第1章

一、选择题

1-5 CCDBA 6-10ABCDB

二、填空题

1.bas

2.工具栏

3属性窗口

4.工具栏

5.设计状态，运行状态，中断状态

三、简答题

略

四、编程题

Private Sub Command1_Click()

Command1.Caption = Text1.Text End Sub

第2章

一、选择题

1-5 CBDDC 6-10 AAAAC

11-14 BBBD

二、填空题

1. Text1.Text = "Hello!"或Text1= "Hello!" 2．Width 、Height

3．Ctrl

4. ABCD、Visual Basic

5. 123321

第3章

一、选择题

1-5ABDCA 6-10CBCB C 11-15BBBCC 二、根据要求写出表达式

1．Int(100*Rnd+1)

2．x>10 And x<50

3．x mod 4=0 Or x mod 13=0

4．Chr(Int(25*Rnd+65))

三、写出下列函数的值

1．Int(–3.14159)=-4

2．Sqr(Sqr(16))=2

3．Fix(–3.1415926)=-3

4．Int(Abs(99–100)/2)=0

5．Sgn(7*3+2)=1

6．Format(2.3, "##.000")=2.300

7．Left("Hello",2)=”He”

8．Val("16 Year")=16

9．Str(–459.65)=”-459.65”

四、将下列数学表达式改写为等价的VB表达式1．(b^2-sqr(4*a*c-b^2))/(4*a)

2．sqr(sin(3.14/18)^2+cos(3.14/9)^2)+15

3．abs((a+b)^2-4*a*c)

4．a^2+exp(4)+sqr(abs(a+exp(1)))

五、编程题

1．界面设计如图：

文本框text1的change事件代码如下：

Private Sub Text1_Change()

Text2.Text = LCase(Text1.Text)

End Sub

2．界面设计如图：

设置计时器的interval属性值为1000，Timer1的Timer事件代码如下：Private Sub Timer1_Timer()

Text1.Text = Time

End Sub

第4章

一、选择题

1-5DBCCA 6 C

二、填空题

1.输入字符型val

2.Msgbox “是否显示数据”,vbOkCancle+vbQuestion,”提示”

3.34

4 5

* *** ***** *

*** *****

三、编程题

略

第5章

一、选择题

1-5 DADCDB

二、程序填空

1．Inputbox 、is<1 、x^3+10*x+2 、-x

2．

3．Rnd 、1 、x mod 5=0

4．Val(text1.text) 、x mod 2=0 、"奇数" 、End If 三、编程题

1．代码如下：

Private Sub form_Click()

Dim x As Single

x = Val(InputBox("请输入任意一个实数："))

If x < 0 Then

Print "概数是负数"

ElseIf x = 0 Then

Print "概数是零"

Else

Print "概数是正数"

End If

End Sub

2．代码如下：

Private Sub form_Click()

Dim x As Single, y As Single

x = val(InputBox("请输入x的值:"))

If x < 0 Then

y = x ^ 4 + 10

ElseIf x < 10 Then

y = x ^ 2 - 10

ElseIf x < 20 Then

y = 5 * x + 8

Else

y = x / 2 + 1

End If

MsgBox "当x的值为：" & x & "时，函数值y为：" & y End Sub

3．运行界面如下：

代码如下：

Private Sub Command1_Click()

Dim x As Single, y As Single

x = Val(Text1.Text)

If x < 100 Then

y = x

ElseIf x < 200 Then

y = x * 0.95

ElseIf x < 300 Then

y = x * 0.9

Else

y = x * 0.8

End If

Text2.Text = y

End Sub

4．运行界面如下：

代码如下：

Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text)

If x <= 3 Then

y = 8

Else

y = (x - 3) * 1.6 + 8

End If

Text2.Text = y

End Sub

第6章习题答案一、选择题

1-5 ABDAB 6-7 CB