1. 首页 >
  2. 资讯首页 >
  3. 三道VB编程题及详细参考答案

三道VB编程题及详细参考答案

 2016-10-12 09:39  193人 来源: 华清创客学院

一、

    新建工程,在窗体上创建两个命令按钮Command1Command2,一个标签Label1。窗体和控件的大小适当、布局合理,命名并保存窗体文件(5分),要求: 

(1)在属性窗口中设置两个命令按钮上的文字分别为“改变颜色”和“改变大小”,标签上文字为“计算机等级考试”,标签可以自动调整大小以显示所有文字(5分)。 

(2)编写事件过程,运行程序后,单击“改变颜色”按钮,标签上的文字内容改为“颜色已经改变”,文字颜色改为蓝色(5分)。 

(3)编写事件过程,运行程序后,单击“改变大小”按钮,标签上的文字大小改为28()5分)。 

 

    本题要求填写源程序

 Private Sub Command1_Click() Label1.ForeColor = &HFF0000 

Label1.Caption = "颜色已经改变" End Sub  

Private Sub Command2_Click() Label1.FontSize = 28 End Sub

 

二、

    新建工程,根据题目要求自行设计窗体界面,要求窗体及控件的大小适当、布局合理,命名并保存窗体文件(7分)。 编写事件过程并满足以下要求: 

(1)单击命令按钮1,产生100个不大于300的随机整数并显示在列表框1中(9分)。 (2)单击命令按钮2,在列表框2中显示上述随机整数中前20个奇数(9分)。 (提示:使用数组存储数据)

    本题要求填写源程序 

 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

 

三、

 编写程序,求下面数列前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

  在线咨询
  扫描关注

扫一扫,关注我们

  意见反馈
  返回顶部
-->