- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省瑞安市上海新纪元高级中学2019-2020学年高二上学期信息技术学考模拟试卷

用VB编写一个寻找第n个素数的程序，程序功能：在text1中输入一个正整数n，单击“寻找”按钮commnad1后，在label2中输出第n个素质，如n=1，第1个素质是2，程序运行界面如图a所示。

图a

图b

（1）、结合程序功能，在设计程序界面时，应使用图b所示“控件工具箱”中的 (填写相应编号)添加该程序的“输出”对象。

（2）、实现上述功能的VB程序如下，请在划线处填写合适的代码。

Private Sub Command1_Click()

Dim n As Integer, i As Integer, s As Integer, x As Integer, f As Boolean

n = Val(Text1.Text)

f = False: s = 0

i = 2

Do While f = False

x = 2

Do While x <= Int(Sqr(i)) And i Mod x <> 0

①

Loop

If x > Int(Sqr(i)) Then

s = s + 1

If ② Then

Label2.Caption = "第" & Str(n) & "个素数是：" & Str(i)

f = True

End If

i = i + 1

Loop

End Sub
① ②

（3）、若在text1中输入n为3，则单击“寻找”按钮后，label2中输出的是。

举一反三

VB软件设计程序时，规定窗体文件的扩展名是（）

“字符洗牌”程序模拟扑克洗牌的操作，为了打乱牌序，把手工的扑克牌中间抽一部分放到最上面，完成一次洗牌（如字串“1234ABCD”，若把中间的低给到第5个字符串抽出并保持原来的顺序放到前面，则一次洗牌操作后字符串变成“34A12BCD”也可以把扑克牌分成下两部分，把下面的部分放置到上面(如字符串“1234ABCD”，把第3个字符变成洗牌的目的，效果如图所示。

已知a=5、b=6，则执行如下语句后

a = a + b

b = a + b

a和b的值分别为（）

如下数组声明语句：Dim a(3,-2 To 2,5) ，则数组a包含的元素的个数为（）

执行下列程序后，变量X的值是（）

PRIVATE SUB FORM__CLICK( )

S=0

FOR A = 1 TO 5

FOR B= 1 TO 3

S=S+1

NEXT B

NEXT A

PRINT S

END SUB

有如下程序段：

Dim a(1 To 5) As Integer

For i = 1 To 5

a(i) = Int(Rnd * 30 + 10)

t = t + a(i) \ 10

Next i

For j = 1 To t \ 3

If j Mod 2 = 1 Then a(j) = a(j) + 1 Else a(j) = a(j) - 1

Next j

运行程序后，数组a各个元素的值，不可能的是（）

相关试卷

公司介绍

服务介绍

帮助中心