VB课后习题参考答案最全Word格式文档下载.docx

1、第二章1、2、3、S1 输入待判断自然数： N（N=2）；S2 i=2；S3 判断i是否小于N-1，若不是转S5S4 判断N除以i的余数是否为0,如果不是则i=i+1转S3；S5 判断i是否等于N，若是输出“是素数”，否则输出“不是素数”。4、S1 输入待判断自然数： N；S2 将N转换成字符S，计算S的长度K；S3 i=1；S4 判断i是否小于K-1，若不是转S6；S5 判断S中的第i位和第K-i+1位是否相等,如果是则i=i+1转S4，如果不是则转S6；S6 判断i是否是中间位数，若是输出“是回文数”，否则输出“不是回文数”。5、S1 输入待判断自然数： a；S2 i=1；S3 判断i是否

2、小于a-1，若不是转S5S4 判断a除以i的余数是否为0,如果是则保留因子i，否则i=i+1转S3；S5 输出所有因子。6、第三章1、窗体的属性主要分为杂项、外观、行为、字体、位置等五类。Caption是窗体标题，出现在窗体标题栏的文本内容；而Name是窗体名称，在程序代码中被作为窗体的标识名。2、ABDE4、改变窗口的工作状态会引发Activate事件，改变窗口大小会引发resize事件。5、forecolor和backcolor属性首先选择系统中的选项，然后在调色板中设置相应的颜色；font属性设置好以后，在窗体上放置的任何控件都会继承窗体的font属性。6、C7、Label、option

3、button、checkbox、commandbutton有caption属性，没有text属性；text、combobox有text属性，没有caption属性8、对象的属性可以在设计界面时在属性窗口中和运行中在代码中设置；属性窗口中的属性列表并没有包括对象的所有属性。9、picturebox、frame等10、optionbutton和checkbox。Optionbox的Value可以取true选中和false未选中，checkbox的Value可以取0未选中，1选中，2变灰，表示暂时不能访问。11、text、commandbutton可以获得焦点。在设计界面时第一个放在窗体上的文本框或

4、命令按钮将得到焦点。12、C13、把Value的值设为2，表示暂时不能访问复选框，点击复选框后就可以访问了，而把enabled属性设为false则是复选框变灰，完全不能访问。若把一个控件的Visible属性设为false则在程序运行时看不到该控件。14、用additem来添加列表项，用removeitem删除已有的列表项，用clear删除所有列表项。15、 16、Private Sub Check1_Click（） If Check1.Value = 1 Then Label2.Font.Italic = True ElseIf Check1.Value = 0 Then Label2.Fon

5、t.Italic = False End IfPrivate Sub Check2_Click（） If Check2.Value = 1 Then Label2.Font.Bold = True ElseIf Check2.Value = 0 Then Label2.Font.Bold = False EndPrivate Sub Option1_Click（） If Option1.Value Then Label2.Font.Size = 12 Label2.RefreshPrivate Sub Option2_Click（） If Option2.Value Then Label2.F

6、ont.Size = 14Private Sub Option3_Click（） If Option3.Value Then Label2.Font.Size = 16Private Sub Option4_Click（） If Option4.Value Then Label2.Font.Name = 宋体Private Sub Option5_Click（） If Option5.Value Then Label2.Font.Name = 隶书Private Sub Option6_Click（） If Option6.Value Then Label2.Font.Name = 黑体17、

7、18、第四章1. B2. 见教材P40-413. 不对，通用过程也可以存在于窗体模块中4. 见教材P435. 字符串型常量的界定符是双引号，日期型数据的界定符是磅号#。A、B是字符型，C、D是日期型，E、F不属于任何类型。6. 合法变量名有：A、C、D （VB中合法变量名只能由字母、数字和下划线构成，并且只能以字母开头）7. 见教材P468. （1） a/（b+c/d） （2） （sqr（x2+1）+x）（1/3） （3） （2*y）/（a*x+b*y）*（a*x-b*y） （4） 1+1/（1+1/m）（5） （d/3）（2*x）/2 （6） log（y+cos（x）2）（7） fabs（e

