本科计算机VB课后习题(二级考证)

1、课后习题第一章 P29一、 二、 C B D C BA D A B AC D三、 1对象；事件 2属性；事件；方法 3控件；screen4对象 5left；top 6属性；对象名.属性名=属性值7网格 8form1 9Load 10Activate；DeActivate四 、1、Private Sub Command1_Click() Label1.Caption = Text1.Text & :欢迎实验我的第一个VB程序 修改label1的显示内容 Label2.Visible = False 隐藏姓名输入的提示信息和姓名输入文本框Text1.Visible = False Command1

2、.Enabled = False 确定按钮变为不可用 Command2.Enabled = True 结束按钮变为可用End SubPrivate Sub Command2_Click() EndEnd Sub2、Private Sub Command1_Click() 增加字体 Form1.FontSize = Form1.FontSize + 3 Form1.Print 欢迎使用VBEnd SubPrivate Sub Command2_Click() 减小字体 Form1.FontSize = Form1.FontSize - 3 Form1.Print 欢迎使用VBEnd SubPri

3、vate Sub Command3_Click() 设置粗体 Form1.FontBold = True Form1.Print 欢迎使用VBEnd SubPrivate Sub Command4_Click() 取消粗体设置 Form1.FontBold = False Form1.Print 欢迎使用VBEnd SubPrivate Sub Command5_Click() 清除窗体上所有的输出内容 Form1.ClsEnd SubPrivate Sub Form_DblClick() 在窗体上双击，退出程序 EndEnd SubPrivate Sub Form_Load()End Sub

4、3、Private Sub Command1_Click() 结束程序运行EndEnd SubPrivate Sub Form_Load() 控件属性初始化Text1.Text = Visual Basic程序设计Command1.Caption = 结束End SubPrivate Sub Form_Resize() 利用文本框的move方法修改文本框的位置、大小Text1.Move 0, 0, Form1.Width / 2, Form1.Height / 2 也可以用以下代码代替Move方法Text1.Left = 0Text1.Top = 0Text1.Width = Form1.Wi

5、dth / 2Text1.Height = Form1.Height / 2利用命令按钮的move方法修改命令按钮的位置Command1.Move Form1.Width - Command1.Width, Form1.Height - Command1.Height*程序运行时会发现命令按钮并不是始终位于右下角那是因为窗体的高度值包括了标题栏的高度，而命令按钮的top属性却是从标题栏的下缘开始计算的如果把窗体的BorderStyle设置为0-none，就可以看见题目所要求的效果*End Sub第二章 P49一、 二、B D A C CB A D C A三、1String 24 3Aaa 41

6、45 5663 718 8False 9(x Mod 10) * 10 + (x 10)10Int(rnd*90)+10 11(a*b) mod c12Log(x)+sin(30*3.14/180) 13Const PI = 3.14日期 15Int(i+1)四、1、Const PI = 3.Private Sub Command1_Click()Dim r As Single 半径Dim s As Single 面积将变量的定义类型改为double，即可实现教材第5小题的要求，实现15位有效数字r = Val(TxtRadius.Text)s = PI * r * rLblResult.Ca

7、ption = 圆的面积= & sEnd SubPrivate Sub Command2_Click()Dim r As Single 半径Dim s As Single 面积将变量的定义类型改为double，即可实现教材第5小题的要求，实现15位有效数字r = Val(InputBox(请输入圆的半径:)s = PI * r * rLblresult2.Caption = 圆的面积= & sEnd Sub第三章 P78一、 二、A D C C D B三、1IF xy then t=x:x=y:y=t 2is3For i = 0 To 9: b(i) = InputBox(请输入B（ & i

8、& )d的值): Next i4Redim 5String 68四、1、2、3、4、5、6、五、1、 （1）q * I （2）s + p * i / q （3）Next i2、（辗转相除法求两个整数的最大公约数）（1）r = 0 （2）m Mod n3、（1）i + j 1 （2）7 I （3）Print4、（1）Int(Rnd * 90) + 10 （2）i + 1 To 30（3）a(i) = a(j) （4）a(i) Mod 2 = 1六、1、Private Sub Command1_Click()Dim X1 As Single, X2 As Single, X3 As SingleX

