- 二一组卷

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

浙江省临安市昌化中学2019届高三上学期信息技术期末模拟试卷

编写“判断素单词”程序，实现如下功能，在文本框内输入一下单词，每个单词由a~z以及A~Z的字母组成。每个字母对应一个特定的值，字母a对应1，字母b对应2，以此类推，字母z对应26；类似的字母A对应27，字母B对应28，字母Z对应52。若这个单词的各字母对应数值的总和是素数，则这个单词是素单词（prime word）。例如“AcM”各字母对应数值的总和是69，不是素数，则在Label1中输出“It is not a prime word.”否则输出“It is a prime word.”。（素数是只能被1和它本身整除的整数。字母“A”的ASCII码值是65，“a”的ASCII码值是97）

（1）、在设计程序界面时，要清空文本框中的显示内容，应修改文本框的属性。

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

Private Sub Command1_Click()

Dim s As String, n As Integer

Dim i As Integer, m As Integer

Dim f As Boolean

s = Text1.Text

n = Len(s)

For i = 1 To n

t = Mid(s, i, 1)

If t >= "A" And t <= "Z" Then

m = m + Asc(t) - 38

ElseIf t >= "a" And t <= "z" Then

m =

End If

Next i

f = True

For i = 2 To m - 1

If m Mod i = 0 Then f = False

Next i

IfThen

Label1.Caption = "It is a prime word."

Else

Label1.Caption = "It is not a prime word."

End If

End Sub

（3）、运行该程序，在文本框Text1中输入“Are”，单击“判断”按钮，则在Label1中显示的结果是。

举一反三

VB表达式9\8/2 + 12 Mod 3*3 的值是( )。

小李父母开了一家农家乐，顾客可以到桔园自摘桔子，收费标准是门票每人20元，采摘的桔子每斤10元，付费时若能完成小游戏则有优惠。

用VB软件设计的自摘收费程序，功能如下：在文本框Textl中输入自摘的人数n，在文本框Text2中输入摘得桔子重量w。界面右上方是小游戏部分，程序在文本框Text3显示随机产生的桔子层数m，根据图中所示的堆桔子方法（第1层1个；第2层4个；第3层9个……），请顾客计算出m层桔子总数s，输入到文本框Text4中，单击“是否优惠计算”按钮Command1，就会在标签Label4中输出最后的费用f，并在标签Label7中给出提示是否“优惠后的费用”。运行效果如图所示：