当前位置：文档之家› VB课本习题答案第三章

VB课本习题答案第三章

第3章程序流程控制

3．1 填空题

1．设变量r 表示圆的半径，则计算圆的面积并赋给变量s使用的赋值语句为（ s=3.14159*r*r ）。

2．给命令按钮Command2的Caption属性赋予字符串“退出”使用的赋值语句为（ Command2.Caption=＂退出＂）。

3．为了求n的阶乘，要求用户输入n的值。程序使用InputBox函数输入，要求对话框提示信息为“请输入一个求阶乘的数：”，标题为“求数的阶乘”，并且正确地把输入的信息转换为数值存放到变量n中，则使用的赋值语句为（ n=val（InputBox（＂请输入一个求阶乘的数：＂，＂求数的阶乘＂））。

４．如果使用MsgBox对话框显示提示信息“退出本系统？”，并显示“是（Yes）”和“否（No）”两个按钮，显示图标“？”号，指定第一个按钮为默认值以及标题为“提示信息”，则调用MsgBox 函数的形式为（ MsgBox（＂退出本系统? ＂，4+32+0，＂提示信息＂））。

５．如果使用MsgBox对话框显示提示信息“文件未找到！”，并显示“确定”按钮、图标“！”号和标题“文件查找”，则使用的MsgBox语句为（ MsgBox＂文件未找到＂，0+48+0，＂文件查找＂）。

６．要在当前窗体Form和立即窗口输出字符串“Visual BASIC 6.0”使用的Print方法分别是( Print “Visual BASIC 6.0” )和( Debug.Print “Visual BASIC 6.0” )。

７．使用Print方法时，若用逗号分隔，则按( 标准 )格式输出各表达式的值，若用分号分隔，则按( 紧凑 )格式输出各表达式的值。

８．注释语句是一个（非执行）语句，VB不对它们进行编译，对程序的执行结果没有任何影响。

９．判别变量i是否为偶数，若为偶数就把它显示出来。使用单行结构条件语句为（ If i Mod 2=0 Then print x ）。

10．判别变量x是否大于0，若大于0，则累加到变量s1中，否则，累加到变量s2中，使用的单行结构条件语句为（ If x>0 Then s1=s1+x Else s2=s2+x ）。

11．给定分段函数

，求y的值，使用的单行结构条件语句为

（ If x>0 Then y=2*x+1 Else If x=0 Then y=0 Else y=2*x-1 ）。

12．判别a是否等于b，若a=b，则输出字符串“a is equal to b”的块结构条件语句为（）。

答案：

If a=b Then

Print “a is equal to b”

End

13．判别ch是否为小写字母，若是，输出“yes”；否则，输出“No”的块结构条件语句为（）。

答案：

If Asc(ch)>=97 And Asc(ch)<=122 Then

Print “Yes”

Else

Print “No”

End If

14．若一个case子句中的表达式表由逗号分隔的若干个常数组成，则它的含义是：当测试表达式的值等于（这些常数中的某一个）时，执行该case子句相应的程序块。

15．若case子句中的表达式表列具有形式：<表达式1> To <表达式2>，则它的含义是：当测试表达式的值等于（这个范围内的值）时，执行该case子句相应的程序块。

16．若case子句中的表达式表列具有形式：Is <关系运算符> <表达式>，则它的含义是：当测试表达式的值满足（ Is后的关系）时，执行该case子句相应的程序块。

17．在循环语句中，反复执行的程序段称为（循环体）；进入循环体的条件称为（循环条件）；中止循环体执行的条件称为（结束循环条件）。

3．2 选择题

１．下列赋值语句中，( d )是正确的。

ａ)x！＝＂abc＂b)a％＝＂10e＂c)x＋１＝５d)s＄＝100

2．下列选项中，( d )不能交换变量a和b的值。

a) t=b : b=a : a=t b) a=a+b : b=a-b : a=a-b

c) t=a : a=b : b=t d) a=b : b=a

3．若在消息框MsgBox中显示“确定(Ok)”和“取消(Cancel)”两个按钮，则buttons参数的设置值是( b )。

a) 0 b) 1 c) 2 d)3

4．若在消息框MsgBox中选择第二个按钮为默认值，则buttons参数的设置值是( b )。

a)0 b)256 c)512 d)768

5．若单击了“终止（Abort）”按钮，则MsgBox函数的返回值是（ c ）。

a)1 b)2 c)3 d)4

6．以下不正确的单行结构条件语句是（ d ）。

a) If x>y Then Print “x>y”b) If x Then t = t * x

c) If x Mod 3=2 Then ? x d) If x<0 Then y = 2*x-1 : Print x End If

7．给定程序段

Dim a As Integer, b As Integer, c As Integer

a=1：b=2：c=3

If a=c-b Then Print "#####" Else Print "*****"

以上程序（ c ）。

a) 没有输出 b) 有语法错

c) 输出##### d) 输出*****

8．把a, b之中的最大值存放于max，下面语句书写正确的是（ d ）。

a) If a>b Then max=a Else max=b End If

b) If a>b Then max=a

Else max=b

End If

c) If a>b Then

max=a

Else

max=b

d) If a>b Then

max=a

Else

max=b

End If

9. 下列Case语句中正确的是（ c ）。

a) Select Case x

Case 1 Or 3 Or 5

y=x*x-1

Case Is >10

y=x+1

End Select

b) Select Case x

Case 1, 3, 5

y=2*x-1

Case Is x <=1

Y=2*x+1

End Select

c) Select Case x

Case Is <=0

y=x-1

Case Is >0

y=Sqr(x)+1

End Select

d) Select Case x

Case x>=1 And x<= 5

y=x-1

Case Is >10

y=x*x+1

End Select10．执行下列程序段后屏幕上（ c ）。

i% = 10 : Sum = 0

While i > 1

Sum = Sum + i

i = i - 1

Wend

Print Sum

a) 无显示b) 显示10 c) 显示54 d) 显示55

11．执行下列程序段输出结果是（ c ）。

x%=2

Do while x<8

Print “*”；

x=x+2

Loop

a) * b) ** c) *** d) ****

12．设有程序段

k=5

Do until k=0

k=k-1

Loop

则下面对循环语句描述正确的是（ c ）。

a) 循环体1次也不执行 b) 循环体执行1次

c) 循环体执行5次 d) 循环体执行无限次

13．下面描述中错误的是（ a, c ）。

a) 执行Do until <条件>…loop语句中，当循环<条件>为false时，结束循环体的执行。

b) 执行While <条件>…Wend语句时，循环体可能一次也不执行。

c) Do …loop While <条件>语句的循环体可能一次也不执行。

d) 执行Do …loop Until <条件>语句中，当循环条件为true时，结束循环体的执行。

14．下面程序段中循环语句的循环次数是（ b ）。

For x=10 To 1 Step -3

Print x

Next x

a) 0 b) 4 c) 5 d) 10

