Private Sub Command1_Click() Dim a As Integer, b As Integer Dim n As Integer, t As Integer Dim m(1 To 100) As Integer a = Val(Text1.Text) b = Val(Text2.Text) n = Val(Text3.Text)
If a > b Then t = a: a = b: b = t Randomize
①
For i = 2 To n
m(i) = Int(Rnd * (b - a + 1)) + a If m(i) > m(i - 1) Then ②
For j = i - 1 To 1 Step -1 If temp < m(j) Then Exit For m(j + 1) = m(j) Next j ③ End If Next i
For i = 1 To n
List1.AddItem Str(m(i)) Next i End Sub
程序①处的代码是 程序②处的代码是
程序③处的代码是 17．【加试题】编写VB程序，实现如下功能：单击“生成密文”按钮Command2，在文本框Text3中产生与每个小写字母对应的密文（每个明文字母对应1个不重复的密文字母）。在文本框Text1中输入单词字符串，单击“加密”按钮Command1后，进行逐个字符加密，加密方法：在“明文”中找到相应字符，再得到明文对应位置的密文,并在文本框Text2中显示对应密文（运行效果如图17所示）。实现上述功能的VB代码如下：
Dim m2 As String
Private Sub Command1_Click() Dim flag(1 To 26) As Boolean
Dim num As Integer,t As Integer Randomize num = 1
Text3.Text = \For i = 1 To 26 flag(i) = False Next i
Do While num <= 26
x = Int(Rnd * 26) + 97 ①
If flag(t) = False Then m2 = m2 + Chr(x) num = num + 1
② End If Loop
Text3.Text = m2 End Sub
Private Sub Command2_Click()
Dim s As String， m As String， result As String Dim k As String， c As Integer s = Text1.Text
m = \For i = 1 To Len(s) k = Mid(s, i, 1)
If k >= \ Then k = Chr(Asc(k) + 32) End If
c = 1: continue = True Do While ③
If k = Mid(m, c, 1) Then continue = False End If c = c + 1 Loop
④ Next i
Text2.Text = result End Sub
程序①处的代码是 程序②处的代码是 程序③处的代码是
程序④处的代码是
2016学年第二学期浙江“七彩阳光”新高考研究联盟期初联考
高三年级技术学科 参考答案
一、选择题 题号 答案
二、非选择题
13. （1） =B5/$B$4 （1分） C4单元格为0（除数为0） （1分）
（2） A3，A5：A8，C3，C5：C8 （1分）
柱型图 （1分）
14. （1）caption （1分）
（2）① x\\10 mod 10 （2分） 1 A 2 C 3 B 4 D 5 C 6 D 7 B 8 C 9 D 10 C 11 A 12 A ② m=a*100+b*10+c （2分） 15. （1）① -10 （2分）
（2） 5或4.9 843KB—882KB （2分）
（3） 关键 B （2分） （4） 6 （1分）
（5）on(release){fscommand(“quit”);}或on(press){fscommand(“quit”);}
（1分） 16. ① m(1) = Int(Rnd * (b - a + 1)) + a （1分） ② temp = m(i) （1分）
③ m(j + 1) = temp （2分） 17. ① t = x - Asc(\（1分） ② flag(t) = True （1分）
③ countinue = True 或countinue （1分） ④ result = result + Mid(m2, c - 1, 1) （2分）