程序设计参考答案.docVIP

程序设计参考答案： 第一套： 将窗体的Caption属性设置为：VB1； 取消窗体上的“最大化”和“最小化”按钮； MaxButton、MinButton设置为False 将窗体Form1的ICON设置“图标.ico”； 对原有的Private Sub Commad1_Click() 过程代码进行编辑修改，将’xxx修改为计算满足条件的数的个数； … n = n + 1 xxxxx … 为“结束”按钮编写过程代码：当单击该按钮时结束程序运行。 Private Sub Command2_Click() End End Sub 第二套： 用Label控件在窗体上制作一个标签，显示红色、三号、楷体、粗体的文字：计算偶数和； 设置Font属性、ForeColor属性 对原有的Private Sub Command1_Click()过程代码进行编辑修改，将 xxx修改为当输入值小于1或大于50时弹出信息窗口，信息内容为“请重新输入”的程序代码； … MsgBox (请重新输入) xxx … 将控件Label1的BorderStyle属性设置为 Fixed Single； 在窗体上添加一个按钮控件Command2，并将该控件的Caption属性设置为：结束； 为“结束”按钮编写过程代码：当单击该按钮时结束程序运行。 Private Sub Command2_Click() End End Sub 第三套： （1）将文本框Text1设置为不可编辑； Enabled属性设置为False （2）取消窗体上的最大化和最小化按钮； MaxButton、MinButton设置为False （3）对原有的Private Sub Commad2_Click() 过程代码进行编辑修改，如果没有产生随机数而直接单击判断按钮，则弹出显示“请先产生随机数”的信息窗口； … MsgBox (请先产生随机数) XXX … （4）将Frame控件的Caption属性设置为“判断结果”； （5）为“结束”按钮编写过程代码：当单击该按钮时结束程序运行。 Private Sub Command3_Click() End End Sub 第四套： 在窗体上添加1个标签，1个命令按钮，命令按钮的标题为“结束”；设置窗体的标题为“计算平均值”，无最小化、最大化按钮。 MaxButton、MinButton设置为False 编写一个完整的程序，实现如下功能：单击“产生”按钮，在一个标签内产生10个随机两位整数，格式如图所示，在另一个标签内显示这10个随机两位整数的平均值；单击“结束”按钮，结束程序运行。 Private Sub Command1_Click() Dim a As Integer, s As String, ave As Integer Randomize s = ave = 0 For i = 1 To 10 a = Int(90 * Rnd()) + 10 ave = ave + a If i 10 Then s = s a - Else s = s a End If Next i Label2.Caption = s Label4.Caption = ave / 10 End Sub Private Sub Command2_Click() End End Sub  第五套： 将窗体的标题设置为考生的真实学号，在窗体上添加1个标签，1个命令按钮，标签和命令按钮的标题如图所示。 编写一个完整的程序，实现如下功能：当单击“产生随机数并找出最值”按钮后，将自动产生10个两位随机整数，并分别在两个标签上显示其中的最大值和最小值。 Private Sub Command1_Click() Dim a As Integer Dim Min As Integer, Max As Integer Cls Randomize a = Int(Rnd * 90 + 10) Min = a Max = a Print 第1个随机整数是：; a For i = 2 To 10 a = Int(Rnd * 90 + 10) Print 第; i; 个随机整数是：; a If a Min Then Min = a If a Max Then Max = a Next i Label1.Caption = 最大值为： Max Label2.Caption = 最小值为： Min End Sub Private Sub Comm