15．执行语句For i=1 to 3: i=i+1 :Next i后变量i的值是（ c ）。

a) 3 b) 4 c) 5 d) 6

16．下面程序段执行后输出结果是（ b ）。

For i=1 To 2

s=1

For j=0 To i-1

s=s+s*j

Next j

Print s,

Next i

a) 1 1 b) 1 2 c) 2 1 d) 2 2

3．3 阅读下列程序，写出执行结果

1. Private Sub Form_Click

Print –2*3/2 , “Visual” & “BASIC”， Not 5>3，0.75

Print –2*3/2 ; “Visual” & “BASIC”; Not 5>3; 0.75

x=12.34

Print “x=”；

Print x

End Sub

答案：-3 Visual BASIC False .75

-3 Visual BASICFalse .75

x=12.34

2． Private Sub Form_Click

Print Tab(10); -100;Tab(20); 200;Tab(30); -300

Print Spc(10); -100;Spc(10); 200;Spc(10); -300

答案：-100 200 -300

-100 200 -300

3． Private Sub Form_Click

x=12.35

Print Format ( x,”###.##” )

Print Format ( x,”##.##” )

Print Format ( x,”000.00” )

Print Format ( x,”00.0”)

Print Format ( x,”0.00%” )

Print Format ( x,”$##.##” )

Print Format ( x,”+##.##” )

Print Format ( x,”00.00E+00” )

End Sub

答案：12．35

12．35

012．35

12．4

1235．00%

$12.35

+12.35

12.35e+00

4． Private Sub Command1_Click()

Dim a%, b%, c%, s%, w%, t%

a = -1:

b = 3:

c = 3

s = 0: w = 0: t = 0

If c > 0 Then s = a + b

If a <= 0 Then

If c <= 0 Then

w = a - b

End If

Else

If c > 0 Then w = a - b Else t = c

End If

c = a + b

Print a, b, c

Print s, w, t

End Sub

答案：-1 3 2

2 0 0 5． Private Sub Command1_Click()

Dim x%, y%

x = InputBox("请输入x的值：")

Select Case x

Case 1, 3, 5

y = x - 1

Case 6 To 10

y = x + 1

Case 2, 4

y = 2 * x

Case Is > 10

y = x * x + 1

End Select

Print "x="; x, "y="; y End Sub

（x 的输入值为2.5、8、4和15）

答案：x=2 y=4

x=8 y=9

x=4 y=8

x=15 y=226

6． Private Sub Command1_Click() Dim i%, t!

t = 1: i = 1

While i < 10

t = t * i

i = i + 2

Wend

Print "t="; t

End Sub

答案：t=945

7． Private Sub Command1_Click() Dim i%, x%, y%

x = 1: y = 1:i = 1

Do Until i > 8

If i Mod 2 = 1 Then

x = x * i

Else

y = y * i

End If

i = i + 1

Loop

Print "x="; x, "y="; y

End Sub

答案：x=105 y=384 8． Private Sub Command1_Click() Dim p%, s%

p = 1: s = 1

p=p+2:s=s+p

Loop While p<10

Print "s="; s

End Sub

答案：s=36

9． Private Sub Command1_Click()

Dim m%, n%

For m=1 to 3

n=0

While n<=m-1

Print m,n

n=n+1

Wend

Next m

End Sub

答案: 1 0

2 0

2 1

3 0

3 1

3 2

3．4 编程题

1. 输入一个学生成绩，若成绩在85分以上，则输出“very good”；若成绩在60分到80分之间，则输出“good”；若成绩低于60分，则输出“no good”。

解答：

(1)界面设计和属性设置

在窗体上建立两个标签、两个文本框和两个命令按钮。窗体和窗体上控件的主要属性设置如表3-3-1所示。

表3-3-1 第1题的属性设置

(2)程序代码

Private Sub Command1_Click()

Dim score!

score = Val(Text1.Text)

If score >= 85 Then

Text2.Text = "Very good!"

ElseIf score >= 60 Then

Text2.Text = "Good!"

Else

Text2.Text = "No good!"

End If

End Sub

Private Sub Command2_Click()

End

End Sub

(3)运行情况

运行程序后，屏幕出现用户界面。把鼠标移到Text1文本框并单击，输入分数。然后，单击“开始”命令按钮，系统执行Command1_Click事件过程。执行结果如图3.3.1所示。单击标题为“结束”的命令按钮，执行Command2_Click事件过程，结束程序的执行。

图3.3.1 第1题的执行结果

2. 求一元二次方程ax2+bx+c=0的根。

解答：

(1)界面设计和属性设置

在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-2所示。

表3-3-2 第2题的属性设置

控件名称属性名属性值

Form1 Caption 求一元二次方程的根

Command1 Caption 开始

Command2 Caption 结束

(2)

由中学数学知识知道，求一元二次方程的根的公式为：a ac

4 2

2,1

，

编程时要考虑如下各种情况：

①当a=0 时，方程不是二次方程；

② 当 b 2

-4ac=0 时,有两个相同的实根：

a b x 22,1-

=；

③ 当 b 2

-4ac>0 时,有两个不同的实根：

a ac

b b x 2422

,1-±-=

；

④ 当 b 2

-4ac<0 时,有两个共轭复根：

a b ac a

x 2422

,1-±

-=。

Private Sub Command1_Click() Cls

Dim a!, b!, c!, disc!, x1!, x2!, realpart!, imagpart! a = InputBox("请输入方程的系数a ：") b = InputBox("请输入方程的系数b ：") c = InputBox("请输入方程的系数c ：") Print: Print

Print Tab(10); "输入方程的系数为："; "a="; a; "b="; b; "c="; c Print

If Abs(a) <= 0.000001 Then

Print Tab(15); "方程不是一个二次方程！" Else

disc = b ^ 2 - 4 * a * c If Abs(disc) <= 0.000001 Then

Print Tab(10); "方程有两个相同的实根："; "x1=x2="; -b / (2 * a) ElseIf disc > 0.000001 Then x1 = (-b + Sqr(disc)) / (2 * a) x2 = (-b - Sqr(disc)) / (2 * a) Print Tab(5); "方程有两个实根：" Print Tab(18); "x1="; x1 Print Tab(18); "x2="; x2 ElseIf disc < 0.000001 Then

realpart = -b / (2 * a): imagpart = Sqr(-disc) / (2 * a) Print Tab(5); "方程有两个虚根：";

Print Tab(18); "x1="; realpart; "+"; imagpart; "i" Print Tab(18); "x2="; realpart; "-"; imagpart; "i" End If End If End Sub

Private Sub Command2_Click() End End Sub

注意，程序中的条件“fabs(a)<=0.000001”和“fabs(disc)<=0.000001”分别用来判断a 和

disc 的值是否为0。因为实数在计算机计算和存储时会有微小的误差，若用“a=0”和“disc=0”来判断a 和disc 是否为0，则会由于误差导致条件不成立，无法得到正确的运行结果。

(3)运行情况

运行程序后，单击“开始”命令按钮，执行Command1_Click事件过程。执行时，在InputBox 框中输入 a、b和c三个系数。图3.3.2～图3.3.5显示了不同系数输入的执行结果。

图3.3.2 执行结果(a) 图3.3.3 执行结果

(b)

图3.3.4 执行结果(c) 图3.3.5 执行结果(d)

3. 给定函数y = ?

其它

cos

,从键盘上输入x的值，求y的

值。(要求使用Case语句)

解答：

(1) 界面设计和属性设置

在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-3所示。

表3-3-3 第3题的属性设置

控件名称属性名属性值

Form1 Caption 求给定分段函数的值

Command1 Caption 开始

Command2 Caption 结束

(2)程序代码

Private Sub Command1_Click()

Cls

Dim x!, y!

x = InputBox("请输入x的值：")

If x >= 1 And x <= 5 Then

Select Case x

Case Is < 2

y = 3 * x - 5

Case Is < 4

y = 2 * Cos(x) + 1

Case Is <= 5

y = Sqr(1 + x * x)

End Select

Else

y = x * x - 4 * x + 5

End If

Print Tab(10); "x="; x, "y="; y

End Sub

Private Sub Command2_Click()

End

End Sub

(3) 运行情况

运行程序后，单击“开始”命令按钮，执行事件过程Command1_Click。执行时，按InputBox 对话框提示，输入x的值。计算结果在窗体上显示。

4. 输入圆的半径R和运算标志，按照运算标志进行指定运算。给定的运算标志及其表示的运算如下：

C（Circle）表示计算周长

A（Area）表示计算面积

B（Both）表示周长和面积都计算

(要求使用Case语句)

解答：

(1)界面设计和属性设置

在窗体上放置两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-4所示。

表3-3-4 第4题的属性设置

(2)程序代码

Private Sub Command1_Click()

Cls

Dim r!, f As String * 1

Const pi! = 3.14159265

r = InputBox("请输入圆的半径 r ：")

If r >= 0 Then

f = UCase(InputBox("输入运算标志：" + Chr(13) & _

"C___(计算周长)" + Chr(13) & _

"A___(计算面积)" + Chr(13) & _

"B___(两者都计算)")) '提示信息分多行显示

Select Case f

Case "C"

Print Tab(10); "半径r="; r; "圆周长="; r * 2 * pi

Case "A"

Print Tab(10); "半径r="; r; "圆面积="; r ^ 2 * pi

Case "B"

Print Tab(10); "半径r="; r; "圆周长="; r * 2 * pi

Print Tab(10); "半径r="; r; "圆面积="; r ^ 2 * pi

Case Else

Print Tab(18); "输入的运算标志错！"

End Select

Else

Print Tab(18); "半径不能是负数！"

End If

End Sub

Private Sub Command2_Click()

End

End Sub

(3)运行情况

运行程序后，单击标题为“开始”的命令按钮，执行Command1_Click事件过程。按InputBox 对话框的提示输入半径r和运算标志。计算结果在窗体上显示。

5. 求满足12+22+…+n2>1000的最小n值。(要求使用While…WEnd语句)

解答：

(1)界面设计和属性设置

在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-5所示。

表3-3-5 第5题的属性设置

(2)程序代码

Private Sub Command1_Click()

Dim n%, s&

n = 0: s = 0

While s <= 1000

n = n + 1

s = s + n ^ 2

Wend

Print: Print: Print

Print Tab(8); "满足1^2+2^2+…+n^2>1000的最小n值为："; n

End Sub

Private Sub Command2_Click()

End

End Sub

6．输入若干个正实数，个数预先不能确定，求这些正实数之和。(要求分别使用Do While…Loop语句和Do Until …Loop语句)

解答：

(1)界面设计和属性设置

在窗体上建立三个命令按钮。窗体和命令按钮的主要属性设置如表3-3-6所示。

表3-3-6 第6题的属性设置

(2)程序代码

Private Sub Command1_Click()

Cls

Dim a!, s!

a = InputBox("输入一个实数：")

Do While a >= 0

s = s + a

a = InputBox("输入一个实数：")

Loop

Print: Print

Print Tab(15); "输入的正实数之和为："; s

End Sub

Private Sub Command2_Click()

Cls

Dim a!, s!

a = InputBox("输入一个实数：")

Do Until a < 0

s = s + a

a = InputBox("输入一个实数：")

Loop

Print: Print: Print

Print Tab(15); "输入的正实数之和为："; s

End Sub

Private Sub Command3_Click()

End

End Sub

(3) 运行情况

运行程序后，屏幕出现用户界面如图3.3.6所示。单击标题为“Do While…Loop”或标题为“Do While…Loop”的命令按钮，系统执行相应的Click事件过程。用户可以输入一系列数据，以输入-1作结束。窗体显示运算结果。单击“结束”按钮，结束程序执行。

图3.3.6 第6题的执行结果

7．使用公式

来求π的近似值，直到最后一项的值小于10-8为止。

(要求使用Do…Loop While语句)

解答：

(1)界面设计和属性设置

在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-7所示。

表3-3-7 第7题的属性设置

控件名称属性名属性值

Form1 Caption 求圆周率的近似值

Command1 Caption 开始

Command2 Caption 结束

(2)程序代码

Private Sub Command1_Click()

Dim i&, s#, term#

i = 1

s = 0

term = 1 / (i * i)

s = s + term

i = i + 1

Loop While term >= 0.00000001

Print: Print: Print

Print Tab(8); "圆周率的近似值为："; Sqr(6 * s)

End Sub

Private Sub Command2_Click()

End

End Sub

(3)运行情况

运行程序后，单击标题为“开始”的命令按钮，执行Command1_Click事件过程。计算结果在窗体上显示。

8. 由数值计算方法可知，用牛顿迭代法解方程f(x)=0的迭代公式为：

),2,1,0n ()

x (f /)x (f x x n n n 1n Λ='-=+

试用牛顿迭代法求解方程x 5

－3x 2

＋2x ＋1=0 在x 0=0附近的根。(要求使用Do …Loop Until 语句)

解答：

(1)界面设计和属性设置

在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-8所示。

表3-3-8 第8题的属性设置

(2)程序代码

根据迭代公式，牛顿迭代法的计算过程为： ①令n=0 ，由迭代公式得

)

(/)(0001x f x f x x '-= ，然后判别∣x 1－x 0∣是否小于

ε(给定精度)。若是，则迭代结束，x 1作为方程的近似根；否则，进行下一步。

②令n=1 ，由迭代公式得 )(/)(1112x f x f x x '-= ，然后判别 ∣x 2－x 1∣是否小ε。

若是，则迭代结束，x 2 作为方程的近似根；否则，由x 2求x 3的值，判断∣x 3－x 2∣。

┇

按这样迭代下去，一直到∣x i ＋1－x i ∣< ε(i=0，1，2，…)为止。根据上述计算过程可以编写程序为：

Private Sub Command1_Click() Dim x0!, x1! x1 = 0 Do x0 = x1

x1 = x0 - (x0 ^ 5 - 3 * x0 ^ 2 + 2 * x0 + 1) / (5 * x0 ^ 4 - 6 * x0 + 2) Loop Until Abs(x1 - x0) < 0.00001 Print Tab(10); "方程的根为："; x1 End Sub

Private Sub Command2_Click() End End Sub

(3)运行情况

运行程序后，单击标题为“开始”的命令按钮，执行Command1_Click 事件过程。在窗体上显示计算结果。

9．求S = 1001

9914

31211-+

+-+-

K 的值。

解答：

(1)界面设计和属性设置

在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-9所示。

表3-3-9 第9题的属性设置

(2)程序代码

Private Sub Command1_Click()

Dim i%, s!, sign%

sign = 1: s = 0

For i = 1 To 100

s = s + sign * 1 / i

sign = -sign

Next i

Print: Print: Print

Print Tab(18); "s的值为："; s

End Sub

Private Sub Command2_Click()

End

End Sub

(3)运行情况

运行程序后，单击标题为“开始”的命令按钮，执行Command1_Click事件过程。窗体显示计算结果。

10．求100到999中的水仙花数。所谓水仙花数是指一个三位数，它的各位数字的立方之和等于该数。例如，因为153 = 13 + 53 + 33 ，所以153是水仙花数。

解答：

(1)界面设计和属性设置

在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-10所示。

表3-3-10 第10题的属性设置

(2)程序代码

Private Sub Command1_Click()

Dim i%, a%, b%, c%

Print Tab(5); "100--999之间的水仙花数为："

For i = 100 To 999

a = i \ 100

b = (i - a * 100) \ 10

c = i - a * 100 - b * 10

If i = a ^ 3 + b ^ 3 + c ^ 3 Then

Print Tab(10); i

End If

Next i

End Sub

Private Sub Command2_Click()

End

End Sub

(3)运行情况

执行结果如图3.3.7所示。

图3.3.7 第10题的执行结果

11. 求1000之内的所有完数。所谓完数是指一个数恰好等于它的所有因子之和。例如，因为6=1+2+3，所以6为完数。

解答：

(1)界面设计和属性设置

在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-11所示。

表3-3-11 第11题的属性设置

控件名称属性名属性值

Form1 Caption 求完数

Command1 Caption 开始

Command2 Caption 结束

(2)程序代码

Private Sub Command1_Click()

Dim i%, j%, s%

Print Tab(5); "1--1000之内的完数为："

For i = 1 To 1000

s = 0

For j = 1 To i - 1

If i Mod j = 0 Then s = s + j

Next j

If i = s Then Print Tab(5); i

Next i

End Sub

Private Sub Command2_Click()

End

End Sub

(3)运行情况

程序执行结果如图3.3.8所示。

图3.3.8 第11题的执行结果

12. 在窗体上输出形如以下图形，其中第一行的起始字母和终止字母由用户从键盘上输入。

A B C D E

B C D E A

C D E A B

D E A B C

E A B C D

解答：

(1)界面设计和属性设置

在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-12所示。

表3-3-12 第12题的属性设置

控件名称属性名属性值

Form1 Caption 输出由字母构成的图形

Command1 Caption 开始

Command2 Caption 结束

(2)程序代码

Private Sub Command1_Click()

Cls

Dim starg As String * 1, endg As String * 1, stargc%, endgc%, i%, j%, k%

starg = UCase(InputBox("请输入起始字母："))

endg = UCase(InputBox("请输入终止字母："))

stargc = Asc(starg)

endgc = Asc(endg)

If stargc <= endgc Then

For i = 0 To endgc - stargc

Print Tab(24);

For j = stargc + i To endgc

Print Chr(j);

Next j

For k = stargc To stargc + i - 1

Print Chr(k);

Next k

Next i

Else

Print Tab(15); "起始字母必须先于终止字母！"

End If

End Sub

Private Sub Command2_Click()

End

End Sub

(3)运行情况

运行程序后，需在InputBox对话框输入起始字母和终止字母。执行结果在窗体上显示。

13．已知XYZ + YZZ = 532，其中X，Y和Z为0～9的数字，编程求出X、Y和Z，并在窗体上把算式显示出来。

解答：

(1)界面设计和属性设置

在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-13所示。

表3-3-13 第13题的属性设置

(2)程序代码

Private Sub Command1_Click()

Dim x%, y%, z%, i%

Print Tab(23); " x"; " y"; " z"

Print Tab(22); "+"; " y"; " z"; " z"

Print Tab(21); "------------"

Print Tab(23); 5; 3; 2

For x = 1 To 9

For y = 1 To 9

For z = 0 To 9

i = 100 * x + 10 * y + z + 100 * y + 10 * z + z

If i = 532 Then Print: Print Tab(10); "算式中的数字为："; _

"x="; x; "y="; y; "z="; z; "即": GoTo l

Next z

Next y

Next x

l: Print

Print Tab(23); x; y; z

Print Tab(22); "+"; y; z; z

Print Tab(21); "------------"

Print Tab(23); 5; 3; 2

End Sub

Private Sub Command2_Click()

End

End Sub

(3)运行情况

执行结果如图3.3.9所示。

图3.3.9 第13题的执行结果

VB程序设计课后习题答案(科学出版社)

同步练习1 二、选择题 01——05 CADAB 06——10 ACDAB 11——15 CBDBB 同步练习2 二、选择题 01——05 ABDCA 06——10 CACBC 11——15 DADAD 16——20 BDBBB 三、填空题 1．可视 2．LEFT、TOP、WIDTH、HEIGHT 3．按字母顺序 4．查看代码 5．工具、编辑器 6．FORM窗体、FONT 7．MULTILINE 8．在运行时设计是无效的 9．工程、工程属性、通用、FORM1.SHOW 10．TABINDEX、0 同步练习3 二、选择题 01——05 BCADB 06——10 ADBBC 11——15 DBCBA 16——20 BAABB 三、填空题 1．整型、长整型、单精度型、双精度型 2．SIN(30*3.14/180)+SQR(X+EXP(3))/ABS(X-Y)-LOG(3*X) 3．164、今天是：3-19 4．FALSE 5．-4、3、-3、3、-4、4 6．CDEF 7．(X MOD 10)*10+X\10 8．(35\20)*20=20 ( 35 \ 20 )* 20 = 20 9．X MOD 3=0 OR X MOD 5=0 10．27.6、8.2、8、1、100、397、TRUE、FALSE 同步练习4 一、选择题 01——05 DBCAD 06——10 CBBAB

11——15 D25BAC 16——20 CBACB 21——25 DAABC 二、填空题 1．正确性、有穷性、可行性、有0个或多个输入、有1个或多个输出2．1 2 3 3．X>=7 4．X

osce参考例题60道

osce 考试病例分析参考试题病历分析一般会有60个病历供考生选择，病历分析中重点抓分要注意三点： 1.诊断一定要写全，要主次有序。如慢支的病历诊断要写：1）慢性支气炎合并感染 2 ）阻塞性肺气肿3）肺原性心脏病4）心功能几级要注意病史及辅检中提供的每个线索，各个系统中的疾病并不多，很容易判断出来，特别是外科及妇产科，病种更少，一但抽到，则立刻可断定是什么疾病。总之，诊断一定要写全。一些基本化验值也应知道，如血钾低，则在诊断中应加上低钾血症；一些疾病的基本特征是要掌握的，如膈下游离气体，则为消化道穿孔；外伤后出现昏迷及中间清醒期，则为硬膜外血肿，如有瞳孔的改变则考虑有脑疝出现，注意诊断前面还要加上脑外伤；脾破裂可以有被膜下出血，可以在伤后一周才出现出血性休克症状，要加以注意。 2.诊断依据：一定要用病史及辅检中给的资料，按诊断的顺序对应列出。上面提到的一些具体疾病特征就是诊断的重要依据。 3.鉴别诊断：要围绕着病变的部位及特征写出几种疾病，一般有三、四种，如果你真是不了解，那就将相近的疾病多写几种吧。 4.近一步检查：举几个例子供大家体会一下：胃癌：进一步作CT（看一下肝、腹腔转移）；胸片（有无肺转移）心绞痛：24小时动态心电图、动态监测血清心肌酶闭合性腹部损伤（脾破裂）：腹腔穿刺、腹部B超、腹部X线 5.治疗：重点写治疗原则，也要有主次。注意不要忘记支持治疗，及一些预防复发、健康教育等项目病例摘要：男性，13 岁，因高热、头痛、频繁呕吐 4 天。患者4 天前（1 月15日）突然高热达40℃，伴发冷，寒战，同时出现剧烈头痛，头痛为全头痛。频繁呕吐，呈喷射性，吐出食物和胆汁，无上腹部不适，进食少，二便正常。所在学校有类似病人发生。查体：T39.5℃，P100 次/分，R22 次/分，Bp120/90mmHg，急性热病容，神清，皮肤散在少量出血点，浅表淋巴结未触及，巩膜无黄染，咽充血，扁桃体无肿大，颈强（），两肺叩清音，无啰音，心界叩诊不大，心率110 次/分，律齐，腹平软，肝脾肋下未触及，下肢不肿，Brudzinski 征（），Kernig 征（），Babinski 征（-）化验：血WBC17.2×109/L，N86％，L14％。要求根据以上病史摘要，将诊断及诊断依据；鉴别诊断；进一步检查与治疗原则写在答题纸上。标准答案：一、诊断及诊断依据：8分（一）诊断流行性脑脊髓膜炎（普通型）可能性大。（4 分）（二）诊断依据 1.冬春季节发病（1 月15日），当地有本病发生（学校有类似病人）。（1 分） 2.急起高热，剧烈头痛，频繁喷射性呕吐，皮肤出血点和脑膜刺激征。（2 分） 3.化验血WBC 总数及中性粒细胞比例增高。（1 分）二、鉴别诊断：5分 1.其他细菌引起的化脓性脑膜炎。（2 分） 2.结核性脑膜炎。（2 分） 3.病毒性脑膜炎。（1 分）

大学VB考试题库完整

大学VB考试题库一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.doczj.com/doc/3a17176383.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。

A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0

vb程序设计实验教程习题答案

实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题：（1）.bas （2）.vbp，.frm （3）视图工具箱（4）对象（5）属性对象事件方法（6）Windows （7）事件行为（8）窗体模块实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题：（1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配（9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题：（1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题：（1）7 （2）3 5

（3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题：（1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题：（1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题：（1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题：（1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③

VB第三章练习题

1、计算圆柱体的表面积和体积在窗体上放置5个标签，4个文本框，3个命令按钮，单击“计算”按钮，右侧文本框显示相应的结果；单击“清除”按钮，清除所有文本框的内容；单击“结束”按钮，程序结束。（用两种方法做） 2、计算长方体的体积和表面积 3、求二元一次方程的根求二元一次方程5X2-9X-10=0，运行界面如图

1．填空题 1．在程序设计语言系统中具有固定语法含义的符号串称为（），它们通常用来表示系统提供的标准过程、函数、运算符、常量等。 2．（）用于标记用户自定义的常量、类型、变量、控件、过程、函数等名字。 3．整型数据占（）字节的内存空间。长整型数据占（）个字节的内存空间。单精度浮点型数据占（）个字节的内存空间。双精度浮点型数据占（）个字节的内存空间。日期型数据占（）个字节的内存空间。 4．100%表示100为（）型数据；100！表示100为（）型数据；100＠表示100为()型数据。 5符号常量在某一过程中说明，则该符号常量只能在（）内有效。 6．若一个整型变量说明了之后没有给它赋值，则它的值为（）。 7．在VB中可以把类型说明符放在变量名的（）来说明变量的类型。 8．为使VB的编译程序自动检查变量声明，遇到未经说明的标识符发出错误警告信息，在程

序中要加上（Option Explicit）语句。 9．对含有多种运算的表达式，各种运算之间的顺序为（）→（）→（）→（）。 10．把的小数部分四舍五入转换为整数，可使用函数（）。 11．将x四舍五入到百位（例如，若x=应舍入成23900），可使用表达式（）。 12．将x从十位截断（例如，x=应截成23800）可使用表达式（）。 13．设X为数值变量，求X的常用对数可使用的表达式是（Log(X)/Log(10)）。 14．要从字符串“VisualBASIC”中截取子字符串“BASIC”可使用函数（） 15．设S是字符串变量，并且串长度为7，写出生成由S的偶数序号字符组成的字符串的表达式（例如，把字符串”ABCDEFG”变成“BDF”）。 16．设S是字符串变量，并且串长度为7，写出用第2i–1个字符代替第2i个字符所得到字符串的表达式（例如，把字符串”ABCDEFG”变成“AACCEEG”）。 17．产生从整数a到整数b之间的随机整数可使用表达式（Int((b-a+1)*Rnd+a)）。

vb练习题及答案.doc

vb 练习题及答案【篇一：vb 习题(含答案)】 lass=txt>1 、vb 程序中，通常不会产生错误提示的是( )。（1 分） a、编译错误 b、逻辑错误 c、运行时错误 d、实时错误 2、在设计阶段，双击窗体上任一空白处，打开的窗口是( )。（1 分） a、工程资源管理器窗口 b、代码窗口 c、工具箱窗口 d、属性窗口 3、下列说法中，正确的说法是( )。（1 分） a、窗体名称和该窗体文件名必须一致 b、窗体名称和该窗体文件名可以不相同 c、窗体名称和该窗体文件名不能使用汉字 d、窗体名称不能使用汉字、但该窗体文件名能使用汉字 4、visual basic 有完备的help 联机帮助功能，可以通过按下功能键( )得到帮助。（ 1 分） a、f9 b 、f8 c、f1 d 、f5 5、以下( )控件可作为容器使用。（ 1 分） a、label b 、picturebox c、textbox d 、image 6、将窗体的boderstyle 属性设置为( )可使窗口不显示标题栏。（ 1 分） a、0 b 、1 c、2 d 、5 7、文本框没有( )属性（1 分） a、text b 、name c、caption d 、borderstyle 23、下列( )是不合法的常量。（ 1 分） a、100 b 、10e02 c、100.0 d 、10e0.5 24、下列对变量的定义中，定义x 为变体型变量的是( )。（1 分） a、dim x as double b 、dim x c、dim x! d 、x%=23

25、设有如下变量声明：dim testdate as date ，为变量testdate 正确赋值的表达方式是( )。（1 分） a、textdate=#1/1/2002# b 、testdate=#1/1/2002# c、textdate=date(1/1/2002) d 、 testdate=format(m/d/yy,1/1/2002) 26、在立即窗口中运行以下语句，a=beijing :b=shanghai :print a,b 对其输出结果的描述中，正确的是( )。（1 分） a、beijing 和shanghai 中间没有空格 b、beijing 和shanghai 中间有1 个空格 c、beijing 和shanghai 中间有 6 个空格 d、beijing 和shanghai 前面有7 个空格 27、语句段a=3: b=5:t=a ：a=b: b=t 执行后( )。（1 分） a、a 值为3，b 值为3 b 、a 值为3，b 值为5 c、a 值为5，b 值为5 d 、a 值为5，b 值为3 28、下列语句中，正确的是( )。（1 分） a、if x3*y and xy then y=x^3 b 、if x3*y and xy then y=3x c、if x3*y : xy then y=x^3 d 、if x3*y and xy then y=x**3 29、下面程序段dim x%: x=5: if x then y=x+1 else y=x 运行后， y 结果是( )。（1 分） a、5 b 、6 c、1 d 、显示出错信息 30、执行语句 a = inputbox(today, tomorrow, yesterday, 5, 5) ，将显示一个输入对话框，在对话框的输入区中显示的信息是( )。（1 分） a、today b 、tomorrow c、yesterday d 、5 31、窗体上有一个命令按钮command1, 编写如下事件过程: private sub command1_click() :x = val(inputbox(x=)) : y = inputbox(y=) : print x + y : end sub, 单击命令按钮，先后在两个输入对话框中输入123 和321 ，窗体显示的内容是( )。（1 分） a、444 b 、123321 c、123+321 d 、出错信息 32、执行语句msgbox aaa, 2, bbb 后，所产生的消息框的标题是 ( )。（1 分） a、aaa b 、bbb

VB程序设计教程(第3版)课后实验答案最新版2

1、完成实验A（P.259）中的第1、 2、 3、5题。 2、参照第2章例2.6，建立一个类似记事本的应用程序，提供：(1) 剪切、复制和粘贴的编辑操作；(2) 字体大小的格式设置；此外，再对记事本的应用程序的功能进行一点扩允。 1．完成在实验B 顺序结构程序。（P.262）中的第1、2 、4 、5.、6题 2．完成实验C 选择结构（P.266）中的第1、2、4、5题 3．用上面实验B的第二题和实验C的第二题完成下面的实验报告。 1、完成实验D循环结构（P.268）中的第1、3、4、6题，其中第1题利用单循环结构显示如图D.1(P.268)所示的界面,而后将图形改为倒三角形。 2、选做实验E数组（P.271）中的第1、2、3题中的任意二题 3、以实验D中的第4题和实验E中的做完的某一题完成下面的实验报告。 A．1 Private Sub Command1_Click() Label3 = Text1 End Sub A．2 Private Sub Form_Load() Timer1.Interval = 0 End Sub Private Sub Command1_Click() '自动 Timer1.Interval = 200 End Sub Private Sub Command2_Click() '手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Timer1_Timer() Call MyMove End Sub Sub MyMove() Label1.Move Label1.Left - 50 If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub A．3 Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub A．5

呼吸内科OSCE试卷

江西省住院医师规范化培训师资班试卷姓名单位专业职称成绩住院医师规范化培训-临床技能考核评分表本专业的考题：患者，男，23岁，发热，咳嗽、咳痰3天问题1-1：您作为接诊医师，应了解那些相关病史（问诊）—1站问题1-2：体检的重点—1站

问题2：写出完整病历—2站问题3：你应安排哪些必要的检查—3、4、5站（实验室、心电图、影像资料见后）

住院医生培训临床技能考核评分表—实验室检查姓名＿＿＿＿单位＿＿＿＿＿＿＿＿准考证号＿＿＿＿＿成绩＿＿＿＿与本病例相关的假设临床检验报告单一，实验室参考诊断意见：（此化验单为病例本人化验结果）结合病史，此病例考虑感染，血常规白细胞正常多见于非典型病原体，结核等感染；嗜酸性细胞高，需考虑感染引起的变态反应。贴临床检验报告单与本病例相关的假设临床检验报告单二，实验室参考诊断意见：（与本病例无关）患者低热、乏力、咳嗽半月，胸片提示肺部感染，此化验单为T-SPOT检查，阳性需考虑结核感染。贴临床检验报告单考官签字：日期：年月日住院医生培训临床技能考核评分表--心电图姓名＿＿＿＿单位＿＿＿＿＿＿＿＿准考证号＿＿＿＿＿成绩＿＿＿＿心电图题目一：心电图参考诊断意见：窦性心动过速贴临床心电图心电图题目二：心电图参考诊断意见：窦性心律，频发房性早搏，呈二联律，P波改变，胸导联r波递增不良。贴临床心电图考官签字：日期：年月日

住院医生培训临床技能考核评分表--影像学检查姓名＿＿＿＿单位＿＿＿＿＿＿＿＿准考证号＿＿＿＿＿成绩＿＿＿＿大放射学题目一：临床影像学参考诊断：右肺上叶肿块影并纵隔淋巴结转移，考虑肺癌，并周边阻塞性肺炎，两肺气肿，右侧少量胸腔积液贴临床影像图片考官签字：日期：年月日

vb练习题第三章

VB第三章练习一、选择题 1．关于Visual Basic程序的说法不正确的是________。 A) 一行可以写多条语句，语句之间用“:”隔开 B) 一条语句可以写在多行上，用“空格”加“_”作为续行标志 C) 程序中的大小写字母不区分 D) 变量在使用之前必须先定义类型 2．Visual Basic的一条语句可以写在多行，但要用续行符，续行符应为________。 A) 一个空格加一个下划字符(_) B) 一个下划字符(_) C) 直接回车 D) 一个空格加一个连字符(-) 3．Visual Basic的一行可以写多条语句，语句之间用________隔开。 A) 逗号 B) 分号 C) 顿号_ D) 冒号 4．下列说法不正确的是 ________。 A) 注释语句是非执行语句，仅对程序的有关内容其注释作用，它不被解释和编译 B) 注释语句可以作为代码中的一行 C) 注释语句不可以放在其他语句的后面 D) 代码中加入注释语句的目的是提高程序的可读性 5．下列说法不正确的是________。 A) 调试程序时，使用解释运行方式比较方便 B) 解释运行方式比编译运行方式运行应用程序的速度慢 C) 解释运行方式必须在Visual Basic集成环境下使用 D) 解释运行方式和编译运行方式都必须在Visual Basic集成环境下使用 6．一般情况下，用Visual Basic创建应用程序分为4个主要步骤。以下操作顺序正确的是________。 ① 创建应用程序的界面② 编写程序代码，建立事件过程 ③ 设置对象属性④ 调试运行程序，生成可执行文件 A) ①②③④ B)①③②④ C) ②①④③ D) ②③①④ 7．新建工程的快捷键是________ 。 A) Crtl+A B)Crtl+D C) Crtl+N D) Crtl+E 8．工程文件的扩展名是________。 A) frm B) frx C) cls D)vbp 9．假定窗体的名称(Name属性)为Form1，则把窗体的标题设置为"Visual Basic Test"的语句为________。 A) Form1＝"Visual Basic Test" B) Caption＝"Visual Basic Test" C) Form1.Text＝"Visual Basic Test" D) https://www.doczj.com/doc/3a17176383.html,＝"Visual Basic Test" 10. 下列不能打开代码窗口的操作是________ 。 A) 双击窗体上的某个控件 B) 双击窗体 C) 按F7键 D) 单击窗体或控件

