《VB程序设计》复习题
nTemp = B: B = C: C = nTemp End If
Print \End Sub
4. 歌德巴赫猜想:任何一个大于或等于六的偶数都可以分解成两个素数之和.
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, m As Integer Dim n As Integer, m1 As Integer, m2 As Integer,num
num=val(inputbox(“请输入要验证的整数范围最大值(MAX)”)) For i = 6 To num Step 2 For j = 3 To i
k = （ Int(Sqr(j)) ） For m = 2 To k
If j Mod m = 0 Then ( Exit For) Next m If m > k Then n = i - j
m1 =( Int(Sqr(n)) ) For m2 = 2 To m1
If n Mod m2 = 0 Then （Exit for） Next m2
If ( m2 > m1 ) Then Print i; \ End If Next j Print Next i End Sub
5. 从计算机输入三个数,找出中间数
Private Sub FindMidNum( )
X=INPUTBOX(“PLEASE INPUT THE FIRST NUMBER”) Y=INPUTBOX(“PLEASE INPUT THE SECOND NUMBER) Z=INPUTBOX(“PLESSE INPUT THE THIRD NUMBER)
第 16 页 共 17 页
《VB程序设计》复习题
IF ( X IF ( Y>=Z ) THEN PRINT Y ELSEIF ( X>=Z ) THEN PRINT Z ELSE PRINT X ENDIF End Sub 6. [程序说明] 由输入对话框输入n（设n为大于零且小于30的自然数），计算下列表达式的值，并在标签框Label1上显示。 [程序] Private Sub Form_Click( ) Dim n As Integer,sum as Double,k As Integer n=Val(InputBox(“n=”,”请输入自然数n(n>0 且n<30)”)) Do (While n<=0 or n>=30) n=val(InputBox(“n=”,”请重输入”)) Loop Sum=0 ( k=0) do k=k+1 sum= (sum+1/(k*(k+1))) Loop Until k>=n Label1.Caption=”Sum=”+Str(sum) End Sub 第 17 页 共 17 页