- 二一组卷

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

浙江省杭州市长征中学2018-2019高一下学期信息技术期末考试试卷

素数只能被1和它本身整除，不能被其他自然数整除。编写VB程序实现如下功能：单击“产生奇数并判断”按钮Command1，随机产生一个三位正奇数显示在文本框Text1中，并在文本框Text2中显示其是否为素数的判断结果。例如，当随机产生的三位正奇数为953时，程序运行界面如图a所示。

图a

图b

（1）、在设计程序界面时，应使用图b所示“控件工具箱”中的(填写相应编号)添加文本框Text1。

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

Private Sub Command1_Click()

Dim n As Integer, i As Integer

Dim flag As Boolean ‘用于标记是否为素数

Randomize

n = Int () *2+1

Text1.Text = Str(n)

flag = True ‘标记为素数

i = 3

Do While i <= n - 1 And flag = True

If n Mod i = 0 Then

flag = False

End If

i = i + 2

Loop

If Then

Text2.Text = Str(n) + “是素数”

Else

Text2.Text = Str(n) + “不是素数”

End If

End Sub

（3）、以下选项中，与加框处表达式“n Mod i = 0”等价的是 (单选，填字母）。

A、n \ i = Int(n / i) B、n \ i = n/ i C、n Mod i = n \ i

举一反三

【加试题】猜数字游戏。由用户选择需要猜测的数字长度后,电脑随机产生一串相应长度的数字，用户输入猜测的数字，电脑判断用户所猜密码的正确性，如果用户输入的数字和电脑产生的密码完全一致则输出“恭喜你猜中了！”，否则程序将输出用户和计算机产生数字之间不同的字符数。电脑产生的n位数字分别保存在数组num的n个下标变量num (1)、num (2)、…、num (n)中。
程序界面如图VB-1所示，用户在文本框Text1中输入数字长度，单击“确定长度”按钮（Command1）后，在文本框Text2中输入数字，单击“判定”按钮（Command2）后，程序在标签Label3中输出校验结果。
相应的程序如下，在程序划线处，填入适当的语句或表达式，把程序补充完整。

Dim num(1 To 25) As Integer
Private Sub Command1_Click()
Dim i As Integer，n As Integer
n = Val(Text1.Text)
For i = 1 To n                   '产生n位小于8的密码，每位一个非负整数，保存到数组num
num(i) = {#blank#}1{#/blank#}
Next i
End Sub
Private Sub Command2_Click()
Dim x(1 To 25) As Integer, i As Integer, s As Integer, n As Integer
n = Val(Text1.Text)
For i = 1 To n
     x(i) = {#blank#}2{#/blank#}    '把文本框中数字逐个分割出来并转化成数值
Next i
s = 0                               '变量s保存不同字符的总数
For i = 1 To n
If num(i) <> x(i) Then s = s + 1
Next i
If {#blank#}3{#/blank#} Then
Label3.Caption = "恭喜你猜中了！"
Else
      Label3.Caption = "你输入的数字共有" + Str(s) + "个字符不符"
End If
End Sub

有 VB 程序段如下：

s = "2019.06 Visual Basic 6.0": n = 0 For i = 1 To Len(s)

ch = Mid(s, i, 1)

If ch >= "0" And ch <= "9" Then

m = Asc(ch) - Asc("0") + 1

a(m) = a(m) + 1

End If

Next i

For i = 1 To 10

If a(i) > 1 Then n = n + i

Next i

数组 a 各元素的初始值都为0，执行该程序段后，则变量n的值为（）

阅读下面程序：

Private Sub command1_click()

a=val(text1.text)

b=val(text2.text)

if a=b then

text3.text=str(a)

exit sub

end if

do while b<>0

r=a mod b

a=b

b=r

loop

text3.text=str(a)

End Sub

在text1、text2中输入30、6，则text3中的值为（）

有如下VB程序段：

x=-4.2

y=Abs(Int(x))

If x＞0 And x＜5 Then

y=y+1

Else

y=y-1

End If

该程序段运行后，y的值为（）

语句Dim a&(1 To 20), b#(2, -1 To 1)定义两个数组，其类型分别为（）

在Python中，若a=3，b=2，下列程序段执行后，变量a的值是（）。

a=a-b

a=a*b

相关试卷

公司介绍

服务介绍

帮助中心