vb试题及答案

VB试卷一、单项选择题(每题2分,共40分) 1. 窗体的标题栏显示内容由窗体对象的属性决定。 A) BackColor B)BackStyle C)Text D)Caption 2. 窗体的示意图标可用属性来设置。 A) Picture B) Image C) Icon D) MouseIcon 3. 窗体的控制菜单的有无由窗体对象的属性决定。 A) ControlBox B) MinButton C) MaxButton D) BorderStyle 4. 若要取消窗体的最大化功能，则可设置属性为False来实现。 A) ControlBox B) MinButton C) MaxButton D) Enabled 5. 以下4个选项，不属于VB的工作模式。 A) 编译 B) 设计 C) 运行 D) 中断 6. 窗体的边框样式由窗体对象的属性来设置。 A) BackStyle B) BorderStyle C) WindowState D) FillStyle 7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。 A) FontName B) Font C) FontSize D) FontBold 8. 命令按钮的标题文字由属性来设置。 A) Text B) Caption C) Name D) (名称) 9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。 A) 变量 B) 属性 C) 事件 D) 方法 10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。 A) Value B) Cancel C) Default D) Enabled 11. 若要使命令按钮不可见，可设置属性为False来实现。 A) Value B) Enabled C) Visible D) Cancel 12. 运行程序时，系统自动执行窗体的事件。 A) load B) click C) unload D) GotFocus 13. 若要设置文本框最大可接收的字符数，可通过属性来实现。 A) MultiLine B) Length C) Max D) MaxLength 14. 若要使某命令按钮获得控制焦点，可使用方法来设置。 A) Refresh B) SetFocus C) GotFocus D) Value 15. 若要使命令钮可响应事件，可通过设置属性的取值来实现。 A) Visible B) Enabled C) Default D) Value 16. 在运行时，若要调用某命令按钮的Click事件过程，可设置该命令按钮对象的属性为True来实现。 A) Enabled B) Value C) Default D) Cancel 17. 标签框的边框，由属性的设置值决定。

