vb模拟题及真题重要题目代码.docVIP

1、通过For循环语句实现xn()的乘幂运算 xn函数中xn（t，i）t 指底数，i指指数 等同于t^i Private Function xn(a As Single, m As Integer) Dim i As Integer tmp = 1 For i = 1 To m tmp = tmp * a Next xn = tmp End Function Private Sub Command1_Click() Dim n As Integer Dim i As Integer Dim t As Single Dim s, x As Single n = Val(Text1.Text) x = Val(Text2.Text) z = 0 For i = 2 To n t = x + i z = z + xn(t, i) Next Label1.Caption = z Call SaveResult End Sub 2、①属性窗口中Timer1的 Enabled= false(初始状态不计时)，interval=100（0.1秒） Private Sub SaveResult() Open App.Path \out4.dat For Output As #1 Print #1, Label1.Caption Close #1 End Sub Private Sub C1_Click() Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Static a% a = a + 1 If P1.Top P2.Top + P2.Height Then P1.Move P1.Left, P1.Top - 5 - a, P1.Width, P1.Height Else Timer1.Enabled = False End If End Sub 3、 Private arr(100) As Integer Public Function prime(x As Integer) k = Int(Sqr(x) + 5) For i ＝ 2 To k 　　　　If x Mod i = 0 Then 　　　　　　prime = False 　　　　　　Exit Function 　　　　End If Next prime = True End Function Private Sub Command1_Click() Open App.Path \in5.txt For Input As #1 For i = 1 To 40 　　　　Input #1, arr(i) Next Close #1 End Sub Private Sub Command2_Click() Dim a As Integer Dim b As Integer a = 0 b = arr(1) For i = 1 To 40 If prime(arr(i)) Then a = a + 1 Label3.Caption = a Next For i = 1 To 40 If prime(arr(i)) And arr(i) = b Then b = arr(i) Label4.Caption = b Next Open App.Path \out5.txt For Output As #1 Print #1, Label3.Caption, Label4.Caption Close #1 End Sub 4、组合框中有三个数。从中取出一个，计算5000以内能被它整除的所有数的和，并将结果显示在Text1中。 窗体：Private Sub C1_Click() Dim sum As Long Dim a As Integer Dim i As Integer i = (Cb1.Text) For a = i To 5000 If a Mod i = 0 Then sum = sum + a End If Next a Text1 = sum End Sub 模块： Private Sub Form_Unload(Cancel As Integer) unload_sub End Sub Sub unload_sub()