把窗体的KeyPreview属性设置为True,然后编写如下过程: Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+2) End Sub 程序运行后,如果按“A”键,贝愉出结果为 ______。
设窗体上有名称为Optl的单选按钮,且程序中有语句: If Optl.Value=True Then 下面语句中与该语句不等价的是( )。
在窗体上画一个文本框,然后编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char)) TextText=String(6, KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“a”,则文本框中显示的内容为______。
窗体上有一个名称为Textl的文本框和一个名称为Commandl的命令按钮,要求程序运行时,单击命令按钮(如图所示),就可以把文本框中的内容写到文件Out.txt中,每次写入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是()。
在名为Form1的窗体上建立一个文本框(名称为Text1,MultiLine属性为True,SerollBars属性为2)和两个命令按钮(名称分别为Cmd1和Cmd2,标题分别为Read和Save),如下图所示。要求程序运行后,如果单击Read按钮则读入in4.txt文件中的100个整数,放入一个数组中(数组下界为1);如果单击Save按钮,则挑出100个整数中的所有偶数,在文本框Text1中显示出来,并把所有偶数之和存入考生文件夹中的文件out4.txt中。在考生文件夹下有标准模块model.bas,其中putdata过程可以把一个整型数存入out4.txt文件,考生可以把该模块文件添加到自己的工程中。注意:程序中对文件的操作统一使用相对路径:文件必须存放在考生文件夹中,窗体文件名为exeeise4.frm,工程文件名为execise4.vbp,结果存入out4.txt文件,否则没有成绩;
(1)在考生文件夹下有一个工程文件sj3.vbp,相应的窗体文件为sj3.frm。其功能是产生40个0~800的随机整数,放入一个数组中,然后输出其中的最小值。程序运行后,单击名称为Commandl的命令按钮,标题为“输出最小值”,即可求出其最小值,并在Textl文本框中显示出来,如图33—4所示。这个程序不完整,请把它补充完整,并能正确运行。注意:去掉程序中的注释符“'”,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sj4.vbp,相应的窗体文件为sj4.frm,在窗体上有一个命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出100~800范围内能被3整除和能被5整除的整数的个数,并在文本框中显示出来,如图33—5所示。在窗体的代码窗口中,已给出了部分程序。注意:请勿改动程序中的其他任何内容,只将“?”处的代码编写完整。最后把修改后的文件按原文件名存盘。
(1)在窗体上绘制一个名称为Textl的文本框,然后建立一个主菜单,标题为“操作”,名称为Op。该菜单有两个子菜单,其标题分别为“显示’’和“退出”,其名称分别为Dis和Exit,编写适当的事件过程。程序运行后,如果单击“操作”菜单中的“显示’’命令,则在文本框中显示“计算机考试”;如果单击“退出”命令,则程序结束。程序的运行情况如图4—1所示。注意:保存时必须存放在考生文件夹下,窗体文件名为sj1.frm,工程文件名为sj1.vbp。(2)在名为Form1的窗体上绘制一个名为Cmd1、标题为“显示”的命令按钮。编写适当的事件过程,使程序运行后,若单击“显示”命令按钮,则在窗体上显示“计算机等级考试VisualBasic课程”。程序运行情况如图4—2所示。注意:不要使用任何变量,直接显示字符串;文件必须存放在考生文件夹中,窗体文件名为sj2.frm,工程文件名为sj2.vbp。
一个采用顺序存储结构的栈,其中top为栈顶指针,若以地址高端作栈顶,地址低端作栈底,那么进行进栈操作时,对top的操作为( )。
窗体上有一个图片控件和一个按钮控件,下列程序执行的结果是( )。 Private Sub Commandl_Click() Picturel.Picture=LoadPicture(“c:\picture.jpg”) Picturel.Cls Picturel.Print“picture”. End Sub
关于菜单设计,下列叙述中错误的是( )。
操作题(1)在名称为 Form1 的窗体上添加一个标签, 其名称为 Label1
应用题在窗体上建立三个菜单(名称分别为 Read、 Calc 和 Save
单选题程序启动未执行任何操作前,为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为Ture,这个属性是______。
单选题在窗体上画一个命令按钮和两个文本框,其名称分别为Command1、Text1和Text2,然后编写如下程序: Dim S1 As String,S2 As String Private Sub Form_Load() Text1.Text="" Text2.Text="" End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) S2=S2 & Chr(KeyCode) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) S1=S1 & Chr(KeyAscii) End Sub Private Sub Command1_Click() Text1.Text=S2 Text2.Text=S1 S1="" S2="" End Sub 程序运行时,在Text1中输入abc后单击命令按钮,在文本框Text1和Text2中显示的内容分别为
单选题设有如下通用过程: Public Sub Fun(a() As Integer, x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程: Private Sub Command1_Click() Dim arr(5)As Integer, n As Integer For i=1 To 5 art(i)=i+i Next Fun arr, n Text1. Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的内容是______。
单选题现有如下一段程序: x=UCase(InputBox("输入:")) Select Case x Case "A" To "C" Print "考核通过!" Case "D" Print "考核不通过 !" Case Else Print "输入数据不合法!" End SelectEnd Sub执行程序,在输入框中输入字母"B",则以下叙述中正确的是( )。
单选题下列关于顺序文件的描述中,正确的是______。
A.文件的组织与数据写入的顺序无关
B.主要的优点是占空间少,且容易实现记录的增减操作
C.每条记录的长度是固定的
D.不能像随机文件一样灵活地存取数据
单选题假定有如下的窗体事件过程:
Private Sub Form_Click()
a $="MicrosoftVisual Basic"
b $=Right(a $, 5)
c $=Mid(a $, 1,9)
MsgBox a $, 34, b $, c $, 5
End Sub
程序运行后,单击窗体,则在弹出的信息框的标题栏中显示的信息是______。
单选题窗体在屏幕上显示后有 ______ 种方法可以清除它。
单选题编写如下事件过程: Private Sub Form Activate() Dim score(1 To 3) As Integer Dim i As Integer,t As Variant For i=3 To 1 Step-l score(i)=2*i Next i For Each t In score Print t; Next End Sub 程序运行后窗体上显示( )。