2016年浙江高考技术选考加试题预测ASCII内码与VB程序.docxVIP

65 65 0 技术选考习题 命题：杜宗飞 ASCII 内码与 行政班： 教学班： 一、 VB 中的内码转换函数 Asc(X) 字符转换为 ASCII Chr(X) ASCII 转换为字符 VB 程序 姓名： 学号： Asc(A) Chr(48) 字符内码： A 内码为 65， a 内码为 97， 0 内码为 48。 这里数据都为十进制。 ①按照字母表顺序，内码依次递增， A 内码为 65、 B 内码为 66、 C 内码为 67…… Z 内 码为 90。 a 内码为 97、 b 内码为 98、 c 内码为 99…… z 内码为 122。 ②阿拉伯字符， 0 内码为 48、 1 内码为 49、…… 9 内码为 57。 注意：计算机里面，字符 0 和数值 0 是不一样的。 一、写出下面表达式的值 表达式 Asc(B) Asc(1) Asc(b) Asc(Chr(99)) 表达式值 表达式 表达式值 Asc(A)-64 Asc(C)- Asc(A)+1 Chr(Asc(a)-32) Chr(Asc(9)-7) 二、阅读程序填空 Dim x As String x = A Text1.Text = Chr(Asc(x) + 3) ①上面程序运行后， 文本框显示的是 ______ Text1.Text =Str(Asc(e) - Asc(E)) ②上面程序运行后， 文本框显示的是 ______ Dim x As String x = 0 Text1.Text = Chr(Asc(x) + 3) ③上面程序运行后， 文本框显示的是 ______ Dim x As String, y As String x = abc123 y = Mid(x, 2, 1) Text1.Text = Chr(Asc(y) - 32) ④程序运行后， 文本框显示的内容是 ______ Dim x As String, y As String x = DCBA y = Mid(x, 4, 1) Text1.Text = Chr(Asc(y) + 32) ⑤程序运行后， 文本框显示的内容是 ______ Text1.Text = For i = 49 To 53 Text1.Text = Text1.Text + Chr(i) Next i ⑥程序运行后， 文本框显示的内容是 ______ Dim x As String, y As String Dim a(1 To 5) As Integer Dim sum As Integer x = ABCDE For i = 1 To Len(x) ch = Mid(x, i, 1) a(Asc(ch) - 64) = Asc(ch) Next i sum = a(1) + a(3) Text1.Text = Str(sum) ⑦程序运行后， 文本框显示的内容是 ______ Dim x As String, y As String Dim a(1 To 5) As Integer Dim sum As Integer x = 12345 For i = 1 To Len(x) ch = Mid(x, i, 1) a(Asc(ch) - 48) = Asc(ch) - 48 Next i sum = 0 For i = 1 To 5 sum = sum + a(i) Next i Text1.Text = Str(sum) ⑧程序运行后， 文本框显示的内容是 ______ 1 图 图 b （填属性名）属性。 For i = 2 To 10 If a(i) k Then k = a(i) maxa = i End If Next i k = b(1) maxb = 1 For i = 2 To 26 If Then k = b(i) maxb = i End If 技术选考习题 命题：杜宗飞 【加试题】小明编写统计字符串中出现最多的字母和数字的程序。程序运行如下：在 文本框 Text1 中输入一个仅包含字母和数字的字符串。单击按钮 Command1 后，在标 签 Labe1 上显示