《VB程序设计》习题答案-林卓然编著

《VB语言程序设计》教材林卓然编著《VB程序设计》习题参考答案第1章习题一、单选题 1．D 2．B 3．C 4．A 5．C 6. A 7．A 8．B 9．C 10．(1)A (2)B 二、多选题 1．ACDE 2．BCDE 3．CD 4. CE 三、填空题 1．事件驱动 2．解释，编译 3．设计，运行，中断 4. 属性，方法，事件 5. Command2_Click 6. 中央，代码 7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计" 编程及上机调试 1. 按要求设置窗体属性 2．在窗体上建立一个标签Label1。程序代码如下： Private Sub Form_Click() Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Label1.Caption = "你双击了窗体" End Sub 3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * x End Sub 第2章习题一、单选题 1．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B 二、多选题 1．BD 2．CD 3．AC 4. AD 三、填空题 1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y)

osce参考例题60道

osce考试病例分析参考试题病历分析一般会有60个病历供考生选择，病历分析中重点抓分要注意三点： 1.诊断一定要写全，要主次有序。如慢支的病历诊断要写：1）慢性支气炎合并感染2）阻塞性肺气肿3）肺原性心脏病4）心功能几级要注意病史及辅检中提供的每个线索，各个系统中的疾病并不多，很容易判断出来，特别是外科及妇产科，病种更少，一但抽到，则立刻可断定是什么疾病。总之，诊断一定要写全。一些基本化验值也应知道，如血钾低，则在诊断中应加上低钾血症；一些疾病的基本特征是要掌握的，如膈下游离气体，则为消化道穿孔；外伤后出现昏迷及中间清醒期，则为硬膜外血肿，如有瞳孔的改变则考虑有脑疝出现，注意诊断前面还要加上脑外伤；脾破裂可以有被膜下出血，可以在伤后一周才出现出血性休克症状，要加以注意。 2.诊断依据：一定要用病史及辅检中给的资料，按诊断的顺序对应列出。上面提到的一些具体疾病特征就是诊断的重要依据。 3.鉴别诊断：要围绕着病变的部位及特征写出几种疾病，一般有三、四种，如果你真是不了解，那就将相近的疾病多写几种吧。 4.近一步检查：举几个例子供大家体会一下：胃癌：进一步作CT（看一下肝、腹腔转移）；胸片（有无肺转移）心绞痛：24小时动态心电图、动态监测血清心肌酶闭合性腹部损伤（脾破裂）：腹腔穿刺、腹部B超、腹部X线 5.治疗：重点写治疗原则，也要有主次。注意不要忘记支持治疗，及一些预防复发、健康教育等项目病例摘要：男性，13岁，因高热、头痛、频繁呕吐4天。患者4天前（1月15日）突然高热达40℃，伴发冷，寒战，同时出现剧烈头痛，头痛为全头痛。频繁呕吐，呈喷射性，吐出食物和胆汁，无上腹部不适，进食少，二便正常。所在学校有类似病人发生。查体：T39.5℃，P100次/分，R22次/分，Bp120/90mmHg，急性热病容，神清，皮肤散在少量出血点，浅表淋巴结未触及，巩膜无黄染，咽充血，扁桃体无肿大，颈强（），两肺叩清音，无啰音，心界叩诊不大，心率110次/分，律齐，腹平软，肝脾肋下未触及，下肢不肿，Brudzinski征（），Kernig征（），Babinski 征（-）化验：血WBC17.2×109/L，N86％，L14％。要求根据以上病史摘要，将诊断及诊断依据；鉴别诊断；进一步检查与治疗原则写在答题纸上。标准答案：一、诊断及诊断依据：8分（一）诊断流行性脑脊髓膜炎（普通型）可能性大。（4分）（二）诊断依据

