上机编程练习题选解Word格式文档下载.docx

1、Private Sub Text1_KeyUp（KeyCode As Integer, Shift As Integer） Text1.Tag = Text1.TextPrivate Sub Command1_Click（） Text1.Text = UCase（Text1.Tag）Private Sub Command2_Click（） Text1.Text = LCase（Text1.Tag）Private Sub Command3_Click（） Text1.Text = Text1.Tag3-9 参考代码：Const pi As Single = 3.1415926Dim r As I

2、nteger Label1.Caption = 用滚动条获取不同半径的圆周长和面积 Label2.Caption = 圆周长 Label3.Caption = 圆面积 Label4.Caption = 半 径 Label5.Caption = 0 Label6.Caption = 100: Text1.Locked = True Text2.Text = Text2.Locked = True Text3.Text = Text3.Locked = True HScroll1.Min = 0: HScroll1.Max = 100Private Sub HScroll1_Change（） r

3、= HScroll1.Value: Text3.Text = rPrivate Sub HScroll1_Scroll（） Text1.Text = 2 * pi * r: Text2.Text = pi * r * r4-6 参考代码： Label1.Caption = 0 Label1.BorderStyle = 1 Label1.FontName = 黑体 Label1.FontSize = 60 Timer1.Interval = 1000Private Sub Timer1_Timer（） Label1.Caption = Label1.Caption + 14-7 参考代码：Dim

4、 CheC As IntegerPrivate Sub Text1_KeyPress（KeyAscii As Integer） If Chr（KeyAscii） = （ Then CheC = CheC + 1 ElseIf Chr（KeyAscii） = ） CheC = CheC - 1 End If Select Case CheC Case Is = 0左右括号配对 Case Is 左括号多于右括号 End Select4-8 建立应用程序用户界面如图附C-1所示，窗体上有一个框架，两个方本框（分别用于输入年号和月份），三个标签和一个命令按钮。图附C-1 判断闰年参考代码： Dim y

5、 As Integer, m As Integer, days As Integer Dim ji As String Dim LeapYear As Boolean y = Val（Text1.Text） m = Val（Text2.Text） If （y Mod 4 = 0 And y Mod 100 0） Or （y Mod 400 = 0） Then LeapYear = True Else LeapYear = False Select Case m Case 3 To 5 ji = 春季（Spring） Case 6 To 8复季（Summer） Case 9 To 11秋季（Au

6、tumn） Case 12, 1, 2冬季（Winter） Case 1, 3, 5, 7, 8, 10, 12 days = 31 Case 4, 6, 9, 11 days = 30 Case 2 If LeapYear Then days = 29 days = 28 Label3.Caption = Str（y） &年 IIf（LeapYear, 是, 不是） &闰年 Str（m） &月有 Str（days） &天,在 ji Text1.SetFocusPrivate Sub Text1_GotFocus（） Text1.SelStart = 0 Text1.SelLength = L

7、en（Text1.Text）5-1 参考代码： Dim s As Single, i As Integer Show For i = 1 To 100 s = s + 1 / （1 + 4 * i） Next Print s5-2 参考代码： Dim p As Integer, n As Integer For n = 100 To 999 a = Int（n / 100） b = Int（n - a * 100） / 10） c = n - a * 100 - b * 10 p = a 3 + b 3 + c 3 If p = n Then Print p5-5 参考代码如下：显示 List

8、1.Height = 1770 List1.Width = 1300 List1.FontName = List1.FontSize = 14 List1.AddItem 表项1表项2表项3表项4表项5注：列表框的MultiSelect属性在程序运行时是只读的，只能设计时在属性窗口中设置。 Dim i As Integer For i = 0 To List1.ListCount - 1 If List1.Selected（i） Then Print List1.List（i）5-6 参考代码： Dim s As String, y As String s = Trim（Text1） y =

9、For k = 1 To Len（s） x = Mid（s, k, 1） If x = A And x az y = y + x Text2.Text = y5-7 参考代码： Dim x As Single, a As Single, t As Single a = Val（InputBox（请输入一个正数） x = a Do t = x x = （x + a / x） / 2 Loop Until Abs（x - t） 0.00001 Print Format（x, 0.00000）5-8 参考代码： Print For n = 1 To 5 Print Tab（2 * n）; For m

10、 = n To 10 - n Print Spc（1）;* Next m Print Spc（4）; For m = 1 To 2 * n - 1 Next n6-3在窗体上建立两个列表框List1（处理前数据）和List2（处理后数据），以及标签Label1。程序代码如下：Dim a（100） As Integer, b（100） As IntegerRandomizen = 100For i = 1 To n 输入数组a的n个元素 x = Int（20 * Rnd） List1.AddItem x a（i） = xNext ik = 0删除零元素 If a（i） 0 Then k = k

