2. 计算机
  3. 在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，该程序是不完整的。在窗体上有一个文本框、两个单选按钮及两个命令按钮。文本框的名称为Text1。内空；两个命令按钮的名称分别为Command1与Command2、标题分别为“读取”与“加密”；单

在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，该程序是不完整的。在窗体上有一个文本框、两个单选按钮及两个命令按钮。文本框的名称为Text1。内空；两个命令按钮的名称分别为Command1与Command2、标题分别为“读取”与“加密”；单

admin2012-10-09  32
问题 在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，该程序是不完整的。在窗体上有一个文本框、两个单选按钮及两个命令按钮。文本框的名称为Text1。内空；两个命令按钮的名称分别为Command1与Command2、标题分别为“读取”与“加密”；单选按钮的名称分别为Optionl和Option2，标题分别为“3”和“5”。单击“读取”，程序将读入考生文件夹下的文本文件in5．txt，单击“加密”，加密过的文本显示在Text1中。根据单选按钮中的不同的数字，加密的方法不同。例如选择Optionl．则逐一把读入的字符串改为它前面的第3个字母。程序运行时效果如图5—5所示。

    注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名：和文件夹。
选项
答案单选按钮组常用于提供唯一选择，Value属性值决定每个单选按钮的选中状态：False表示未选、True表示选中，Caption属性用于设置或返回单选按钮的标题。Chr函数返回String，其中包含有与指定的字符代码相关的字符。其语法格式为：Chr(charcode)。charcode为必要参数，是一个用来识别某字符的Long函数。Mid$(字符串，起始位置[，个数])函数用于从字符串指定位置开始的含指定个数字符的字符串；String(个数，字符)函数用于返回含指定个数字符的字符串；Asc(字符串)函数用于返回字符串首字符的ASCII码值。 根据题意，将一个文本框控件、两个单选按钮控件和两个命令按钮添加到窗体中，文本框的名称为Textl、Text属性为空，单选按钮的名称分别为Optionl和Option2，Caption属性分别为“3”和“5”，命令按钮的名称为Commandl和Command2，Caption属性分别为“读取”和“加密”。双击Commandl进入代码窗口，编写如下代码： Private Sub Command1_Click() Dim str As String Dim tmp As String Dim hum As Integer str="" Open"App．Path&＼in5．txt"For Input As#1 ’打开文件准备读取 While EOF(1)=False ’判断是否读到文件尾 Input#1，tmp’读取文件 str=str+trap ’将渎取的文本连接起来放入str中 Wend Close#l’关闭文件 Textl．Text str’在Textl中显示str End Sub Private Sub Command2_Click() Dim str As String Dim trap As String Dim i As Integer Dim ind As Integer If Optionl．Value=True Then ind=3’当选中Optionl时，则移3位 ElseIf Option2．Value=True Then ind=5’当选中Option2时，则移5位 End If str="" For i=1 To Len(Textl．Text) tmp=Mid(Text1．Text，i，1) ’一个一个读入字符(Mid函数) If Asc(tmp)<=Asc("Z")And Asc(trap)>=Asc("A")Then If Asc(trap)<=Asc("z")And Asc(tmp)>=Asc("a")Then tmp=Chr((Asc(tmp)-ind-Asc("a")+26)Mod 26+Asc("a")) Else’当输入为大写字母时 tmp=Chr((Asc(tmp)-ind-Asc("A")+26)Mod 26+Asc("A")) End If End If str=str +tmp ’将字符串连起来 Next i Textl．Text=str ’在Textl中将加密后的字符串显示出来 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/V3hp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)