当前位置：文档库 › VB作业第三章习题答案

VB作业第三章习题答案

本文由goodlak贡献

https://www.wendangku.net/doc/d5654826.html, 亲亲资料网

第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 ）。

2x + 1 x > 0 y = 0 x = 0 2x ? 1 x < 0 11．给定分段函数，求y的值，使用的单行结构条件语句为

If x>0 Then y=2*x+1 Else If x=0 Then y=0 Else y=2*x-1 ）。 1 2．判别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＂ a) t=b : b=a : a=t c) t=a : a=b : b=t b)a％＝＂10e＂ c)x＋１＝５ d)s＄＝100

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

b) a=a+b : b=a-b : a=a-b d) a=b : b=a

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

a) 0 a)0 a)1 a) c) b) 1 b)256 b)2 c)3 b) d) c) 2 c)512 d)4 If x Then t = t * x If x<0 Then y = 2*x-1 : Print x End If d)3 4．若在消息框MsgBox中选择第二个按钮为默认值，则buttons参数的设置值是( b

d)768

)。

5．若单击了“终止（Abort）”按钮，则MsgBox函数的返回值是（ c ）。 6．以下不正确的单行结构条件语句是（ d ）。

If x>y Then Print “x>y” If x Mod 3=2 Then ? x

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 "*****" b) 有语法错 d) 输出***** Then max=a Then max=b max=a Else max=b End If

以上程序（ c ）。

a) 没有输出 c) 输出##### a) b) If If a>b a>b

8．把a, b之中的最大值存放于max，下面语句书写正确的是（ d ）。Else End If c) If a>b 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 E nd 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 I s >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 Pr int 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．设有程序段

Dim k% 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 b) 4 c) 5 c) 5 d) 10

15．执行语句For

a) 3

i=1 to 3: i=i+1 :Next i后变量i的值是（ c

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 ” & “BASI C”， Not 5>3， 0.75 Print –2*3/2 ; “Visual ” & “BASIC”; x=1

2.34 Print “x=”； Print x End Sub Not 5>3; 0.75

答案：

-3 -3 x=12.34

Visual BASIC Visual BASICFalse .75

False

.75

2．

Private Sub Form_Click Print Tab(10); -100;Tab(20); 200;Tab(3 0); -300 Print Spc(10); -100;Spc(10); 200;Spc(10); -300

End Sub

答案：-100

-100 3． x=12.35

200 200

-300 -300

Private Sub Form_Click Print Format ( x,”###.##” ) Print For mat ( 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． Pri vate 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

答案：

5．

-1 2

3 0

2 0

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 x=8 x=4 x=15

y=4 y=9 y=8 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

Dim p%, s% p = 1: s = 1 Do

y=384

8． Private Sub Command1_Click()

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 W hile n<=m-1 Print m,n n=n+1 Wend Next m End Sub

答案:

1 2 2

3 3 3

0 0 1

0 1 2

3．4 编程题 1. 输入一个学生成绩，若成绩在85分以上，则输出“ve ry good”；若成绩在60分到80分之间，则输出“good”；若成绩低于60分，则输出“no good”。解答： (1) 界面设计和属性设置在

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

表3-3-1

控件名称 Form1 Label1 Label2 Text1 Text2 Command1 Command2

第1题的属性设置

属性值根据分数给定评语分数评语空串空串开始结束

属性名 Caption Caption Caption Text Text Caption Caption (2) 程序代码

Private Sub Command1_Click() Dim score!

score = Val(Text1.Text) If score >= 85 Then Text2.Text = "Ver y good!" ElseIf score >= 60 Then Text2.Text = "Good!" Else Te xt2.Text = "No good!" End If End Sub Private Sub Command2_Cli ck() End End Sub

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

第1题的执行结果

2. 求一元二次方程ax +bx+c=0的根。解答： (1) 界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3

-3-2所示。

表3-3-2

控件名称 Form1 Command1 Command2

第2题的属性设置

属性值求一元二次方程的根开始结束

属性名 Caption Caption Caption

(2) 程序代码

由中学数学知识知道，求一元二次方程的根的公式为：编程时要考虑如下各种情况：①当a=0 时，方程不是二次方程；

x1, 2 =

? b ± b 2 ? 4ac 2a ，

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

x 1, 2 = ?

b 2a ；

b 2 ? 4 a

c 2a ；

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

x 1, 2 =

?b±

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

Private Sub Command1_Click() Cls

x 1, 2 = ?

b ± 2a

4 ac ? b 2 i 2a 。

Dim a!, b!, c!, disc!, x1!, x2!, realpart!, imagpart! a = Inp utBox("请输入方程的系数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 T hen 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 El seIf 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 Priv ate Sub Command2_Click() End End Sub

注意，程序中的条件“fabs(a)<=0.000001”和“fabs(disc)<=0.0000 01”分别用来判断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)

3x ? 5 2 cos x + 1 1+ x2 2 3. 给定函数y = x ? 4 x + 5

1 <= x <

2 2 <= x < 4 4 <= x <= 5 其它

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

(要求使用Case语句) 解答： (1) 界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-3所示。

表3-3-3

控件名称 Form1 Command1 Command2

第3题的属性设置

属性值求给定分段函数的值开始结束

属性名 Caption Caption 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) 运行情况运行程序后，单击“开始”命令按钮，执行事件过程C ommand1_Click。执行时，按InputBox 对话框提示，输入x的值。计算结果在窗体上显示。 4. 输入圆的半径R和运算标志，