VB课本习题答案第三章

第3章程序流程控制 3．1 填空题 1．设变量r 表示圆的半径，则计算圆的面积并赋给变量s使用的赋值语句为（s=3.14159*r*r ）。 2．给命令按钮Command2的Caption属性赋予字符串“退出”使用的赋值语句为（Command2.Caption=＂退出＂）。 3．为了求n的阶乘，要求用户输入n的值。程序使用InputBox函数输入，要求对话框提示信息为“请输入一个求阶乘的数：”，标题为“求数的阶乘”，并且正确地把输入的信息转换为数值存放到变量n中，则使用的赋值语句为（n=val（InputBox（＂请输入一个求阶乘的数：＂，＂求数的阶乘＂））。４．如果使用MsgBox对话框显示提示信息“退出本系统？”，并显示“是（Yes）”和“否（No）”两个按钮，显示图标“？”号，指定第一个按钮为默认值以及标题为“提示信息”，则调用MsgBox函数的形式为（MsgBox（＂退出本系统? ＂，4+32+0，＂提示信息＂））。５．如果使用MsgBox对话框显示提示信息“文件未找到！”，并显示“确定”按钮、图标“！”号和标题“文件查找”，则使用的MsgBox语句为（MsgBox＂文件未找到＂，0+48+0，＂文件查找＂）。６．要在当前窗体Form和立即窗口输出字符串“Visual BASIC 6.0”使用的Print方法分别是( Print “Visual BASIC 6.0”)和( Debug.Print “Visual BASIC 6.0”)。７．使用Print方法时，若用逗号分隔，则按( 标准)格式输出各表达式的值，若用分号分隔，则按( 紧凑)格式输出各表达式的值。８．注释语句是一个（非执行）语句，VB不对它们进行编译，对程序的执行结果没有任何影响。９．判别变量i是否为偶数，若为偶数就把它显示出来。使用单行结构条件语句为（If i Mod 2=0 Then print x ）。页脚内容1

