VB程序设计复习题(4)

《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 页

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB程序设计复习题(4)在线全文阅读。