按照运算标志进行指定运算。给定的运算标志及其表示的运算如下：C（Circle）表示计算周长A（Area）表示计算面积B（Both）表示周长和面积都计算(要求使用Case语句) 解答：(1)界面设计和属性设置在窗体上放置两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-4所示。

表3-3-4

控件名称Form1

第4题的属性设置

属性值计算圆周长或圆面积或两者都计算

属性名Caption

Command1 Command2

Caption Caption

开始结束

(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和运算标志。计算结果在窗体上显示。2 2 2 5. 求满足1 +2 +…+n >1000的最小n值。(要求使用While…WEnd语句) 解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-5所示。

表3-3-5

控件名称Form1

第5题的属性设置

属性值求满足1^2+2^2+…+n^2>1000 的最小n值

属性名Caption

Command1 Command2

Caption Caption

开始结束

(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

控件名称Form1 Command1 Command2 Command3

第6题的属性设置

属性值求正实数之和Do While…Loop Do Until…Loop 结束

属性名Caption Caption Caption Caption

(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题的执行结果

-8

7．使用公式

1 1 +

2 +? 12 2

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

(要求使用Do…Loop While语句) 解答：(1)界面设计和属性设置在窗

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

表3-3-7

控件名称Form1 Command1 Command2

第7题的属性设置

属性值求圆周率的近似值开始结束

属性名Caption Caption Caption

(2)程序代码

Private Sub Command1_Click() Dim i&, s#, term# i = 1 s = 0 Do 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的迭代公式为：x n +1 = x n ? f ( x n ) / f ′( x n )

5 2

( n = 0, 1, 2, ? )

试用牛顿迭代法求解方程x －3x ＋2x＋1=0 在x0=0附近的根。(要求使用Do…Loop Until语句) 解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-8所示。表3-3-8

控件名称Form1 Command1 Command2

第8题的属性设置

属性值用牛顿法求方程的根开始结束

属性名Caption Caption Caption

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

x1 = x0 ? f ( x0 ) / f ′( x0 )

，然后判别∣x1－x0∣是否小于

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

′②令n=1 ，由迭代公式得x 2 = x1 ? f ( x1 ) / f ( x1 )

，然后判别∣x2－x1∣是否小ε。

若是，则迭代结束，x2 作为方程的近似根；否则，由x2求x3的值，判断∣x3－x2∣。┇按这样迭代下去，一直到∣xi＋1－xi∣< ε(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 = 解答：1 ? 1 2 + 1 3 ?1 4 + … + 1 99 ? 1 100

的值。

(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮

的主要属性设置如表3-3-9所示。

表3-3-9

控件名称Form1 Command1 Command2 属性名Caption Caption Caption

第9题的属性设置

属性值求s=1-1/2+1/3-1/4+…+1/99-1/100的值开始结束

(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中的水仙花数。所谓水仙花数是指一个三位数，它的各位数字的立方之3 3 3 和等于该数。例如，因为153 = 1 + 5 + 3 ，所以153是水仙花数。解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-10所示。

表3-3-10

控件名称Form1 Command1 Command2

第10题的属性设置

属性值求水仙花数开始结束

属性名Caption Caption Caption

(2)程序代码

Private Sub Command1_Click() Dim i%, a%, b%, c% Print 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 En

d If Next i End Sub Privat

e 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

控件名称Form1 Command1 Command2

第11题的属性设置

属性值求完数开始结束

属性名Caption Caption Caption

(2)程序代码

Private Sub Command1_Click() Dim i%, j%, s% Print 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

管理经济学作业与例题

6、一家剪草机制造公司出售剪草机系列产品，该公司现在的生产能力为年产400 000台剪草机，第二年的销售量估计为360 000台，但该公司刚接到国外一家公园设备推销商100 000台的订货单。在国内市场上，每台剪草机售价为50元，而外国出价40元。剪草机的单位制造成本如下（单位：元）：原材料15 直接人工12 变动间接费用 6 固定间接费用 2 全部单位成本35 问：如公司接受这笔订货，利润会增加还是减少？要不要接受这笔订货？ 7、大昌工具厂生产一种精密量具。以前，它在生产之后，还要卖给其他厂商进一步加工，然后再给各研究所实验室使用。大昌这种产品的销售量为每年5 000单位。销售价格为250元。现大昌厂考虑：如果这种量具全部由该工厂自己加工，然后直接卖给各研究所实验室，销售价格是300元。为此，虽不需要进一步投资，但需要增加成本支出如下：直接人工费20元/件变动间接费用5元/件变动销售费用2元/件固定销售费用200000元/件问：大昌工具厂要不要自己来完成进一步加工？ 8、假定丽华公司使用一台机器可生产甲产品，也可生产乙产品。如机器的

最大生产能力为10 000定额工时，生产甲产品每件需100定额工时，生产乙产品需40定额工时，甲产品最大销售量为80件，乙产品最大销售量为150件。这两种产品的销售单价和成本数据如下：甲产品乙产品销售单价（元）200 120 单位变动成本（元）120 80 固定成本总额（元）20 000 问：根据以上资料，该企业应生产甲、乙两种产品各多少？ 11、某公司生产电动剃须刀，生产能力为10 000个/年，预计明年的销售量为8 000个。全部固定间接费用为48 000元。其单位成本、利润数据如下（单位：元）：原材料费用 10 直接人工费用 10 变动间接费用 4 固定间接费用 6 单位全部成本 30 价格 32 单位利润 2 （1）该公司的盈亏分界点的产量是多少？（2）如果该公司的目标利润为72 000元，保目标利润的产量是多少？（3）如果该公司增加了10 500元广告费，同时由于改进了劳动组织，使直接人工费用下降10%，此时盈亏分界点的产量是多少？ 12、大华出版社出版一本经济学教材，下面是有关的一些数据：

2020继电保护作业模拟题库(含答案)【2020年最新】

第1题、【判断题】|发电厂、变电站的电气系统按其作用分为一次系统和和二次系统。 A、正确 B、错误正确答案：A 第2题、【判断题】一般将定时限过电流保护动作时间整定原则称为阶梯时限原则。 A、正确 B、错误正确答案：A 第3题、【判断题】一般把继电保护动作值、动作时间的计算和灵敏度的校验称为继电保护的整定计算。 A、正确 B、错误正确答案：A 第4题、【判断题】三段式电流保护中定时限过电流保护构成线路的后备保护。 A、正确 B、错误正确答案：A 第5题、【判断题】三段式电流保护中瞬时电流速段保护及限时电流速段保护构成线路的主保护。 A、正确

B、错误正确答案：A 第6题、【判断题】三段式电流保护加装功率方向元件后即可构成三段式方向电流保护。A、正确 B、错误正确答案：A 第7题、【判断题】三段式电流保护对双侧有电源的线路或环网线路通过动作电流、动作时限整定任何时候都不能保证保护的选择性。 A、正确 B、错误正确答案：B 第8题、【判断题】三段式零序电流保护中第III段为限时零序电流速断保护。 A、正确 B、错误正确答案：B 第9题、【判断题】三段式零序电流保护中第II段为零序过电流保护。 A、正确 B、错误正确答案：B 第10题、【判断题】三段式零序电流保护中第I段为瞬时零序电流速断保护。 A、正确 B、错误正确答案：A

第11题、【判断题】三段式零序电流保护加装正序功率方向元件后构成三段式零序方向电流保护。 A、正确 B、错误正确答案：B 第12题、【判断题】上下级定时限过电流保护按照选择性要求上级线路比下级线路动作时间大。正确答案：A 第13题、【判断题】上下级定时限过电流保护灵敏度配合时上下级动作电流整定值相等。 A、正确 B、错误正确答案：B 第14题、【判断题】不同原理的微机保护可以采用通用的硬件。 A、正确 B、错误正确答案：A 第15题、【判断题】中央事故音响信号利用“不对应”原则起动即断路器合闸相应的控制开关在“合闸后”位置时启动事故音响。 A、正确 B、错误正确答案：B 第16题、【判断题】中央事故音响信号利用“不对应”原则起动即断路器跳闸

vb实验教程答案

第一章答案：一、单项选择题 1.B 2. C 3. D 4.D 5.D 6.D 7.D 8.C 9.B 10.B 11.A 12.D 13.B 14.C 二、判断题 1.T 2.T 3.F 4.F 5.F 6.T 7.T 8.T 9.T 10.T 11.T 第二章一、单项选择题 1. B 2. D 3. A 4. D 5. B 6.A 7. D 8. D 9. D 10. A 11. A 12. A 13. C 14. C 15. A 16. C 17. A 18. D 19. A 20. D 21. B 22. C 23. B 24. A 25. B 26. A 27. C 28. D 29. D 30. B 31. C 32. D 33. B 34. C 35. C 36. C 37. C 38. D 39. C 40. A 41. D 二、判断题 1. True 2. True 3. False 4. False 5. False 6. False 7. False 第三章一、单项选择题 1.A 2.D 3.D 4.B 5.B 6.D 7.C 8.D 9.B 10.B 11.D 12.D 13.C 14.D 15.A 16.C 17.B 二、判断题 1.T 2.F 3.T 4.T 5.F 6.F 7.F 8.F 9.F 10.F 11.T 12.F 13.F 14.T 15.F 16.T 17.T 18.F . 第四章一、单项选择题 1.D 2.A 3.C 4.C 5.B 6.C 7.B 8.B 9.C 10.B 11.A 12.A 13.B 14.C 15.C 16.D 17.A 18.D 19.B 20.A 21.D 22.B 23.A 24.D 25.D 26.B 27.D 28.A 29.D 30.A 31.D 二、判断题 1.F 2.T 3.F 4.F 5.T 6.F 7.T 三、操作题 1.参考代码： Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer Dim sum As Integer For i = 2 To 10000 sum = 0 For j = 1 To i / 2 k = i Mod j If 0 = k Then sum = sum + j End If Next j

大学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.wendangku.net/doc/d5654826.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

2014管理经济学复习题

管理经济学复习题 1、一个最近毕业的MBA拒绝了一份每年30000元薪水的工作机会，决心自己创业。他准备取出50000元银行存款（年利率7%）投入企业，再把自己目前出租的一套房子（月租金1 500元）用于企业经营。一年中，他的销售收入为107000元，雇员工资支出40000元，广告支出5000元，设备租金10000元，杂费5000元，缴纳税收5000元。请计算他的会计利润和经济利润。 2、李四原在一家洗衣房工作，年薪为30000元。现他打算离开那里自办洗衣房。预计年营业收入为100000元。开支包括：雇员薪水35000元，各种用品10000元，房租8000元，水、电、煤气2000元，银行利息支出5000元。请计算：显成本、隐成本、会计利润、经济利润；问：自办洗衣房是否合算？ 3、小张拟投资100000元开设一家商店，自当经理。年收支情况预计如下：销售收入330000 会计成本290000 其中：售货成本240000 售货员工资40000 折旧10000 需要说明的是，该商店的货物是过去进的，假如现在进这批货，售货成本将为260000元。售货员的工资则与现在劳动市场上劳动力的工资水平相当。这100000元资产，预计使用一年后只值88000元。小张如在别处工作年收入为30000元。全部投资若投入其他风险相同的事业可获年收入8000元。小张是否应在这里投资？（通过计算式说明） 4．某公司估计其产品的需求函数为Q=400-3P+4I+0.6A，其中，Q是每月的需求量，P是产品价格（元），I是人均可支配收入（千元），A是公司的广告支出（每月千元）。（1）在下一个10年里，预计人均可支配收入增加5000元，这对公司的销售会产生什么影响？（2）公司想提高价格抵消收入增加对需求量的影响，它应把价格提高多少？（3）如果公司提高了价格，公司产品的价格弹性会发生什么变化？ 5、巴西的气候与纽约的咖啡价格：巴西是世界咖啡市场的主要供给来源，巴西的气候灾害会影响世界咖啡市场的价格。例如，1975年7月的一场严霜毁掉了巴西1976——1977年度的绝大部分咖啡收成。在纽约，一磅咖啡的价格从1975年的0.68美元上涨到1976年的1.25美元和1977年的2.70美元。然而，1978年价格开始下降，为1.48美元，1983年的实际价格又恢复到了1975年的水平。请用静态和比较静态示意图分析价格调整的过程。 6、某汽车公司今年的J型轿车销售量为30万辆。该轿车的需求价格弹性为—3.0，收入弹性为3.5。公司准备把明年的价格下降5%，它预期明年的居民收入会提高8%。于是公司预测到明年J型轿车的市场销量将为多少？ 7、计算分析某出租汽车公司有小轿车20辆、大轿车3辆。当司机人数分别为15、20、25、30、35人时，每月营业收入分别为1100000元、1175000元、1225000元、125 0000元、1260000元。如果司机每月平均工资为4000元，因增加一名司机而引起的其他支出(如燃料费等)为

继电保护原理第二次作业答案

继电保护原理第二次作业答案 Revised as of 23 November 2020

《继电保护原理》第二次作业答案一、单项选择题。本大题共20个小题，每小题分，共分。在每小题给出的选项中，只有一项是符合题目要求的。 1.电磁型电流继电器的动作条件是( C ) A.M ≥M m dc B. C.M dc≥M th? D.M dc?≥M m+ M th E.M dc≥ M m+2M th 2.电流继电器返回系数是指返回电流和动作电流的比值。为保证电流保护较高的动作( C )，要求有较高的返回系数。 A.选择性 B.速动性 C.灵敏性 D.可靠性 3.电流保护进行灵敏度校验时选择的运行方式为系统( B ) 4. A.最大运行方式 B.最小运行方式 C.正常运行方式 D.事故运行方式 5.灵敏度过低时，则在最不利于保护动作的运行方式下，可能使保( B )。 A.误动 B.拒动 C.速动性受影响 D.可靠性受影响 6.Y/-11变压器后( D )相故障时, 三继电器方式动作灵敏度提高1倍。 7. A.BC B.ABC C.CA D.AB 8.电流速断保护定值不能保证( B )时，则电流速断保护要误动作，需要加装方向元件。 9.

A.速动性 B.选择性 C.灵敏性 D.可靠性 10.大电流接地系统单相接地短路时保护安装处的零序电流、电压之间的相位差由其(B)零序阻抗角决定，与故障点位置无关。 A.线路的 B.背侧的 C.相邻变压器的 D.相邻线路的 11.一般零序过电流(零序III段)保护的动作时间( A )单相重合闸的非同期时间，因此可以不考虑躲非全相运行时的最大零序电流。 A.大于 B.小于 C.等于 D.接近 12.在给方向阻抗继电器的电流、电压线圈接入电流电压时，一定要注意不要接错极性，如果接错极性，会发生方向阻抗继电器(C )的后果。 A.拒动 B.误动 C.正向故障拒动或反向故障误动 D.损坏 13.距离 III 段的灵敏度校验应按分支系数K fz为最大的运行方式来确定，目的是为了保证保护的(C)。 A.速动性 B.选择性 C.灵敏性 D.可靠性 14.反应接地短路的阻抗继电器，如果U J =U A，则 I J=(C )。 A.I A B.I A-I0 C.I A-K3I0 D.3I0 15.对于三段式距离保护，当线路故障且故障点位于保护 I 段范围内时，阻抗元件的启动顺序是(C)。 A.Ⅰ段Ⅱ段Ⅲ段 B.Ⅲ段Ⅱ段Ⅰ段 C.Ⅰ、Ⅱ、Ⅲ段同时

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)）。

管理经济学复习题与答案

一、单项选择题 1. 在总产量曲线的拐点处，有：（D ） A.总产量最大 B.平均产量最大 C.边际产量为零 D.边际产量最大 2. 利息支付，财产税和折旧都属于( C ) A．可变成本B．短期成本C．固定成本D．以上都对 3. 请对下面两句话的对错进行判断：答案：a Ⅰ. 在长期内初级铜的供给比在短期内更有弹性 Ⅱ. 在短期内再生铜的供给比初级铜更有弹性 a) I 和II 都是正确的 b) I 正确，II 错误 c) I 错误，II 正确 d) I 和II 都是错误的注意理解：供给弹性与需求弹性 4. 如果某厂商的需求曲线D=P=AR＞MR，则可判断该厂商为：（D ） A.完全垄断 B.垄断竞争 C.寡头垄断 D.以上情况都有可能 5.随着产量的增加，其数值会不断下降的成本是：..................................（. B ） A.固定成本 B.平均固定成本 C.平均变动成本 D.边际成本 6.随着产量的增加，AC、AVC、MC到达最低点的顺序为：......................（B ） A.MC 、AC、AVC B.MC、AVC、AC C.AC、MC、AVC D.AC、AVC、MC 7.已知产量为8个单位时,总成本为80元,当产量增加到9个单位时,平均成本为11元, 那么此时的边际成本为[B] A.1元 B.19元 C.88元 D.20元 E.无法确定 8、若商品价格上升2%，其需求量下降10%，则该商品的需求价格弹性是（ B ）A．缺乏弹性的 B．富有弹性的 C．有单位弹性的 D．无法确定 E．具有无限弹性

电力系统继电保护题目答案

电力系统继电保护网上作业题第一章绪论一. 填空题 1.对继电保护装置的四项基本要求是( )性、( )性、( )性和( )性。 2.继电保护装置组成部分一般包括（），（），（）。 3.电力系统发生故障时，继电保护装置应将（）部分切除，电力系统出现不正常工作时，继电保护装置一般应（）。 4.继电保护的可靠性是指保护在应动作（），不应动作时（）。 5.输电线路的短路可分为（）、（）两类。 6.电力系统的三种运行状态（）、（）、（）。 7.按继电保护所起的作用可分为( )保护、( )保护，其中后备保护又可分为( )保护和( )保护。 8.能满足系统稳定及设备安全要求，有选择性地切除被保护设备和全线故障的保护称为( ).若主保护或断路器拒动时，用以切除故障的保护称为( )。 9.保护装置的灵敏性，通常用（）来衡量，灵敏系数越大，则保护的灵敏度就越（）。 10.最常见的不正常运行状态是（）,最常见的故障类型是（）。 11.继电保护装置有按反应电流增大原理而构成的( )保护，有按反应电压降低原理而构成的( )保护，有按反应电流与电压比值及相角变化原理而构成的 ( )保护等。 12.反应于变压器油箱内部故障时所发生气体而构成( )保护；反应于电动机绕组的温度升高而构成( )保护。二.选择题 1.当系统发生故障时，正确地切断离故障点最近的断路器，是继电保护( )的体现. A．速动性 B. 选择性 C. 灵敏性 2.为了限制故障的扩大，减轻设备的损坏，提高系统的稳定性，要求继电保护装置具有（）. A．速动性 B. 选择性 C. 灵敏性三.问答题 1.什么是继电保护装置？ 2.对继电保护有哪些要求？各项要求的定义是什么？ 3.继电保护装置的基本任务是什么？ 4.什么是主保护？什么是后备保护？ 5.何谓近后备保护、远后备保护？电力系统继电保护网上作业题参考答案第一章绪论一. 填空题速动性选择性灵敏性可靠性测量部分、逻辑部分、执行部分故障发出信号不拒动，不误动相间短路，接地短路正常状态不正常状态故障状态主保护后备保护近后备远后备主保护后备保护灵敏系数高过负荷单相接地故障过电流低电压差动瓦斯过负荷二.选择题 1. B , 2. A 三.问答题 1.继电保护装置，就是指反应电力系统中电气元件发生故障或不正常运行状态，并动作于断路器跳闸或发出信号的一种自动装置。 2.电力系统继电保护的基本性能应满足四个基本要求，即选择性、速动性、灵敏性、可靠性。选择性：是指保护装置动作时，仅将故障元件从电力系统中切除，使停电范围尽量缩小，以保证系统中的无故障部分仍能继续安全运行。速动性：短路时快速切除故障，可以缩小故障范围，减轻短路引起的破坏程度，减小对用户工作的影响，提高电力系统的稳定性。灵敏性：是指对于保护范围内发生故障或不正常运行状态的反应能力。可靠性：是指在规定的保护范围内发生了属于它应该动作的故障时，它不应该拒绝动作，而在其他不属于它应该动作的情况下，则不应该误动作。 3.基本任务：（1）发生故障时，自动、迅速、有选择地将故障元件从电力系统中切除，使故障元件免于继续遭受破坏，保证非故障部分迅速恢复正常运行。（2）对不正常运行状态，根据运行维护条件，而动作于发出信号、减负荷或跳闸，且能与自动重合闸相配合。 4.所谓主保护是指能以较短时限切除被保护线路（或元件）全长上的故障的保护装置。考虑到主保护或断路器可能拒动而配置的保护，称为后备保护。 5. 当电气元件的主保护拒动时，由本元件的另一套保护起后备作用，称为近后备。当主保护或其断路器拒动时，由相邻上一元件的保护起后备作用称为远后备。第二章电网的电流保护

vb实验作业参考答案

VB实验作业参考答案作业一窗体设计 (2) 作业二计算器 (4) 作业三人民币张数求电阻值 (6) 作业四（必做）建康城 (8) 作业五阶乘累加 (9) 作业六（必做）九九乘法表 (11) 作业七（必做）I NPUT B OX 函数输入12个整数，赋值给3×4的二维数组 (12) 作业八递归函数计算两个正整数的最大公约数，递归公式为 (13) 作业九（必做）家电提货单 (15) 作业十统计某个文本文件中各英文字母出现的次数，不区分大小写，并将结果打印到窗体上。 (17) 作业十一设计一个程序，用于打开1个windows应用程序，如打开“记事本”“画图”、“计算器”等。 (19) 作业十二通过菜单选择，对字体、字号进行设置 (21)

作业一 1.简答题(略) 2.编程题： 1)单击窗体后在窗体上显示“您好！×××同学”。要求：（1）程序中用自己的姓名替代“×××”。（2）文字以红色、仿宋体、加粗、三号字显示，并在字下加横线。（3）建立一个命令按钮，结束时单击此按钮退出。答案参照课本P27的例1-6。 2)设计一窗体，窗体上有1个文本框（Text1）、1个命令按钮（Command1），运行时文本框中显示“Visual Basic程序设计”，命令按钮标题为“结束”，文本框及命令按钮能随窗体大小的调整而自动调整大小及位置，其中调整文本框使其：Left=0，Top=0，宽度和高度都为窗体的一半；命令按钮：始终位于窗体右下角位置。请编写：（1）用代码初始化各控件（提示：可写在Form_Load事件中）。（2）文本框控件随窗体的大小而调整大小的代码，以及调整命令按钮位置始终位于窗体右下角的代码（提示：调整大小位置的代码写在Form_Resize事件中）。（3）结束程序运行的代码（命令按钮）。程序代码： Private Sub Form_Load() Text1.Left = 0 Text1.Top = 0 Text1.Width = Form1.Width / 2 Text1.Height = Form1.Height / 2 Command1.Left = Form1.ScaleWidth - Command1.Width

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.wendangku.net/doc/d5654826.html,＝"Visual Basic Test" 10. 下列不能打开代码窗口的操作是________ 。 A) 双击窗体上的某个控件 B) 双击窗体 C) 按F7键 D) 单击窗体或控件

