VB章节练习题

内容发布更新时间 : 2025/7/23 12:10:05星期一下面是文章的全部内容请认真阅读。

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

运行后输出的星号个数是 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

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

运行时，输