《VisualBasic程序设计基础》课后编程习题答案Word文档下载推荐.docx

1、 + Label1.Caption Text1.Visible = False Command1.Enabled = False: Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click（） End程序2界面设计略，过程设计如下：Private Sub Command1_Click（） 字体变大 Form1.FontSize = Form1.FontSize + 3 Form1.Cls: Print 欢迎使用VBPrivate Sub Command2_Click（） 字体变小 Form1.FontSize = Form1.FontSi

2、ze - 3 Private Sub Command3_Click（） 字体加粗 Form1.FontBold = TruePrivate Sub Command4_Click（） 字体不加粗 Form1.FontBold = False运行时，不得连续、过多次单击“字体变小”按钮，因为当FontSize属性值小于0会产生适时错误。程序3界面设计略，过程设计如下（窗体Height值的计量包括标题、边框，而ScaleHeight值仅与窗体有效绘图区域的高度有关）：Private Sub Form_Load（） Text1.Text = Visual Basic 程序设计Private Sub F

3、orm_Resize（） Text1.Top = 0: Text1.Left = 0 Text1.Width = Form1.ScaleWidth/2 用 Form1.ScaleWidth效果优于用Form1. Width Text1.Height = Form1.ScaleHeight/2 用 Form1.ScaleHeight优于用Form1. Height Command1.Top = Form1.ScaleHeight - Command1.Height Command1.Left = Form1.ScaleWidth - Command1.Width第2章 程序设计基础程序1界面设计

4、略，过程设计如下：方法一、用文本框控件输入圆的半径 Dim x As Single x = Text1.Text Label1.Caption = x * x * 3.141593方法二、用InputBox函数输入圆的半径 Dim x As Single 若要求计算结果具有15位有效位数，声明x为Double类型 x = InputBox（r=,输入圆的半径程序2略。第3章 结构化程序设计与数组四、程序阅读题（写出下列程序的运行结果）程序1. 0 5 程序2. 20 程序3. 2 4 7 11 16程序4. 1 4 9 16 25程序5. 程序6. 五、程序填空题1（1）q * i （2）s

5、+ p * i / q （3）Next i2（1）r = 0 （2）m Mod n3（1）i + j - 1 （2）7 - i （3）Print4（1）10 + Int（Rnd * 90） （2）i + 1 To 30 （3）a（i）=a（j） （4）a（i） Mod 2 = 1六、程序设计题Private Sub Form_Click（） Dim x As Integer, y As Integer, z As Integer Dim max As Integer, midd As Integer, min As Integer请输入x的值： y = InputBox（请输入y的值： z =

6、 InputBox（请输入z的值： If x y Then max = x Else max = y If z max Then max = z If x y Then min = x Else min = y If z = 1 Then y = x * x 0 Then y = Sqr（x） Else y = 0 End If Print y程序3界面设计略，过程设计如下： Dim i As Integer, j As Integer For i = 1 To 9 For j = 1 To 9 Print Tab（j - 1） * 4）; i * j; Next j Print Next i

7、程序4界面设计略，过程设计如下： Dim x As Single, s As Single, t As Single Dim i As Integer, n As Integer n = InputBox（请输入n的值： t = x / 2: s = t For i = 3 To n t = t * x / i s = s + t Print s程序5界面设计略，过程设计如下： Dim e As Single, t As Single, i As Integer e = 2: t = 1: i = 1 While t = 0.0001 i = i + 1: t = t / i: e = e +

8、 t Wend Print e程序6界面设计略，过程设计如下：Option Base 1 Dim n As Integer, a（9, 9） As Integer, i As Integer, j As Integer On Error GoTo k 下列代码中若出现错误，转到标号为K的语句执行。请输入n，0n10 For i = 1 To n: a（i, 1） = 1: a（i, i） = 1: For j = 2 To i - 1 a（i, j） = a（i - 1, j - 1） + a（i - 1, j） Next j, i For i = 1 To n Print Tab（30 -

9、2 * i）; For j = 1 To i Print Space（4 - Len（Trim（Str（a（i, j）; Trim（Str（a（i, j）; Exit Subk: MsgBox 输入n值小于1或大于10，数组下标超界。第4章 函数与过程四、程序填空题1（1）ByeVal （2）k Mod i （3）k = k i （4）Call pp（i）2（1）a（） Aa Double （2）n-1 （3）a（j） Abs（xmax） Then xmax = x（i, j）: ki = i: kj = j End Sub第5章 常用控件四、程序阅读题程序1. 116 程序2. 8程序3.

10、23451 程序4. 小，你好！ 程序5. 您好34512 小李，你好！ 欢迎使用Visual Basic!程序6. 李子 程序7. y = 6 程序8. n = 1苹果 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）Text

11、2.Enabled = False （2）p = 2 （3）Print i （4）Val（Text1.Text） 2 或 Val（Text1.Text） 10 Then差！重新开始 Call Form_Load If m num Then Label1.Caption = Str（m） & 大了！ ElseIf m 小了！ If rec 选择了 & n &个字,请选择下一步操作！ Command1（0）.Enabled = True: Command1（1）.Enabled = True程序6界面设计如图10-4所示，过程设计如下： 当前日期： Text1.Text = Date Option

12、1（0）.Caption = 显示日期 Option1（1）.Caption = 显示时间 Option1（0）.Value = True:Private Sub Option1_Click（Index As Integer）当前日期：当前时间： Text1.Text = Time程序7过程设计如下： Combo1.AddItem 年-月-日月-日-年日-月-年 Combo1.Text = Private Sub Combo1_Click（） Dim n As String Select Case Combo1.ListIndex Case 0: n = yyyy-mm-dd Case 1:mm-dd-yyyy Case 2:dd-mm-yyyy Text1.Text = Format（Date, n）程序8. 界面设计如图10-5所示，过程设计如下： List1.AddItem happyapplestudentcomputer