管理经济学作业与例题

6、一家剪草机制造公司出售剪草机系列产品,该公司现在的生产能力为年产400 000台剪草机,第二年的销售量估计为360 000台,但该公司刚接到国外一家公园设备推销商100 000台的订货单。在国内市场上,每台剪草机售价为50元,而外国出价40元。剪草机的单位制造成本如下(单位:元): 原材料15 直接人工12 变动间接费用 6 固定间接费用 2 全部单位成本35 问:如公司接受这笔订货,利润会增加还就是减少？要不要接受这笔订货？ 7、大昌工具厂生产一种精密量具。以前,它在生产之后,还要卖给其她厂商进一步加工,然后再给各研究所实验室使用。大昌这种产品的销售量为每年 5 000单位。销售价格为250元。现大昌厂考虑:如果这种量具全部由该工厂自己加工,然后直接卖给各研究所实验室,销售价格就是300元。为此,虽不需要进一步投资,但需要增加成本支出如下: 直接人工费20元/件变动间接费用5元/件变动销售费用2元/件固定销售费用200000元/件问:大昌工具厂要不要自己来完成进一步加工？ 8、假定丽华公司使用一台机器可生产甲产品,也可生产乙产品。如机器的最大生产能力为10 000定额工时,生产甲产品每件需100定额工时,生产乙产品需40定额工时,甲产品最大销售量为80件,乙产品最大销售量为150件。这两种产品的销售单价与成本数据如下: 甲产品乙产品销售单价(元) 200 120 单位变动成本(元) 120 80 固定成本总额(元) 20 000 问:根据以上资料,该企业应生产甲、乙两种产品各多少？ 11、某公司生产电动剃须刀,生产能力为10 000个/年,预计明年的销售量为8 000个。全部固定间接费用为48 000元。其单位成本、利润数据如下(单位:元): 原材料费用 10 直接人工费用 10 变动间接费用 4 固定间接费用 6 单位全部成本 30 价格 32 单位利润 2 (1)该公司的盈亏分界点的产量就是多少？ (2)如果该公司的目标利润为72 000元,保目标利润的产量就是多少？ (3)如果该公司增加了10 500元广告费,同时由于改进了劳动组织,使直接人工费用下降10%,此时盈亏分界点的产量就是多少？ 12、大华出版社出版一本经济学教材,下面就是有关的一些数据:

