《Visual Basic程序设计教程》编程题答案文档格式.docx

1、 Form1.WindowState = 0 还原Private Sub Command3_Click（） 最小化 Form1.WindowState = 1 最小化5在窗体上建立三个文本框Text1（第一个数）、Text2（第二个数）、Text3（计算结果）和一个命令按钮Command1（“计算”）。 Private Sub Command1_Click（） Dim x As Single Dim y As Single x = Val（Text1.Text） y = Val（Text2.Text） Text3.Text = x * x + y * y6. 在窗体上建立两个文本框Text1（

2、输入一串字符）、Text2（输出结果）和一个命令按钮Command1。 Dim x As String x = Left（Text1.Text, 1） + Right（Text1.Text, 1） Text2.Text = x第3章编程及上机调试1在窗体上建立一个文本框Text1（输入n值）、三个标签Label1（第一个随机数）、Label2（第二个随机数）和Label3（第三个随机数），以及一个命令按钮Command1。 n = Val（Text1.Text） Randomize x = Int（1 + n * Rnd） Label1.Caption = 第一个随机数 + Str（x） La

3、bel2.Caption = 第二个随机数 Label3.Caption = 第三个随机数2在窗体上建立了四个文本框Text1、Text2、Text3和Text4，以及两个命令按钮Command1（“交换”）和Command2（“合并”）。“交换” t = Text1.Text Text1.Text = Text2.Text Text2.Text = Text3.Text Text3.Text = tPrivate Sub Command2_Click（） “合并” t = Text1.Text + Text2.Text + Text3.Text Text4.Text = t3. （1） Rn

4、d * 9000 + 1000 （2） Str（x） （3） Mid（s, 3, 1） + Mid（s, 2, 1） + Left（s, 1）4. Private Sub Cmd1_Click（） Lab1.Visible = True Lab1.Caption = 您已下达显示命令 Cmd1.Visible = True5. Private Sub Form_KeyPress（KeyAscii As Integer） Show Print 输入字符：; Chr（KeyAscii）, ASCII码为; KeyAscii Cls 6. 产生这三个消息框的相应语句是： 产生第1个消息框：x = M

5、sgBox（在这里显示提示信息, 4 + 0, 请确认） 产生第2个消息框：在这里显示 + Chr（13） + 提示信息,3 + 0, 产生第3个消息框：+Chr（13）+,2 + 16 + 0,第4章编程及上机调试1. 在窗体上建立两个文本框Text1（输入数）及Text2（显示结果），一个命令按钮Command1（“判断”）。Private Sub Command1_Click（） “判断” If x Mod 2 = 0 Then Text2.Text = 偶数 Else消息奇数 End If2. 在窗体上建立两个文本框Text1、Text2及Text3，分别代表学号、年级及学生类型，建立

6、一个命令按钮Command1（“判断”）。 Dim t As String, p As String t = Mid（Text1.Text, 5, 1） Select Case t Case 2 p = 博士生3硕士生4本科生5专科生 Case Else无效学号 End Select Text2.Text = Left（Text1.Text, 2） + 级 Text3.Text = p3窗体上建立了一个文本框Text1（“输入口令”）和一个命令按钮Command1（“检查”）。“检查” x = Text1.Text If x = 12345678 Then MsgBox 欢迎你用机! Else

7、对不起，口令错 Text1.Text = Text1.SetFocusPrivate Sub Form_Load（） Text1.MaxLength = 8 Text1.PasswordChar = *4窗体上建立了两个文本框Text1（输入字符串）及Text2（转换结果），一个命令按钮Command1（“清除”）。“清除”Private Sub Text1_KeyPress（KeyAscii As Integer） Dim s As String * 1 s = Chr（KeyAscii） Select Case sA To Z s = LCase（s）az s = UCase（s） s =

8、 Text2.Text = Text2.Text + s5 分别选择”红”、 ”绿”、 ”蓝”复选框后，单击命令按钮Command1时，通过RGB函数调配的颜色作为一个标签的背景色（BackColor）。 r = 0: g = 0: b = 0 If Check1.Value = 1 Then ”红”复选框 r = 255 End If If Check2.Value = 1 Then ”绿”复选框 g = 255 End If If Check3.Value = 1 Then ”蓝”复选框 b = 255 Label1.BackColor = RGB（r, g, b）6程序代码如下： Lab

9、Clk.Caption = 0 LabClk.Alignment = 1 LabClk.BorderStyle = 1 LabClk.FontSize = 22 LabClk.FontName = 黑体 TimClk.Interval = 1000Private Sub TimClk_Timer（） LabClk.Caption = Val（LabClk.Caption） + 17 在窗体上建立了两个文本框Text1及Text2，两个命令按钮Command1及Command2（“复制”及“粘贴”）。在文本框Text1中输入文本“复制文本的演示程序”。Private Sub Command1_C

