2014内蒙古计算机类综合考试模拟试题一带答案.doc

12. 题目：txts和一个标签lbla，并建立如下菜单： 菜单项 菜单名称 说明 操作（O） mnuop 一级菜单 ….产生随机数 mnura 二级菜单 ….计算 mnujs 二级菜单 单击“产生随机数”菜单项，产生10个两位随机整数，显示在文本框txts中。单击“计算”菜单项，计算所产生数的平均值，并显示在标签lbla上。窗体运行如下图。（涉及的循环要求用for循环） Dim a(1 To 10) As Integer Private Sub mnujs_Click() Dim sum As Integer For i = 1 To 10 Next i lbla.Caption = sum / 10 End Sub Private Sub mnura_Click() txts.Text = For i = 1 To 10 a(i) = txts.Text = Next i End Sub 13. 题目：Private Sub mnura_Click() Label1.Caption = Int(Rnd * 101) + 100 End Sub Private Sub mnurun_Click() Dim x As Integerx = Val(Label1.Caption) For i = 2 To If Then Label2.Caption = 不是素数 Exit For End If Next If Then Label2.Caption = 是素数 End If End Sub 14．题目：ex 的近似值，要求最后一项的值小于等于0.000 001 时停止计算，结果显示在标签label3中。ex 的展开式为：ex=1+x/1!+x2/2!+ x3/3!+…+ xn/n!。程序运行界面如图所示。（要求用do while……loop实现） Private Sub Command1_Click() Dim x As Integer Dim s As Double Dim n As Integer x = Val(Text1.Text) s = 1: n = 1 t = Do While t 0.000001 s = s + t t = Loop Label3.Caption = s End Sub