2019年继电保护作业安全生产模拟考试题库及答案

2019年继电保护作业安全生产模拟考试题库及答案微信也可以搜索小程序或者公号“安全生产模拟考试一点通””进行全部题库练习和模拟考试，错题练习，成绩测评。第1题、【判断题】中性点直接接地系统发生接地故障，接地故障点的零序电压最高。A、正确B、错误正确答案：A 第2题、【判断题】中性点直接接地运行的变压器接地保护,零序电流取自变压器中性点电流互感器二次侧。 A、正确 B、错误正确答案：A 第3题、【判断题】中性点直接接地运行的变压器接地保护通常采用三段式零序电流保护。 A、正确 B、错误正确答案：B 第4题、【判断题】中性点经小电阻接地系统进行短路电流计算时,零序网络按接入3倍中性点电阻计算。 A、正确 B、错误正确答案：A 第5题、【判断题】中性点经消弧线圈接地的主要目的是减小单相接地故障电流,促进电弧自行熄灭,避免发展成相间短路或烧断导线。 A、正确 B、错误正确答案：A 第6题、【判断题】中性点采用电阻接地时可以避免中性点接消弧线圈带来的谐振过电压。 A、正确 B、错误正确答案：A 第7题、【判断题】中间继电器一般带有多付触点,且触点容量较大。 A、正确 B、错误正确答案：A 第8题、【判断题】中间继电器可增大保护固有动作时间,避免避雷器放电造成保护误动。