vb题库及答案

| 最新VB题库及答案一、选择题第1部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() = "计算机等级考试" End Sub ] B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() = "计算机等级考试" End Sub D、Private Sub Command1_Click() = "计算机等级考试" { End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。 A、 , B、： C、. D、； 3、下面（）是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y ] 4、下面（）是合法的字符常量。 A、 ABC$ B、“ABC” C、‘ABC’ D、 ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。 A、14 B、 4 C、20 D、2 6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是 A、b=Left(a,10) B、b=Mid(a,10) — C、b=Right(a,10) D、b=Mid(a,11,10) 7、设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A",

visual_Basic程序的设计教程_课后习题答案及练习

《VB程序设计》综合复习资料第一章 Visual Basic程序设计概述一、填空题 1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。 2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。 3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。 4、Visual Basic 6.0用于开发__________环境下的应用程序。二、选择题 1、下面不是VB工作模式的是（） A．设计模式B．运行模式C．汇编模式D．中断模式 2、可视化编程的最大优点是（） A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成 C．不需要编写大量代码来描述图形对象 D．所见即所得 3、下列不能打开属性窗口的操作是（） A．执行“视图”菜单中的“属性窗口”命令 B．按F4键 C．按Ctrl+T D．单击工具栏上的“属性窗口”按钮 4、下列可以打开立即窗口的操作是（） A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G

