试卷详情
-
二级VISUAL BASIC机试-118
-
[简答题]完成下列问题:
在名称为Form1的窗体上画一个名称为Command1的命令按钮,标题为“打开文件”,再画一个名称为CD1的通用对话框。程序运行后,如果单击命令按钮,则弹出打开文件对话框。请按下列要求设置属性和编写代码:
①设置适当的属性,使用话框的标题为“打开文件”。
②设置适当的属性,使对话框的“文件类型”下拉列表框中有2个选项:“文本文件”、“所有文件”(如图1所示),默认的类型是“所有文件”。
[*]
③编写命令按钮的事件过程,使得单击按钮可以弹出打开文件对话框。
要求:程序中不得使用变量,事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
-
[简答题]完成下列问题:
在考生文件夹下有一个工程文件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
Text2.Text=a
End Sub
-
[简答题]完成下列问题:
在名称为Form1的窗体上画一个名称为Label1、标题为“添加项目:”的标签;画一个名称为Text1的文本框,其中没有初始内容;画一个名称为Combo1的下拉列表框,并通过属性窗口输入若干项目(不少于3个,内容任意);再画两个命令按钮,名称分别为Command1、Command2,标题分别为“添加”、“统计”。运行时,向Text1中输入字符,单击“添加”按钮后,则Text1中的内容作为一个列表项被添加到组合框的列表中;单击“统计”按钮,则在窗体上显示组合框中列表项的个数,如图3所示。请编写两个命令按钮的Click事件过程。
[*]
注意:程序中不得使用变量,也不能使用循环。存盘时必须存放在考生文件夹下,工程文件名为sjt3.vbp,窗体文件名为sjt3.frm。
-
[简答题]完成下列问题:
在名称为Form1的窗体上画一个命令按钮,名称为Command1,其标题为“移动本按钮”,如图2所示。
[*]
要求编写适当的事件过程,使得程序运行时,每单击按钮一次,按钮向左移动100。
要求:程序中不得使用变量,事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。