8、xp（x）+sin（x）3）/（x+y）（8）log（exp（x*y）+fabs（tan（z）-1+cos（x）3）/（x+y-z）9. （1）（2） （A+B）/（A-B） （3）（4） A*B*C/（D+1）*Y） （5）（6） （X*Y）510. A x+yB x*y0 and x=fix（x） and y=fix（y）C A=0 XOR B=0D C1+C2+C3=255 and C190 and C290 and C38011. T F F F F12. BCDE （A会发生溢出的错误）13. （1） 3548 （2） 3548 （3） （4） 3548（5） 83 （6） 83 （

9、7） （8） 354814. 以2为底的X的对数：log（x）/log（2）15. C16. z=Inputbox（输入一个数：，程序示例，1.5）17. Msgbox Z的值1.5大于0，48，18. Option ExplicitConst PI As Single = 3.14159 Dim a As Single, b As Single, c As Single, area As Single a = Val（Text1.Text） b = Val（Text2.Text） c = Val（Text3.Text） * PI / 180 角度角转换为弧度角 area = a * b *

10、Sin（c） / 2Text4 = CStr（Format（area, 0.00） 使纯小数能出现整数位的0End Sub Private Sub Command2_Click（） Text1.Text = Text2.Text = Text3.Text = Private Sub Command3_Click（）第五章1. Dim a As Integer, b As Integer a = 1: b = 0 Do While a = 20 Then Exit For 跳出循环前执行不到这一句 Print i, pPrivate Sub Command4_Click（） Dim p As I

11、nteger, i As Integer, n As Integer p = 2: n = 20 For i = 1 To n Step p 计数循环的初值、终值和步长都不会变 p = p + 2 n = n - 3 i = i + 1= 10 Then Exit For Print i, p, n2.Dim n1 As Integer, n2 As Integer, n3 As Integer Dim i As Integer, j As Integer, k As Integer For i = 1 To 10 For j = 1 To 10 k = Int（Rnd * 90 + 10）

12、Print k; If k = 40 Then n1 = n1 + 1 ElseIf k = 70 Then n2 = n2 + 1 Else n3 = n3 + 1 Next j Print Print 小于等于40的数据个数为： & n1 & 个大于40小于等于70的数据个数为： n2 &大于70的数据个数为： n3 & Cls3. Dim x As Integer, y As Integer x = Text1.Text If x = 0 Then y = 2 - x ElseIf x = 2 Then y = x + 2= 5 Then y = x 2 y = 25 - x Text2

13、.Text = y Text2 = 4. For i = 1 To 2 k = Int（Rnd * 900 + 100） Picture1.Print k; If k Mod 2 0 Then List1.AddItem k List2.AddItem k Picture1.Print5. Dim m As Integer, n As Integer, r As Integer m = Val（Text1.Text） n = Val（Text2.Text） Do r = m Mod n If r = 0 And s 9 Then s2 = s2 & s Text2.Text = s28. Te

14、xt1 = Dim n As Integer, r As String, s As String n = Val（Text1.Text） Do r = n Mod 2 s = r & n = n 2 Loop Until n = 0 当商为0时则跳出循环 Text2.Text = s9. Dim a As Long, b As Long, c As Long For a = 1 To 100 For b = 1 To 100 For c = 1 To 100 If a * a + b * b = c * c Then List1.AddItem a &, b & c Next c Next b

15、 Next a10. Dim i As Integer, r1 As Integer, r2 As Integer, r3 As Integer For i = 100 To 999 r1 = i 100 r2 = （i 10） Mod 10 或者r2 = （i mod 100）10 r3 = （i Mod 100） Mod 10 If r1 r2 And r2 a = c b = c Loop Until Abs（b - c） 20 Then p = p - 20 n = n + a（p） If n max Then max = n w = i Text2 = max Picture1.Print w &- w + 4Private Sub Co