10、lick（） “复制”按钮 Command1.Enabled = True Command2.Enabled = True“粘贴”按钮 Text2.Text = Text1.SelText Command1.Enabled = False Command2.Enabled = FalsePrivate Sub Text1_MouseUp（Button As Integer, Shift As Integer, X As Single, Y As Single） If Text1.SelLength 0 Then第5章编程及上机调试1. 和数为：1.21。 s = 0 For k = 1 To

11、100 s = s + 1 / （1 + k * 4） Next ks= Format（s, #.002. 程序代码如下： Dim i As Integer, a As Integer, b As Integer, c As Integer Show For i = 100 To 999 a = Int（i / 100） b = Int（i - 100 * a） / 10） c = i - 100 * a - 10 * b If a * a * a + b * b * b + c * c * c = i Then Print i Next i3. 在窗体上建立一个文本框Text1（初始值）、一

12、个列表框List1（显示结果）和一个命令按钮Comd1（“查找”）。Private Sub Comd1_Click（） “查找” Dim n As Integer n = Val（Text1.Text）List1.Clear:k = 0 Do While k = 0.00001 Print a; 的平方根为 xn1第6章编程及上机调试1. 程序代码如下： Private Sub Form_Load（） Dim a（6, 6） As Integer For i = 1 To 6 For j = 1 To 6 Select Case i Case Is a（i, j） = 2 Case Is =

13、j a（i, j） = 0 End Select Print a（i, j）; Next j Print t = a（1, i）:a（1, i） = a（6, i）:a（6, i） = t Next i Print: Print Print a（i, j）; PrintOption Base 1 Dim a（8, 8） As Integer, n As Integer Dim max As Integer, r As Integer, c As Integer Randomize n = 8 For i = 1 To n For j = 1 To n x = Int（900 * Rnd + 1

14、00） 产生一个随机数 a（i, j） = x Print x; Next j max = 0: r = 1: c = 1 If a（i, j） max Then 判断有无更大数 max = a（i, j）: r = i: c = j Next j, i Print 最大值为： max位于行： r, 列： c3在窗体上建立两个列表框List1（处理前数据）和List2（处理后数据），以及标签Label1。 Dim a（100） As Integer, b（100） As Integer Randomize n = 100 For i = 1 To n 输入数组a的n个元素 x = Int（20

15、 * Rnd） List1.AddItem x a（i） = x k = 0删除零元素 If a（i） k = k + 1 : b（k） = a（i） : List2.AddItem b（k）数组中零元素个数： + Str（n - k）4在窗体WinForm1中建立1个单选按钮组Opt1和1个命令按钮Cmd1，单选按钮组包含3个单选按钮，其标题分别为“单选1”、“单选2”和“单选3”，下标分别为0、1和2。设置第一个单选按钮被选中。Dim n As IntegerPrivate Sub Cmd1_Click（） n = n + 1 If n = 3 Then n = 0 Opt1（n）.Val

16、ue = True5 （1） s（i） s（j） （2） t = n（i）: n（i） = n（j）: n（j） = t （2） s（i） s（i-1） （4） h = h + 1第7章编程及上机调试1. 在窗体上建立四个文本框Text1和一个命令按钮Command1（“检验”）。文本框Text1Text3用于输入，Text4用于输出结果。 Dim a As String, b As String, c As String a = Trim（Text1.Text） b = Trim（Text2.Text） c = Trim（Text3.Text） If che（a） And che（b） An

17、d che（c） Then Text4.Text = Val（a） + Val（b） + Val（c） Else Text4.Text = 存在非数字字符Function che（x As String） As Boolean 若存在非数字字符，函数值为假 che = True For k = 1 To Len（x） s = Mid（x, k, 1） If s 9 che = False Exit ForEnd Function2在窗体上建立一个文本框控件数组Text1（0）Text1（5）、一个文本框Text2和一个命令按钮Command1（“比较”）。文本框控件数组用于输入6 个数，Tex

18、t2用于输出结果。 Dim d（5） As Single, m As Single For k = 0 To 5 d（k） = Val（Text1（k）.Text） Call max（d（0）, d（1）, d（2）, m） Call max（m, d（3）, d（4）, m） Call max（m, m, d（5）, m） Text2.Text = m标准模块文件Sub max（x, y, z, m） 比较三个数x、y、z的大小，并返回大数m If x y Then m = x Else m = y If m z Then m = zEnd Sub 3. （1） s 1 Then Power = Power（x, n - 1） * x Power = x5 创建一个新工程，建立二个窗体Form1及Form2，把Form2设置为启动窗体。在Form1中设置命令按钮C1，Form2中设置命令按钮C2。Private Sub C1_Click（） 窗体Form1的“隐藏”按钮 Form1.HidePrivate Sub C2_Click（） 窗体Form2的“显示”按钮 Form1.Show6 在窗体上设置三