5、Visual Basic的编程机制是（） A．可视化 B．面向对象 C．面向图形 D．事件驱动三、简答题 1、代码窗口主要包括哪几部分？ 2、在工程资源管理器窗口中，主要列出了哪三类文件？ 3、窗体布局窗口的主要用途是什么？ 4、VB的基本特点是什么？ 5、怎样理解可视化设计？ 6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题 1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。 2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。 3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。 4、设置控件背景颜色的属性名称是______________________。 5、所有控件都具有的共同属性是__________________属性。 6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_______________。 7、VB中的每个对象（控件）都有一组特征，这组特征称为__________，我们通过修改它可以控制对象的外观和操作。 8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_____________文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。 9、VB有三种工作模式，分别是设计（Design）模式、_____________和中断（Break）模式。二、选择题 1、以下能够触发文本框Change事件的操作是（）

vb经典题目及答案

1、在考生文件夹下有工程文件wy7、vbp及窗体文件wy7、frm,该程序就是不完整的,请在有？号的地方填入正确的程序代码,然后删除？及所有注释符号(即 '号),但不能修改其它部分。修改后的程序文件都保存,存盘时不得修改文件夹与文件名。本题描述如下: 在窗体上有一个名为Text1的文本框,有三个命令按钮,名称分别就是C1、C2与C3,标题分别就是"读入"、"加密"与"存盘"。要求程序运行后,点击"读入"按钮,将文本文件in7、txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;点击"加密"按钮将Text1中的英文字母加密转换,并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如,转换前的字母就是"a",则转换后的就是"c",转换前就是"E",转换后就是"G";点击"存盘"按钮, 则将转换后的文本框中的文本保存到out7、txt 文件中(该文件保存到考生文件夹下)。 Private Sub C1_Click() Dim strinfo As String Open "in7、txt" For Input As 1 Input #1, strinfo Close #1 Text1、Text = strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i = 1 To Len(Text1、Text) strchange = strchange + Chr(Asc(Mid(Text1、Text, i, 1)) + 2) Next Text1、Text = strchange End Sub Private Sub C3_Click() Open "out7、txt" For Output As 1 Print #1, Text1、Text Close #1 End Sub 2、(1)在考生文件夹下有工程文件wy5、vbp及窗体文件wy5、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即'号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下: 在窗口中有一个RichText文本框控件(名称为rtx1)与一个文本框控件(名称为Text1),两个命令按钮,名称分别为Command1与Command2,标题分别为"加入WY01、TXT"、"统计字符个数"。要求程序运行后,单击command1将考生文件夹下的wy01、txt的内容显示到rtx1中;单击"统计字符个数"按钮统计Text1中有多少个字符,将结果显示在Text1中。

文档之家

VB课本习题答案第三章

VB程序设计课后习题答案(科学出版社)

osce参考例题60道

大学VB考试题库完整

vb程序设计实验教程习题答案

VB第三章练习题

vb练习题及答案.doc

VB程序设计教程(第3版)课后实验答案最新版2

呼吸内科OSCE试卷

vb练习题第三章

vb试题及答案

《VB程序设计》习题答案-林卓然编著

osce参考例题60道

VB课本习题答案第三章

vb题库及答案

visual_Basic程序的设计教程_课后习题答案及练习

最新VB第三章课后习题答案

vb经典题目及答案