1、4. 系统管理数据库13题：按要求完成操作练习。4 Private Sub Command1_Click（） 最大化按钮 Form1.WindowState = 2 最大化Private Sub Command2_Click（） 还原 Form1.WindowState = 0 还原Private Sub Command3_Click（） 最小化 Form1.WindowState = 1 最小化5在窗体上建立三个文本框Text1（第一个数）、Text2（第二个数）、Text3（计算结果）和一个命令按钮Command1（“计算”）。 Private Sub Command1_Click（） D
2、im x As Single Dim y As Single x = Val（Text1.Text） y = Val（Text2.Text） Text3.Text = x * x + y * y6. 在窗体上建立两个文本框Text1（输入一串字符）、Text2（输出结果）和一个命令按钮Command1。 Dim x As String x = Left（Text1.Text, 1） + Right（Text1.Text, 1） Text2.Text = x第3章习题1C 2B 3D 4D 5B 6C7B 8D 9D 10A 11A 12C13C 14B 15（1）A （2）C 16A 17B1
3、8（1）D （2）B （3）C 19D1AC 2AC 3ABCF1. $000,124 2Label1.Caption=a*b= 3Height，Width42 5Text1.SetFocus6Multiline, ScrollBars, 2 7编程技术，程序设计8Private Sub Text2_Change（） 当文本框Text2中的文本内容发生变动时，执行该事件过程Label1.Caption=Text1.Text 把文本框Text1中的文本内容作为标签Label1的标题Private Sub Text1_GotFocus（） 当文本框Text1获得焦点时，执行该事件过程Text1.S
4、elStart = 0 选定文本框Text1中的所有文本内容Text1.SelLength=Len（Text1.Text）1在窗体上建立一个文本框Text1（输入n值）、三个标签Label1（第一个随机数）、Label2（第二个随机数）和Label3（第三个随机数），以及一个命令按钮Command1。 n = Val（Text1.Text） Randomize x = Int（1 + n * Rnd）第一个随机数 + Str（x） Label2.Caption = 第二个随机数 Label3.Caption = 第三个随机数2在窗体上建立了四个文本框Text1、Text2、Text3和Text
5、4，以及一个命令按钮Command1（“交换”）和Command2（“合并”）。Private Sub Command1_Click（） “交换” t = Text1.Text Text1.Text = Text2.Text Text2.Text = Text3.Text Text3.Text = t“合并” t = Text1.Text + Text2.Text + Text3.Text Text4.Text = t3. （1） Rnd * 9000 + 1000 （2） Str（x） （3） Mid（s, 3, 1） + Mid（s, 2, 1） + Left（s, 1）4. Privat
6、e Sub Command1_Click（） 往左 Text1.Left = 0往右 Text1.Left = Form1.Width - Text1.Width居中 Text1.Left = （Form1.Width - Text1.Width） / 25. Private Sub Cmd1_Click（） Lab1.Visible = True Lab1.Caption = 您已下达显示命令 Cmd1.Visible = True6. Private Sub Form_KeyPress（KeyAscii As Integer） Show Print 输入字符：; Chr（KeyAscii）
7、, ASCII码为; KeyAscii Cls 7. 产生这三个消息框的相应语句是： 产生第1个消息框：x = MsgBox（在这里显示提示信息, 4 + 0, 请确认） 产生第2个消息框：在这里显示 + Chr（13） + 提示信息,3 + 0, 产生第3个消息框：+Chr（13）+,2 + 16 + 0,第4章习题1C 2A 3C 4C 5. B 6. A 7D 8B 9B 10（1）D （2）A （3）B1ABCFGHJ 2BE 3CD 4. CDE 5. AE1（S And （A=18 And A =1.65） Or （Not S And （A=16 And Age=1.60）2. 6
8、0000 3. （1） 0 To 9 （2） az,AZ （3） Else4（1）6 （2）-2 （3）2 5 Select Case x Case Is 20 Case Is = 0 y = 2 y = 4 Case Is 100） And （x Mod 5=0） （2） 0 （3） Len（Text1.Text） （4） Text1.SelText1. 在窗体上建立两个文本框Text1（输入数）及Text2（显示结果），一个命令按钮Command1（“判断”）。“判断” If x Mod 2 = 0 Then Text2.Text = 偶数 Else消息奇数 End If2窗体上建立了一个
9、文本框Text1，用于显示结果。Private Sub Form_Load（） x = Val（InputBox（请输入星期几（06） Select Case x Case Is = 0 Text1.Text = 星期日（Sunday） Case Is = 1星期一（Monday） Case Is = 2星期二（Tuesday） Case Is = 3星期三（Wednesday） Case Is = 4星期四（Thursday） Case Is = 5星期五（Friday） Case Is = 6星期六（Saturday） Case Else输入错误 End Select3窗体上建立了一个文本
10、框Text1（“输入口令”）和一个命令按钮Command1（“检查”）。“检查” x = Text1.Text If x = 12345678 Then MsgBox （欢迎你用机! Else对不起，口令错 Text1.SetFocus Text1.MaxLength = 8 Text1.PasswordChar = *4窗体上建立了两个文本框Text1（输入字符串）及Text2（转换结果），一个命令按钮Command1（“清除”）。“清除”Private Sub Text1_KeyPress（KeyAscii As Integer） Dim s As String * 1 s = Chr（K
11、eyAscii） Select Case s Case s = LCase（s） s = UCase（s） s = 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 ”
12、蓝”复选框 b = 255 Label1.BackColor = RGB（r, g, b）6程序代码如下： LabClk.Caption = LabClk.Alignment = 1 LabClk.BorderStyle = 1 LabClk.FontSize = 22 LabClk.FontName = 黑体 TimClk.Interval = 1000 Private Sub TimClk_Timer（） LabClk.Caption = Val（LabClk.Caption） + 17 （1） Chr（KeyAscii） （2） ElseIf Chr（KeyAscii） （3） CheC
13、 = CheC - 1 （4） CheC （5） Is 0 或 Else第5章习题1A 2. B 3（1）C，（2）B 4B 5C 6A7（1）B，（2）C，（3）B 8. B 9. B 10. B二、填空题1（1）4次，n=13 （2）3次，n=8 （3）3次，n=27 （4）3次，n=10 （5）1次，n=122（1） Len（s） （2） Mid（s, k, 1） （3） c + t （4） Text2.Text3（1） t = 1 （2） n = n + 1 （3） t = t * 24. 0 5. Text 6. 下拉列表框 7. AddItem ，RemoveItem或Clear8
14、（1）ItemA （2） ItemD （3） ItemD （4） ItemA9（1） Mid（x, p + 3） （2） p + 4 （3） InStr（p, x, 1231. 和数为：1.21。 s = 0 For k = 1 To 100 s = s + 1 / （1 + k * 4） Next k Print s2. 程序代码如下： 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
15、= i - 100 * a - 10 * b If a * a * a + b * b * b + c * c * c = i Then Print i Next i3. 在窗体上建立一个文本框Text1（初始值）、一个列表框List1（显示结果）和一个命令按钮Comd1（“查找”）。Private Sub Comd1_Click（） “查找” Dim n As IntegerList1.Clear:k = 0 Do While k = And t = 0.00001 Print a;的平方根为 xn1第6章习题1. D 2. A 3（1）B，（2）B 4C 5. C 6. A7. （1）C
16、（2）B （3）A （4）B （5）D 1. AD 2. CD1. 二, 12; 1, 3; -1, 2 2. 0 1 2 3 2 2 2 2 2 1 0 1 4 4 4 43. Name, Index4. （1） 0 To Index （2）Val（Text1（k）.Text）5. （1） i+1 To k （2） s（i） s（j） （3） s（i）s（i-1） （4） h = h+1 6. （1） ReDim a（1 To n + 1） （2） a（K + 1） = a（K） （3） a（p） 1. 程序代码如下： Dim a（100） As Single n = Val（InputBo
17、x（输入个数n处理前数据 : For k = 1 To n a（k） = Val（InputBox（请输入第 & k &个数 Print a（k）; Next k Print M = Int（n / 2） For k = 1 To M h = n - k + 1 t = a（h）:a（h） = a（k）:a（k） = t处理的结果 : 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 = j a（i, j）
18、= 0 End Select Print a（i, j）; Next j Print t = a（1, i）:a（1, i） = a（6, i）:a（6, i） = t Print: Print a（i, j）; Print3在窗体上建立两个列表框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 * Rnd） List1.AddItem x a（i） = x k = 0删除零元素 If a（i） 0 Then k = k + 1 : b（k） = a（i） : List2.AddItem b（k） End If数组中零元
