VB编程题及详细参考答案VIP专享VIP免费

第一套 二、编程题（本题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 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 值，并用适...