第一套
二、编程题（本题20分，必做）
新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：
(1)在属性窗口中设置两个命令按钮上的文字分别为“改变颜”和“改变大小”，标签上文字为“计算机等级考试”，标签可以自动调整大小以显示所有文字（5分）。
(2)编写事件过程，运行程序后，单击“改变颜”按钮，标签上的文字内容改为“颜已经改变”，文字颜改为蓝（5分）。
(3)编写事件过程，运行程序后，单击“改变大小”按钮，标签上的文字大小改为28(磅)（5分）。
（20分）
本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面
请单击按钮上载文件，将你创建的frm文件上载到服务器上   
Private Sub Command1_Click()
Label1.ForeColor = &HFF0000
Label1.Caption = "颜已经改变"
End Sub
Private Sub Command2_Click()
Label1.FontSize = 28
End Sub
三、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）
新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7分）。
编写事件过程并满足以下要求：
(1)单击命令按钮1，产生100个不大于300的随机整数并显示在列表框1中（9分）。
(2)单击命令按钮2，在列表框2中显示上述随机整数中前20个奇数（9分）。
（提示：使用数组存储数据）
（25分）
本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面
请单击按钮上载文件，将你创建的frm文件上载到服务器上
   
Dim a(100) As Integer
Private Sub Command1_Click()
For i = 0 To 100
a(i) = Int(Rnd * 100)
List1.AddItem a(i), i
Next i
End Sub
Private Sub Command2_Click()
Dim s As Integer
s = 0
For i = 0 To 100
If a(i) Mod 2 = 1 Then
  List2.AddItem a(i)
  s = s + 1
  If s >= 20 Then Exit For
vb语言程序设计第五版上机答案 End If
Next i
End Sub
四、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）
编写程序，求下面数列前30项的和。将结果四舍五入保留4位小数。
    1,-1/3^3,1/5^3,1/7^3,……,(-1)^(n-1)/(2n-1)^3,……    （其中，^ 表示幂运算）
要求：在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。（25分）
本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计!   
本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面
Private Sub Command1_Click()
Dim s As Double
Dim n As Integer
n = InputBox("请输入一个数")
s = 0
For i = 1 To n
s = s + (-1) ^ (i - 1) / (2 * i - 1) ^ 3
Next i
s = Int(s * 10000 + 0.5) / 10000
Text1.Text = s
End Sub
五、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）
编写程序，用二分法求一元非线性方程f(x)=x+cosx-2.8=0在区间(0，5)上的近似实根r，要求结果保留4位小数。
要求：在运行程序时，采用适当的方式输出计算结果。（25分）
本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计!   
本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面
Private Sub Command1_Click()
Dim x As Single, x1 As Single, x2 As Single
Dim y As Single, y1 As Single, y2 As Single
x1 = 0
x2 = 5
x = (x1 + x2) / 2
y = x + Cos(x) - 2.8
While Abs(y) > 0.00001
y1 = x1 + Cos(x1) - 2.8
y2 = x2 + Cos(x2) - 2.8
If y1 * y < 0 Then x2 = x
If y2 * y < 0 Then x1 = x
x = (x1 + x2) / 2
y = x + Cos(x) - 2.8
Wend
x = Int(x * 10000 + 0.5) / 10000
Print x
End Sub
第二套
二、编程题（本题20分，必做）
新建工程，在窗体上创建一个命令按钮Command1和一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：
(1)在属性窗口中设置命令按钮上的文字为“改变大小”，标签上文字为“改变颜”（5分）。
(2)编写事件过程，运行程序后，单击命令按钮，适当增加窗体的高度（5分）。
(3)编写事件过程，运行程序后，单击标签，将窗体的背景改为绿（5分）。（20分）
本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面
请单击按钮上载文件，将你创建的frm文件上载到服务器上   
Private Sub Command1_Click()
Form1.Height = Form1.Height + 500
End Sub
Private Sub Label1_Click()
Form1.BackColor = &HFF00&
End Sub
三、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）
新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名
并保存窗体文件（7分）。
编写事件过程并满足以下要求：
(1)声明一个含10个元素的一维数组，运行时单击命令按钮1，利用InputBox函数以循环方式给数组赋值。（9分）。
(2)输入完成后，单击命令按钮2，以适当方式显示数组中的元素，并将数组中后5个数的平均值显示在一个文本框中（9分）。（25分）
本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面
请单击按钮上载文件，将你创建的frm文件上载到服务器上
Dim a(1 To 10) As Integer
Private Sub Command1_Click()
For i = 1 To 10
a(i) = InputBox("请输入一个数")
Next i
End Sub
Private Sub Command2_Click()
For i = 1 To 10
Print a(i);
Next i
For i = 6 To 10
s = s + a(i)
Next i
s = s / 5
Text1.Text = s
End Sub
   
四、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）
编写程序，计算并输出下面数列前n项(设n=50)的和。
1×2,-2×3,3×4,-4×5,……,(-1)^(n-1)×n×(n+1),……     （其中，^ 表示幂运算）
要求：在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。（25分）
本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计!
本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面
Private Sub Command1_Click()
Dim s As Double
Dim n As Integer
n = InputBox("请输入一个数")
s = 0
For i = 1 To n

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。