问答题

在名称为Form1的窗体上添加一个名称为Command1的命令按钮，其标题为“移动本按钮”，如图所示。要求编写适当的事件过程，使得程序运行时，每单击按钮一次，按钮向左移动100。

要求：程序中不得使用变量，事件过程中只能写入一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。

【参考答案】

Private Sub Command1_Click()
Commsnd1.Left=Command1.Lef......

(↓↓↓ 点击下方‘点击查看答案’看完整答案、解析 ↓↓↓)

<上一题目录下一题>

热门试题

填空题

考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个文本框，名称分别为Text1、Text2，都可以多行显示。还有三个命令按钮，名称分别为C1、C2、C3，标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中的50个整数读到数组中，并在Text1中显示出来；“排序”按钮的功能是对这50个数按升序排序，并显示在Text2中；“存盘”按钮的功能是把排好序的50个数存到考生目录下的out5.dat文件中，如图所示。在窗体中已经给出了全部控件和部分程序代码，要求阅读程序并去掉程序中的注释符，把程序中的改为正确的内容，并编写“排序”按钮的Click事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后将修改后的文件按原文件名存盘。 Dim a(50) As Integer Private Sub C1 Click() Dim k As Integer, ch As String Open in5.dat For Input As #1 ch ＝ For k ＝ 1 To 50 Input #1,？ ch ＝ ch ＋ Str(a(k)) ＋ Next k Close #1 Text1.Text ＝？ End Sub Private Sub C2 Click() End Sub Private Sub C3 Click() Open out5.dat For Output As #1 Print #1, Text2.Text Close #1 End Sub

问答题

在考生文件夹下有一个工程文件sjt4.vbp，其窗体如图所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下而的文本框中。加密的方法为：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字n，将“明文”中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”，“Z”后面的字母认为是“A”)，如图所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的改为正确的内容。注意：不得修改程序中的其他部分和控件的属性。最后将修改后的文件按原文件名存盘。 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). ? ) End If Next k m ＝ Len(Text1.Text) a ＝ For k ＝ 1 To ? c ＝ Mid$(Text1.Text, ? , 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 ？＝ a ＋ c Next k Text2.Text ＝ a End Sub

相关试题