9、1 = Val(InputBox(请输入第一个数, 数据排序)X2 = Val(InputBox(请输入第二个数, 数据排序)X3 = Val(InputBox(请输入第三个数, 数据排序)Print 您输入的数据是:; X1; X2; X3If X1 X2 Then 如果x1x2,则交换x1和x2,保持x1比较大,x2比较小 t = X1: X1 = X2: X2 = tEnd IfIf X1 X3 Then 如果x1x3,则交换x1和x3,从而使x1成为三个数中最大的数 t = X1: X1 = X3: X3 = tEnd IfIf X2 X3 Then 如果x2 3 Then Y = X

10、 + 3 ElseIf X = 1 Then Y = X * X ElseIf X 0 Then Y = Sqr(X) Else Y = 0 End If 以上if.then.elseif.endif结构也可以通过if的嵌套实现 Print y=f(; X; )=; YEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Command3_Click() Dim X As Single Dim Y As Single X = Val(InputBox(请输入实数变量X的值：, 数据输入) Select Case X Case Is 3

11、 Y = X + 3 Case 1 To 3 Y = X * X Case Is 0 Y = Sqr(X) Case Else Y = 0 End Select Print y=f(; X; )=; YEnd Sub3、Private Sub Command1_Click()For i = 1 To 9 For j = 1 To 9 Print Tab(j - 1) * 13); i; *; j; =; i * j; Next j Print 注意这个print语句所在的位置Next iEnd SubPrivate Sub Command2_Click()For i = 1 To 9 For

12、j = 1 To i 内层循环的循环次数往往与外层循环的循环控制变量有关 Print Tab(j - 1) * 13); i; *; j; =; i * j; Next j PrintNext iEnd Sub4、Private Sub Command1_Click()Dim Summary As Double, CommonItem As DoubleDim x As Single, n As Integerx = Val(InputBox(请输入x：)n = Val(InputBox(请输入n：)Summary = 0CommonItem = x / 2For i = 1 To n Sum

13、mary = Summary + CommonItem CommonItem = CommonItem * x / (i + 2) 由前项算后项的语句,注意分母（i+2）Next iPrint Sum=; SummaryEnd Sub5、Private Sub Command1_Click()Dim e As DoubleDim CurrentItem As Double, LastItem As DoubleDim i As Integere = 1i = 1CurrentItem = 1Do e = e + CurrentItem LastItem = CurrentItem 利用变量La

14、stItem记下上一次被处理的项 i = i + 1 CurrentItem = CurrentItem / i 生成新的项Loop Until Abs(LastItem - CurrentItem) 0.0001 LastItem - CurrentItem就是最近处理的两项的差Print e=; eEnd Sub6、Private Sub Command1_Click()Dim a(20, 20) As Long Dim N As Integer N = Val(InputBox(请输入杨辉三角的层数)For i = 1 To N + 1 a(i, 1) = 1 a(i, i) = 1Ne

15、xt iFor i = 3 To N + 1 For j = 2 To N a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next jNext i 将二维数组的左下三角元素以杨辉三角的格式输出，每个数据占6位Form1.ClsFor i = 1 To N + 1 Print Tab(30 - 3 * i); For j = 1 To i c = Trim(Str(a(i, j) Print c; Spc(6 - Len(c); 由于不同的数据位数不同，所以要根据位数在后面补足空格，确保总共占6位Next j PrintNext iEnd SubPrivate

16、Sub Command2_Click()Dim a(20) As LongFor i = 1 To 20 a(i) = 1Next iN = Val(InputBox(请输入杨辉三角的层数)Form1.ClsFor i = 0 To N For j = i To 2 Step -1 a(j) = a(j) + a(j - 1) 由于step=-1 ，所以当i=0,1的时候，循环没有进行，因此第0,1轮没有赋值，只有后面的输出 Next j Print Tab(30 - 3 * i); For j = 1 To i + 1 c = Trim(Str(a(j) Print c; Spc(6 - L

17、en(c); Next j PrintNext iEnd Sub第四章 P98一、判断题1 2 3 4 5 6 7 8二、填空题1按地址传送 2b() As Long 36 4按值传递 5按地址传递6Public x As Single 7Static x As Integer 8Form2.y三、程序阅读题（写出下列程序的运行结果）程序1. s = 2 程序2. 1 程序3. 1 1 2 1 1 2 1 2 2 2 2 3 s = 5 1 1 s = 9 1 2 1 1 3 3 1 1 4 6 4 1四、程序填空题1（1）ByeVal （2）k Mod i （3）k = k i （4）Cal

18、l pp(i)2（1）a() Aa Double （2）n-1 （3）a(j) Abs(xmax) Then xmax = x(i, j): ki = i: kj = j Next j, i End Sub第五章 P150一、判断题1 2 3 4 5 6 7 8 910 11 12 13 14 15 16 17 1819 20 21 22 23 24 25二、选择题1C 2D 3B 4B 5B 6C 7B 8B 9B 10A11D 12C 13B 14B 15A 16D 17B 18B 19B 20A三、填空题1上、下、左、左 2缇、无关 3&、+ 4Enabled 5MaxLength6Te

19、xt1.SetFocus 7MultiLine 8Visible 9Alignment 10AutoSize11ForeColor 120或1 13True 141 15AddItem161 17List1.Clear 18文本框、列表框19下拉式组合框、简单组合框、下拉式列表框 20Scroll 21Value22Change 23定时器不起作用 24Timer 2565535四、程序阅读题程序1. 116 程序2. 8程序3. 23451 程序4. 小，你好！ 程序5. 您好34512 小李，你好！ 欢迎使用Visual Basic!程序6. 李子 程序7.y = 6 程序8.n = 1苹

20、果 y = 14 n = 3橘子 n = 5葡萄柚子香蕉五、程序填空题1（1）a(i) = Mid(str1, i, 1) 或 a(i) = Mid(Text1.Text, i, 1) （2）p = j （3）a(i) = a(p) （4）Command2.Enabled = True2（1）1 To 2*i1 （2）Command2.Enabled = True （3）Command2.Enabled = False3（1）Text2.Enabled = False （2）p = 2 （3）Print i （4）Val(Text1.Text) 2 或 Val(Text1.Text) 10 T

21、hen Label1.Caption = 差！重新开始: Call Form_Load Else If m num Then Label1.Caption = Str(m) & 大了！ ElseIf m num Then Label1.Caption = Str(m) & 小了！ Else If rec 0 Then Label1.Caption = 选择了 & n & 个字,请选择下一步操作！ Command1(0).Enabled = True: Command1(1).Enabled = True Else Label1.Caption = End IfEnd Sub程序6 Privat

22、e Sub Form_Load() Label1.Caption = 当前日期：: Text1.Text = Date Option1(0).Caption = 显示日期: Option1(1).Caption = 显示时间 Option1(0).Value = True: Command1.Caption = 退出End SubPrivate Sub Option1_Click(Index As Integer) Select Case Index Case 0 Label1.Caption = 当前日期：: Text1.Text = Date Case 1 Label1.Caption =

23、 当前时间：: Text1.Text = Time End SelectEnd SubPrivate Sub Command1_Click() EndEnd Sub程序7 Private Sub Form_Load() Label1.Caption = 当前日期：: Text1.Text = Date Option1(0).Caption = 显示日期: Option1(1).Caption = 显示时间 Option1(0).Value = True: Command1.Caption = 退出 Combo1.AddItem 年-月-日: Combo1.AddItem 月-日-年 Combo

24、1.AddItem 日-月-年: Combo1.Text = 年-月-日End SubPrivate Sub Combo1_Click() Dim n As String Select Case Combo1.ListIndex Case 0: n = yyyy-mm-dd Case 1: n = mm-dd-yyyy Case 2: n = dd-mm-yyyy End Select Text1.Text = Format(Date, n)End SubPrivate Sub Option1_Click(Index As Integer) Select Case Index Case 0:

25、Label1.Caption = 当前日期：: Text1.Text = Date Case 1: Label1.Caption = 当前时间：: Text1.Text = Time End SelectEnd SubPrivate Sub Command1_Click() EndEnd Sub程序8. Private Sub Form_Load() List1.AddItem happy: List1.AddItem apple List1.AddItem student: List1.AddItem computerEnd SubPrivate Sub Command1_Click() L

26、ist1.AddItem Text1.Text: Text1.SetFocus Text1.SelStart = 0: Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Command3_Click() List1.ClearEnd SubPrivate Sub Command4_Click() EndEnd SubPrivate Sub Command2_Click() If List1.ListIndex -1 Then List1.RemoveItem List1.ListIndexEnd Sub9 Private Sub Form_

27、Load() Option1(0).Caption = 八进制: Option1(1).Caption = 十六进制 Option1(2).Caption = 二进制End SubPrivate Function tran(k As Long, n As Integer) As String Dim x As Integer, y As String * 1, k1 As Long tran = : k1 = Abs(k) Do While k1 0 x = k1 Mod n If x = 10 Then y = Chr(Asc(A) + x - 10) Else y = CStr(x) tr

28、an = y + tran k1 = k1 n Loop If k = 72 Then Timer1.Enabled = FalseEnd Sub第六章 P188一、 二、C B C A AC A C C BA B B C C三、1Circle (ScaleLeft + ScaleWidth / 2, ScaleTop + ScaleHeight / 2), 8002LoadPicture 3AutoSize；Stretch；False；False4选中；属性 5形状；矩形6Picture1.Picture=LodePicture(C:WindowsCloud.bmp)7图片框；其他控件 8T

29、wip；SclaeMode 9颜色10颜色；圆弧起点弧度值；圆弧终点弧度值；椭圆纵轴与横轴之比四、程序阅读题程序1长度为500的红色直线，一端为坐标为（1000，800），另一段转动一周，最后形成以（1000，80）为圆心，500为半径的红色圆。程序2窗体上随机位置、随机大小、随机颜色的1000个圆。程序3在图片框内多个黄色边框矩形，填充样式为“实心”、“透明”交替变换。五、程序填空题1（1）Combo1.ListIndex （2）Shape1.BorderStyle （3）Combo2.AddItem Str(i)2（1）Call pic （2）False （3）n=n+1 （4）LoadP

30、icture(c:windows1.bmp)（5）LoadPicture(fn)六、1、Private Sub Form_Load() Picture1.ScaleMode = 3 像素为刻度单位End SubPrivate Sub Command1_Click() Dim x1 As Single, y1 As Single, x2 As Single, y2 As Single x1 = InputBox(x1=): y1 = InputBox(y1=) x2 = InputBox(x2=): y2 = InputBox(y2=) Picture1.Line (x1, y1)-(x2, y

31、2), , BEnd Sub2、Private Sub Form_click() Dim r As Single, xo As Single, yo As Single Form1.ScaleMode = 6 毫米为刻度单位 If Form1.ScaleHeight Form1.ScaleWidth Then r = Form1.ScaleHeight / 3 Else r = Form1.ScaleWidth / 3 End If xo = Form1.ScaleLeft + Form1.ScaleWidth / 2 yo = Form1.ScaleTop + Form1.ScaleHeig

32、ht / 2 Form1.FillStyle = 0 Form1.FillColor = vbBlue Form1.DrawWidth = 2 Form1.Circle (xo, yo), r, vbYellowEnd Sub3、Private Sub Form_Load() Dim i As Integer For i = 1 To 7 List1.AddItem i Next i Form1.ScaleMode = 1End SubPrivate Sub List1_Click() Form1.Cls Form1.ScaleMode = List1.Text Form1.Circle (Form1.ScaleLeft + Form1.ScaleWidth / 2, Form1.ScaleTop + Form1.ScaleHeight / 2), 50End Sub第七章 P218一、 二、D A C C B D A B D B三、1窗体控制菜单；下拉菜单；快捷菜单 2ShowFont3打开；另存为；颜色；字