程序设计参考答案
- 格式:doc
- 大小:50.00 KB
- 文档页数:4
程序设计参考答案:
第一套:
(1)将窗体的Caption属性设置为:VB1;
(2)取消窗体上的“最大化”和“最小化”按钮;MaxButton、MinButton设置为False (3)将窗体Form1的ICON设置“图标.ico”;
(4)对原有的Private Sub Commad1_Click() 过程代码进行编辑修改,将’xxx修改为计算满足条件的数的个数;
…
n = n + 1 'xxxxx
…
(5)为“结束”按钮编写过程代码:当单击该按钮时结束程序运行。
Private Sub Command2_Click()
End
End Sub
第二套:
(1)用Label控件在窗体上制作一个标签,显示红色、三号、楷体、粗体的文字:计算偶数和;
设置Font属性、ForeColor属性
(2)对原有的Private Sub Command1_Click()过程代码进行编辑修改,将 'xxx修改为当输入值小于1或大于50时弹出信息窗口,信息内容为“请重新输入”的程序代码;
…
MsgBox ("请重新输入") 'xxx
…
(3)将控件Label1的BorderStyle属性设置为Fixed Single;
(4)在窗体上添加一个按钮控件Command2,并将该控件的Caption属性设置为:结束;
(5)为“结束”按钮编写过程代码:当单击该按钮时结束程序运行。
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个标签,1个命令按钮,命令按钮的标题为“结束”;设置窗体的标题为
“计算平均值”,无最小化、最大化按钮。
MaxButton、MinButton设置为False
(2)编写一个完整的程序,实现如下功能:单击“产生”按钮,在一个标签内产生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个标签,1个命令按钮,标签和命令按
钮的标题如图所示。
(2)编写一个完整的程序,实现如下功能:当单击“产生随机数并找出最值”按钮后,将自动产生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 Command3_Click() End
End Sub
第六套:
(1)在窗体上添加1个标签,1个命令按钮,命令按钮的标题为“结束”;设置窗体的标题为
“产生随机整数”,无最小化、最大化按钮。
MaxButton、MinButton设置为False
(2)编写一个完整的程序,实现如下功能:单击“产生”按钮,在标签内产生10个随机两位整数,格式
如图所示;单击“结束”按钮,结束程序运行。
Private Sub Command1_Click()
Dim a As Integer, s As String Randomize
s = "结果:"
For i = 1 To 10
a = Int(90 * Rnd()) + 10
If i < 10 Then
s = s & a & "-"
Else
s = s & a
End If
Next i
Label2.Caption = s
End Sub Private Sub Command2_Click() End
End Sub
(1)在窗体上添加控件:1个标签,1个文本框,1个命令按钮,控件的标题如图所示。
(2)编写一个完整的程序,实现如下功能:在“输入字符串:”右边的文本框里输入任意一串字符,单击
“截取部分”按钮,如果所输入的字符串的长度不超过2,则在“部分字符串:”右边的文本框里显示所输入的字符串,否则,则在“部分字符串:”右边的文本框里显示所输入的字符串除第一个字符外的其余部分。
Private Sub Command1_Click()
Dim A As String, L As Integer
A = Text1.Text
L = Len(A)
If L > 2 Then
Text2.Text = Mid(A, 2, L - 1)
Else
Text2.Text = A
End If
End Sub
第八套:
(1)在窗体上添加1个标签,1个文本框,1个命令按钮,命令按钮的标题为“结束”;设置窗体的
标题为“计算阶乘的值”。
(2)编写一个完整的程序,实现如下功能:在“请输入一个自然数(1~7)”右边的文本框里输入一个1
到7之间的整数n,单击“计算”按钮后,在标签上显示“n!的值为:”,并在其右边的文本框内显示该阶乘的值。
Private Sub Command1_Click()
Dim T As Integer
T = 1
n = Val(Text1.Text)
If n <= 1 Or n > 7 Then
MsgBox ("你输入的数据有问题,请重新输入!")
Else
For i = 1 To n
T = T * i
Next i
Label2.Caption = n & "!的值为:"
Text2.Text = T
End If
End Sub Private Sub Command2_Click() End
End Sub。