您所在的当前位置: 计算机等级考试题库   >  
BASIC题库  
  >  [问答题] 完成下列问题: 在考生文件夹下有一个工程文件sjt4.vbp,其窗体如图4所示。该程序用来对在上面的文本框中输入的项字母串(称为“明文”)加密,加密结果(称为“密文”)显示在下面的文本框中。加密的方法是:选中一个单选按钮,单击“加密”按钮后,根据选中的单选按钮后面的数字n,把明文中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”,“Z”后面的字母认为是“A”),如图4所示。窗体中已经给出了所有控件和程序,但程序不完整,请在程序中的横线处填写正确的内容。 [*] 注意:不能修改程序中的其他部分和控件属性,最后把修改后的文件按原文件名存盘。 [题目提供的源程序] Private Sub Command1_Click() Dim n As Integer, k As Integer, m As Integer Dim c As String, a As String For k=0 To 2 If Op1(k).Value Then n=Val(Op1(k). (1) End If Next k m=Len(Text1.Text) a="" For k=1 To (2) c=Mid $ (Text1.Text, (3) ,1) c=String (1,Asc(c)+n) If c>"z" Or c>"Z" And c<"a" Then c=String(1,Asc(c)-26) End If (4) =a+c Next k < 1=""> <>
问题:
发布时间:2022-07-01

[问答题] 完成下列问题:
在考生文件夹下有一个工程文件sjt4.vbp,其窗体如图4所示。该程序用来对在上面的文本框中输入的项字母串(称为“明文”)加密,加密结果(称为“密文”)显示在下面的文本框中。加密的方法是:选中一个单选按钮,单击“加密”按钮后,根据选中的单选按钮后面的数字n,把明文中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”,“Z”后面的字母认为是“A”),如图4所示。窗体中已经给出了所有控件和程序,但程序不完整,请在程序中的横线处填写正确的内容。
[*]
注意:不能修改程序中的其他部分和控件属性,最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Private Sub Command1_Click()
Dim n As Integer, k As Integer, m As Integer
Dim c As String, a As String
For k=0 To 2
If Op1(k).Value Then
n=Val(Op1(k). (1)
End If
Next k
m=Len(Text1.Text)
a=""
For k=1 To (2)
c=Mid $ (Text1.Text, (3) ,1)
c=String (1,Asc(c)+n)
If c>"z" Or c>"Z" And c<"a" Then
c=String(1,Asc(c)-26)
End If
(4) =a+c
Next k < 1=""> <>

可能感兴趣的题目:

1

[填空题] 类Test定义如下:
class Test public static void main(string args[])

String s1="abc";
String s2=new String(s1);
if(s1==s2)
System.out.println("s1==s2";
if(s1.equals(s2))
System.out.println("s1.equals(s2)");
那么程序的执行结果为: 【15】

2

[填空题] 下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下面的程序。
首先在窗体层定义如下变量:
Dim PaintStart As Boolean
编写如下事件过程:
Private Sub Form_Load ( )
DrawWidth = 2
ForeColor = vbGreen
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PaintStart = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If PaintStart Then
PSet (X, Y)
End If
End Sub
Private Sub Form_MouseUp (Button As Integer, Shift As Integer, _
X As Single, Y As Single)
______
End Sub
Private Sub Form_DblClick( )
Cls
End Sub

3

[单项选择题] 乙酰水杨酸片的处方中:润滑剂是().


A.乙酰水杨酸400g 
B.枸椽酸80g 
C.10%淀粉浆24g 
D.干淀粉23g 
E.滑石粉3g

4

[填空题] 下列程序的功能是:将数据1,2,…,8写入顺序文件Num.txt中,请补充完整。
Private Sub Form_Click()
Dim i As Integer
Open "Num.txt" For Output As#1
For i=1 To 8
______
Next
Close #1
End Sub

5

[单项选择题] 以下不具有Picture属性的对象是


A.窗体
B.图片框
C.图像框
D.文本框

6

[填空题] 为了把一个Visual Basic应用程序装入内存,只要装入______文件即可。

7

[单项选择题] Single(单精度)型数据占( )个字节。


A.2
B.4
C.8
D.10

8

[单项选择题] 设有如下关系表,则下列操作中,正确的是( )。
R ABC 112 223 S


A. T=R∩S
B. T=R∪S
C. T=R×S
D. T=R/S

9

[填空题] 在Java中AWT和Swing组件,一般来讲在应用程序中用到的组件是【 】。

10

[单项选择题] 对下列二叉树 进行中序遍历的结果是( )。


A.ACBDFEG
B.ACBDFGE
C.ABDCGEF
D.FCADBEG