VB章节练习题(4)

Private Sub Form_Click（） S=0 n=5 For i=1 to n S＝S+n Next i Print s End Sub

运行后输出的结果是＿。

A）15 B）20 C）25 D）30 11．下列程序 option Explicit

Private Sub Command1_Click（） Dim a！，b！，c！，mmm！

a=InputBox（”请输入第 l个数：”） b＝inputbox（”请输入第2个数：”） c=Inputbox（”请输入第 3个数：”） mmm＝a

if b>mmm then mmm=b if c>mmm then mmm=c Print mmm End Sub

运行时，输入数据是：100，200，－300，输出的结果是＿D 。 A）-300 B） 0 C）100 D）200 12．下列程序

Private Sub form_Click（） S=0 n＝ 100 For i＝1 to n S＝S+i

If i Mod 5＝0 then print “*” Next i Print s End Sub

16

运行后输出的星号个数是 B 。

A） 15 B） 20 C）25 D）30 13下列程序

Private Sub Form_Click（） For i=1 to 10 For j=1 to i S=S＋1 Next j Next i Print s End Sub

运行时，循环体执行的次数是 C 。 A） 45 B） 50 C）55 D）100 14．下列程序

Private sub Form_click（） For i＝ 1 to 10 For j＝ 1 to i Print”＊”； Next j Print Next i End Sub

运行时，输出星号的行数是＿A 。 A） 10 B） 20 C） 50 D） 100 。15．下列程序

Private Sub Form_click（） a=3

If a<= 3 Then Print 3； End if

If a<=4 Then Print 4； End if

17

If a<=5 then Print 5； End If If a<=6 then Print 6 ； End if Print End Sub

运行时，输出的结果是＿D 。 A） 3 B） 3 4 C） 3 4 5 D） 3 4 5 6 16．下列程序

Private Sub Form_click（） For i=1 to 4 m=0 For j＝ 1 To 5 m=1 For k＝1 to 6 m=m＋5 Next k Next j Next i Print m End Sub

运行后输出的结果是 C 。 A） 11 B） 21 C） 31 D） 41 17下列程序

Private Sub form_click（） For i=1 to 4 m=0

For j＝1 to 3 If j=2 then m=m-59 For k＝1 to 6 m=m+5 Next k

18

Next j Next i print m End Sub

运行后输出的结果是 C 。 A） 11 B） 21

C）31 D） 41 18．有如下程序 private sub form_ click()

x=val(inputbox(“请输入一个数”)) c=abs(x) while x<>-1

if abs(x)>c then c=abs(x) x=val(inputbox(“请输入一个数”)) wend print c End Sub。

运行时输入 5，9，8，2,-999,-1,输出的结果是 C A） 9 B) -999 C）999 D) -1 二、填空题

1．下列程序的输出结果是 11 private sub form_click( ) k=1: m＝ 5 For i=1 to m k＝k+i^2 Next i Print k＼ rn End Sub

2下列程序的运行结果是 ABCDE private sub form_click( ) m=5 for i=1 to m

print chr(asc(“A”)+i-1); Next i End Sub

19

3．以下程序运行后的输出结果是 万里晴空 。 Private Sub Form_click（） a$＝”晴空万里” For i=1to 4 Step 2

Print Mid＄（a$,4-i, 2）； Next i End Sub

4以下程序运行后的输出结果是 3 1 。 Option Explicit

Private sub form_click（）

Dim h As Integer，f As Integer, t As Integer, j As Integer h＝4：f=10

if f mod 2=0 and 2*h<=f and f<=4*h then j=2*h-f/2 3 t=f／2－h 1 Print j,t End if End Sub

5若A的平方+B的平方=C的平方，则A,B，C称为一组勾股数。下面程序的功能是找出100以内的所有勾股数，并按A,B，C顺序输出。请在画线处填入适当内容。

Private Sub Command_click（） For a＝ 2 to 99 For b= a+1 to 100

C= Sqr(a*a+b*b)

If Int( c )=c and C＜＝100 then Print a， B， C End if Next B Next a End Sub

6。下列是一个统计某班学生的血型情况的程序。程序的输出是O型血的20岁男学生的姓名及各种血型的人数（输入数据包括每人的姓名、年龄、性别和血型）。

Private Sub Command_ Click（） Dim A As Integer Do

N$=InputBox（”姓名：”）

20

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