visual_basic_真正的试卷大全答案

试题1(每小题3分,共12分)

阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。

【程序说明】单击窗体后输入1个不小于6的正整数,然后输出该数所有的质数因子(如输入6则输出“ 2 3”,输入60则输出“ 2 2 3 5”,等等)。

【程序】

Private Sub f( (1) )

Dim i As Integer

i = 2

Do While (2)

If (3) Then k = k /i: Print i; Else i = i + 1

Loop

End Sub

Private Sub Form_Click()

Dim n As Integer

Do

n = InputBox("n=")

Loop (4)

Call f(n)

Print

End Sub

【供选择的答案】

(1)A)n As Integer B)k As Integer

C)Byval n As Byte D)I As Integer

(2)A)k>1 B)k>=1 C)k=1 D)k Mod i=0

(3)A)k\i=0 B)k\i*i=0 C)n Mod i=0 D)(k\i)*i=k

(4)A)Until n>6 B)While n>=6 C)Until n>=6 D)While n>6 试题2(每小题3分,共15分)

阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。

【程序说明】

统计鼠标单击图片框控件P1中两个同心圆所围成黑色区域的次数:首次单击Command1将统计结果请零、P1可用,再次单击则以消息框显示统计结果、P1不可用。

Dim n As Integer

Private Sub Command1_Click()

If Command1.Caption = "开始" Then

Command1.Caption = "显示"

P1.Enabled = True: n = 0

Else

Word文档免费下载Word文档免费下载:visual_basic_真正的试卷大全答案 (共46页,当前第1页)

visual_basic_真正的试卷大全的相关文档搜索

visual_basic_真正的试卷大全相关文档

最新文档

返回顶部