正确答案：A 第9题、【判断题】中间继电器可用于增加触点容量、接通断路器的跳闸回路。 A、正确 B、错误正确答案：A 第10题、【判断题】中间继电器在继电保护中主要实现动作信号。 A、正确 B、错误正确答案：B 第11题、【判断题】中间继电器的文字符号表示为KT。 A、正确 B、错误正确答案：B 第12题、【判断题】为了保证电气作业的安全性，新入厂的工作人员只有接受工厂、车间等部门的两级安全教育，才能从事电气作业。 A、正确 B、错误正确答案：B 第13题、【判断题】为保证内部短路故障时差动保护的灵敏度,变压器差动保护动作特性采用动作圆特性。 A、正确 B、错误正确答案：B 第14题、【判断题】为保证内部短路故障时差动保护的灵敏度,变压器差动保护动作特性采用比率制动特性。 A、正确 B、错误正确答案：A 第15题、【判断题】为保证电流互感器的综合误差满足小于10%的要求,电流互感器接入的二次负载阻抗要大于限制值。 A、正确 B、错误正确答案：B 第16题、【判断题】为保证电流互感器的综合误差满足小于10%的要求,电流互感器接入的二次负载阻抗要小于限制值。

vb6.0实验六习题与答案

实验六专业_____________ 班级________年级________姓名______________学号_______________ 一、实验目的 1、认识常用控件：单选按钮、复选框、框架、列表框、组合框、滚动条、滑动器（Slider）、时钟、图形控件； 2、学习在窗体中创建常用控件 2、学习在属性窗口和在程序代码中设置属性 3、学习调用控件的方法 4、学习编写各控件和鼠标与键盘的事件过程二、实验内容 1、单选按钮、复选框、框架 1）设置窗体F1的标题为“复选框、框架和单选按钮”；在窗体中设置复选框Ch1、Ch2 Ch1和Ch2的高度和宽度分别为360和1000；并程序运行时，Check2处于非少许状态。框架Fr1包含单选按钮Op1和Op2。 2）设计窗体，要求 ①标题为“设置字体”； ②在窗体中设置有边框的标签控件Label1，高度和宽度分别为450和3800，标题为“欢迎使用VB”，字号为“四号”，居中显示； ③标题为“字体”框架包含两个标题分别为“楷体_GB2312”和“华文新魏”的单选按钮Op1和Op2； ④标题为“斜体”框架包含两个标题分别为“是”和“否”的单选按钮。 ⑤编写相应控件的事件过程，使得程序运行时，单击“楷体_GB2312”，标签控件的字体为楷体_GB2312，单击“华文新魏”，标签控件的字体为华文新魏；单击“是”，标签控件的字体为斜体，单击“否”，标签控件的字体取消斜体。 Private Sub Option1_Click() Label1.FontName = Option1.Caption End Sub Private Sub Option2_Click()

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

