《本科计算机vb课后习题(二级考证)》由会员分享，可在线阅读，更多相关《本科计算机vb课后习题(二级考证)（25页珍藏版）》请在金锄头文库上搜索。
1、课后习题第一章 P29一、 二、 C B D C BA D A B AC D三、 1对象；事件 2属性；事件；方法 3控件；screen4对象 5left；top 6属性；对象名 .属性名= 属性值7网格 8form1 9Load 10 Activate；DeActivate四 、1、Private Sub Command1_Click()Label1.Caption = Text1.Text & :欢迎实验我的第一个 VB 程序 修改 label1 的显示内容Label2.Visible = False 隐藏姓名输入的提示信息和姓名输入文本框Text1.Visible = FalseComm
2、and1.Enabled = False 确定按钮变为不可用Command2.Enabled = True 结束按钮变为可用End SubPrivate Sub Command2_Click()EndEnd Sub2、Private Sub Command1_Click() 增加字体 Form1.FontSize = Form1.FontSize + 3Form1.Print 欢迎使用 VBEnd SubPrivate Sub Command2_Click() 减小字体Form1.FontSize = Form1.FontSize - 3 Form1.Print 欢迎使用 VBEnd SubP
3、rivate Sub Command3_Click() 设置粗体Form1.FontBold = TrueForm1.Print 欢迎使用 VBEnd SubPrivate Sub Command4_Click() 取消粗体设置Form1.FontBold = FalseForm1.Print 欢迎使用 VBEnd SubPrivate Sub Command5_Click() 清除窗体上所有的输出内容Form1.ClsEnd SubPrivate Sub Form_DblClick() 在窗体上双击，退出程序EndEnd SubPrivate Sub Form_Load()End Sub3、
4、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 = Form
5、1.Width / 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
6、 24 3Aaa 4145 566 3 718 8False 9(x Mod 10) * 10 + (x 10)10 Int(rnd*90)+10 11(a*b) mod c12 Log(x)+sin(30*3.14/180) 13Const PI = 3.141592614日期 15Int(i+1)四、1、Const PI = 3.1415926Private Sub Command1_Click()Dim r As Single 半径Dim s As Single 面积将变量的定义类型改为 double，即可实现教材第 5 小题的要求，实现 15 位有效数字r = Val(TxtRadiu
7、s.Text)s = PI * r * rLblResult.Caption = 圆的面积= & 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 2is3 Fo
8、r i = 0 To 9: b(i) = InputBox(请输入 B（ & i & )d 的值 ): Next i4 Redim 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 Comman
9、d1_Click()Dim X1 As Single, X2 As Single, X3 As SingleX1 = Val(InputBox(请输入第一个数, 数据排序)X2 = Val(InputBox(请输入第二个数, 数据排序)X3 = Val(InputBox(请输入第三个数, 数据排序)Print 您输入的数据是:; X1; X2; X3If X1 3 ThenY = X + 3ElseIf X = 1 ThenY = X * XElseIf X 0 ThenY = Sqr(X)ElseY = 0End If以上 if.then.elseif.endif 结构也可以通过 if 的嵌
10、套实现Print y=f(; X; )=; YEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Command3_Click()Dim X As SingleDim Y As SingleX = Val(InputBox(请输入实数变量 X 的值：, 数据输入)Select Case XCase Is 3Y = X + 3Case 1 To 3Y = X * XCase Is 0Y = Sqr(X)Case ElseY = 0End SelectPrint y=f(; X; )=; YEnd Sub3、Private Sub Co
11、mmand1_Click()For i = 1 To 9For j = 1 To 9Print Tab(j - 1) * 13); i; *; j; =; i * j;Next jPrint 注意这个 print 语句所在的位置Next iEnd SubPrivate Sub Command2_Click()For i = 1 To 9For j = 1 To i 内层循环的循环次数往往与外层循环的循环控制变量有关Print Tab(j - 1) * 13); i; *; j; =; i * j;Next jPrintNext iEnd Sub4、Private Sub Command1_Cl
12、ick()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 nSummary = Summary + CommonItemCommonItem = 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 = 1Doe = e + CurrentItemLastItem = CurrentItem 利用变量 LastItem 记下上一次被处理的项i = i + 1CurrentItem = Curr
