ss＝ss＋Code2Char(b1)＋Code2Char(b2) Next i Text2.Text＝ss End Sub
′十进制值转换为加密字符的函数 Function Code2Char(c As Integer) As String Dim s As String s＝“IlikeCHNpostcard” Code2Char＝__②__ End Function
(2)若将“密码表”中值为“0”对应的加密字符“I”改成“i”，加密后的密文可能无法解密，原因是__________________________________________________________ _____________________________________________________________________ _____________________________________________________________________。
解析 本题考查过程和自定义函数，常用标准函数等。(1)根据题意，对文本框Text1中输入的字符串逐个字符加密，需算出字符串的长度n，作为循环变量的终值，即n＝Len(s)。加密后的字符串(密文)存储于字符串变量ss中。②自定义函数Code2Char( )中，根据密码表对应的每个十进制数转换为1个加密字符，第一个加密字符对应十进制值为0，故当十进制数值为6时，对应的字符H是第6＋1个字符位置，即当十进制数值为c时，对应的字符是第c＋1个字符位置，用取子串函数Mid(s，c＋1，1)。(2)若密码表中值为0对应的加密字符I改为i，造成同时对应加密字符i，当解密时，加密字符i对应的十进制有两个值0和2，不唯一而出错，从而无法解密。
答案 (1)①n＝Len(s)[或n＝Len(Text1.Text)] ②Mid(s，c＋1，1)
(2)加密字符i对应两个值0，2 【易错易误】
过程：将程序划分为一个个较小的逻辑单元，每个逻辑单元构成一个过程。过程中的代码可以被重复地调用。过程分成两类：事件处理过程和通用过程。 事件处理过程：
Sub事件处理过程名(参数表) 语句块 End Sub
VB预设的事件有：Click(单击)、DblClick(双击)、KeyPress(按键)、Load(装载)、Change(改变)等。
VB的一些常用对象上的常见事件的标准名有：
文本框Text：Text1_Click、Text1_DblClick、Text1_KeyPress、Text1_Change 命令按钮Command：Command1_Click 标签Label：Label1_Click 窗体Form：Form_Load(窗体装载)
1.字符串变量a的值为“Hello，world！”，下列Visual Basic表达式的值是“world”的是( ) A.Len(a，6，5) C.Mid(a，7，4)
B.Mid(a，6，5) D.Mid(a，7，5)
解析 Mid(X，n，k)的作用是取字符串X中第n个字符起长度为k的子串。Mid(a，7，5)的功能是取字符串变量“Hello，world！”中第7个字符“w”起长度为5的子串，即“world”。 答案 D
2.运行如下VB程序： Private Sub Command1_Click( ) Dim x As Integer Dim y As String
x＝Val(Text1.Text) If x＞＝95 Then y＝”非常满意” ElseIf x＞＝80 Then y＝”满意” ElseIf x＞＝60 Then y＝”基本满意” Else y＝”不满意” End If
Label1.Caption＝y End Sub
在文本框Text1中输入50，单击命令按钮Command1后，在标签Label1中显示( ) A.非常满意 C.基本满意
B.满意 D.不满意
解析 当x＝50时，执行y＝“不满意”。 答案 D
3.某对象的一个事件过程代码如下： Private Sub Obj_Click( ) s＝s＋1
Text1.Text＝Str(s) End Sub
下列说法正确的是( ) A.该过程的过程名为“Obj” B.该对象的类名为“Sub” C.该对象的对象名为“Obj_Click” D.该事件是一个“单击”事件
解析 由题中可以看出是一个“单击”事件。
答案 D
4.窗体装载事件过程可以对程序进行初始化。VB窗体装载事件过程的名称是( )
A.Command1_Click C.Form_Load 答案 C
5.下面VB程序的功能是判断一个数是否为一个完全平方数。在文本框Text1中输入一个整数，单击按钮对象Command1，如果此数是一个完全平方数，则在标签对象Label1中显示“Yes”，否则显示“No”。
所谓完全平方数，是指一个数如果是另一个整数的完全平方，那么我们就称这个数为完全平方数，也叫平方数。例如，1、4、9、16等是完全平方数。 Function judge(x) As Boolean judge＝False
If x＝Sqr(x)^2 Then ____①____ End Function
Private Sub Command1_Click( ) Dim x As Integer x＝Val(Text1.Text) If judge(x) Then Label1.Caption＝”Yes” Else ②____ End If End Sub
为实现上述功能，请分别在画线①和画线②处填入合适的语句。
画线①处应填入的语句为_______________________________________________ _____________________________________________________________________ 画线②处应填入的语句为_______________________________________________ _____________________________________________________________________
B.Form_Keypress D.Form_DblClick
相关推荐：
loading