11、+ 1 : b（k） = a（i） : List2.AddItem b（k）Label1.Caption = 数组中零元素个数： + Str（n - k）6-4 参考代码： Frame1.Caption = Space（2） + 数据 + Space（3） + 出现次数 Randomize Dim s（40）, g（40） n = 40 For k = 1 To 1000 x = Int（11 + 40 * Rnd） g（x - 10） = g（x - 10） + 1 统计各数出现的次数 For k = 1 To n s（k） = k + 10 数组s（1）s（40）存放1150各数 For

12、k = 1 To n - 1 对数组g（n）进行选择法排序 t = k 保存较大数的位置 For j = k + 1 To n If g（t） g（j） Then t = j m = g（t）: g（t） = g（k）: g（k） = m m = s（t）: s（t） = s（k）: s（k） = m t = Space（2） & s（k） & Space（5） & g（k） List1.AddItem t Next 6-5在窗体上建立4行3列共12个元素的文本框控件数组Text1（0）Text1（11），参考代码： Dim t（12） As String For k = 1 To 12 t（

13、k） = Empty 初始安排12个位置均为 For h = 65 To 74 代表至J，每次随机安排一个字母 Do While True 随机查找一个空位 p = Int（1 + 12 * Rnd） 产生112随机数 If t（p） = t（p） = Chr（h） Exit Do Loop Text1（k - 1）.Text = t（k） 显示座位分配情况6-6 参考代码：Private Sub Form_Activate（） Dim s（9, 9） As Integer For n = 0 To 9 For m = 0 To 9 If n = m Or n = 10 - m Then s（

14、n, m） = 1 s（n, m） = 0 Picture1.Print Tab（1 + m * 3）; s（n, m）;6-7 在窗体上添加两个图片框Picture1Picture2（分别显示转置前、后的矩阵）和两个命令按钮Command1Command2。参考代码如下：Dim a（6, 4） As Integer, b（4, 6） As IntegerPrivate Sub Command1_Click（） “重置” For n = 1 To 6 For m = 1 To 4 x = Int（Rnd * 90） + 10 a（n, m） = x Picture1.Cls Picture2.

15、Cls Picture1.CurrentX = 80 Picture1.Print a（n, m）; Picture1.PrintPrivate Sub Command2_Click（） “转置” b（m, n） = a（n, m） Picture2.CurrentX = 80 For n = 1 To 4 For m = 1 To 6 Picture2.Print b（n, m）; Picture2.Print重置转置 Picture1.BorderStyle = 1 Picture2.BorderStyle = 16-8定义二维数组a（1,1）,a（0,0）表示两个正面，a（1,1）表示两

16、个反面，a（0,1）和a（1,0）表示一反一正和一正一反。在窗体添加一个命令按钮Command1。 Dim a（1, 1） As Integer Dim n As Integer, n1 As Integer, n2 As Integer n = Val（InputBox（n=请输入投币次数投币次数： n Randomize Time For i = 1 To n n1 = Int（Rnd * 2） n2 = Int（Rnd * 2） a（n1, n2） = a（n1, n2） + 1两个正面的次数为： a（0, 0）两个反面的次数为： a（1, 1）一正一反次数为： a（0, 1） + a（

17、1, 0）输入次数7-3 参考代码： Dim s As String s = Trim（Text1.Text） List1.Clear n = Getword（s） Text2.Text = nPublic Function Getword（s As String） As Integer n = 0 Do While n = Len（s） p = InStr（s, Space（1） n = n + 1 If p = 0 Then List1.AddItem s s = List1.AddItem Left（s, p - 1） s = Mid（s, p + 1） Getword = nEnd F

18、unction7-4 参考代码如下：Public Function Pwoer（x As Single, n As Integer） As Double If n = 0 Then Pwoer = 1 Pwoer = x * Pwoer（x, n - 1） Dim x As Single, n As Integer x = Val（InputBox（输入一个实数：输入一个正整数： Print Pwoer（x, n）7-6 把两个窗体上的命令按钮分别定义为控件数组。窗体Form1的代码：随机数最大值 Command1（0）.Caption = 生成随机数 Command1（1）.Caption

19、= 求最大数 Command1（2）.Caption = 打开排序窗口 Command1（3）.Caption = 结束Private Sub Command1_Click（Index As Integer） Select Case Index Case 0 生成随机数 For i = 0 To 9 x = Int（Rnd * 89 + 0.5） + 11 yes = 0 For j = 0 To i - 1 If x = a（j） Then yes = 1: Exit For Loop While yes = 1 Text1.Text = Text1.Text & x &, Text1.Text = Left（Text1.Text, Len（Text1） - 1） Case 1 Text2.Text = Max（a（） 求最大数 Case 2 打开排序窗体 Form1.Hide Form2.Show Case 3 结束 Unload Form1 Unload Form2窗体Form2的代码： Case 0 排序 Call Sort（a（） a（i） & Text1.Text = Left（Text1.Text, Len（Text1.Text） - 1） Case 1 返回 Form2.Hide Form1.Show结果排序返回 T