管理经济学习题知识点汇总及解析

管理经济学复习习题和解析（致谢中大MBA人员：邓同学、王同学、高同学）一、单项选择题 1. 在总产量曲线的拐点处，有：（D ） A. 总产量最大 B.平均产量最大 C.边际产量为零 D.边际产量最大知识点：生产理论（第五章），P25/5-6 ，P26/1-2 总产量曲线拐点指边际产量有最大值，而非总产量最大值。其中特别留意：劳动力合理区间：[ 平均产量最大值，总产量最大值] 2. 利息支付，财产税和折旧都属于（ C ） A. 可变成本 B ?短期成本C ?固定成本 D ．以上都对 3. 请对下面两句话的对错进行判断：答案：a I .在长期内初级铜的供给比在短期内更有弹性 n .在短期内再生铜的供给比初级铜更有弹性 a）I 和II 都是正确的 b）I 正确，II 错误 c） I 错误，II 正确 d）I 和II 都是错误的注意理解：供给弹性与需求弹性知识点：生产理论（第五章、第六章）短期生产函数与长期生产函数短期生产函数：投入的资本品不变，只改变劳动力原材料的投入。P25/1 长期生产函数：资本品和劳动力原材料都改变。P37/1 ，初级铜：采矿生产，受生产周期影响，调整供给需要时间；再生铜：废品回收利用生产，市场供给量能在短时间内增加。 4. 如果某厂商的需求曲线D=P=A矗MR则可判断该厂商为：（D ） A. 完全垄断 B. 垄断竞争 C. 寡头垄断 D. 以上情况都有可能知识点：市场结构（第七、八、九章）完全竞争市场的厂商需求曲线：D=AR=MR=P P45/2 不完全竞争市场的厂商需求曲线：MR=a-2bQ MR与AF分开。P49/4 5. 随着产量的增加，其数值会不断下降的成本是（B ） A. 固定成本 B. 平均固定成本 C. 平均变动成本 D. 边际成本知识点：生产理论（第六章）短期成本函数P35/6 6. 随着产量的增加，AC AVC M倒达最低点的顺序为（B ）

