vb考试题(国外英语资料).docVIP

vb考试题(国外英语资料) 1. enter two numbers, print the number before switching and after switching Private, Sub, Command1_Click () Dim, m, N, t, As, Integer M = InputBox (enter m) N = InputBox (enter n) Picture1.Print before switching: Picture1.Print m=; m; n=; n T = m:, M = n:, n = t Picture1.Print after the swap: Picture1.Print m=; m; n=; n T = m:, M = n:, n = t End Sub 2. for the function value B, which Dim, a, As, Single, B, As, Single A=Val (Text1) If a100 Then B=a-100 End If Text2=b 3. for the function value B, which Dim, a, As, Single, B, As, Single A=Val (Text1) If a100 Then B=a-100 Else B=100-a End If Text2=b 4. for the function value B, which Dim, a, As, Single, B, As, Single A=Val (Text1) If a100 Then B=a-100 ElseIf a = 100 Then B=100 Else B=100-a End If Text2=b 5. to find the value of the piecewise function B, which Dim, a, As, Single, B, As, Single A=Val (Text1) C=Val (Text3) If a100 Then If c100 Then B=Sqr (a^2+c^2) Else B=Sqr (a^2-c^2) End If Else B=a End If Text2=b 6. known x, y, Z, three numbers, so that xyz. If xy Then T=x:x=y:y=t End If If yz Then T=y:y=z:z=t If xy Then T=x:x=y:y=t End If End If 7., according to the input of the four operators, the random number of two corresponding operation, and display the results. A=Int (Rnd*100) produces a random integer of 0~99 B=Int (Rnd*100) F=Text1.Text Select Case f Case + C=a+b Case - - C=a-b Case * C=a*b Case / C=a/b Case Else MsgBox enter error! End Select Text2=c 8. s=1+2+3+4+... +100, calculate the value of S. Private, Sub, Form_Click () Dim, I, As, Integer, s, As, Integer S=0 I=0 For i=1 To 100For statement S=s+i Next I Print s End Sub 9. determine whether the number n entered by the user is a prime number. Private, Sub, Form_click () Dim, N, As, Integer, I, As, Integer N=InputBox (enter an integer greater than 2) For, i=2, To, Sqr (n) If (n, Mod, I) =0 Then MsgBox n is not prime Exit Sub Finding a number that can divide n does not need to continue judging, ending the program End If Next I MsgBox n is pr