Vb上机实验答案

第一题 1.制作如图所示窗体界面。（用真实的姓名、班级及学号） 2.使时间每隔1秒刷新一次 3.单击“最大值”命令按钮时，算出通过键盘输入的5个数的最大值 4.在列表框中输入20、22、24、26、28 Private Sub Command1_Click() Dim a(1 To 5) As Integer For i = 1 To 5 a(i) = InputBox("please input a number") Next i mmax = a(1) For i = 1 To 5 If a(i) > mmax Then mmax = a(i) End If Next i MsgBox mmax End Sub Private Sub Timer1_Timer() Label2.Caption = Time End Sub 第二题 1.两个文本框里输入两个数字从而确定一个范围。 2.单击“计算”按钮求出这个范围中能被3或5整除的数的平方和，结果显示在label3中。 https://www.wendangku.net/doc/d5654826.html,bel3的背景色每隔1.5秒蓝红交替。

Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Text1.Text b = Text2.Text s = 0 For i = a To b If a Mod 3 = 0 Or b Mod 5 = 0 Then Label3.Caption = Label3.Caption & i & "," s = s + i * i End If Next i Label3.Caption = s End Sub Private Sub Timer1_Timer() If Label3.BackColor = vbRed Then Label3.BackColor = vbBlue Else Label3.BackColor = vbRed End If End Sub 第三题 1、单击按钮，在文本框中显示1到终值的所有整数的平方和 2、单击生成列表按钮，在列表框中显示1到终值之间的所有整数 Private Sub Command1_Click()