Visual Basic集成的主窗口中不包括A.属性窗口B.标题栏C.菜单栏D.工具栏
Visual Basic集成的主窗口中不包括
A.属性窗口
B.标题栏
C.菜单栏
D.工具栏
Visual Basic集成的主窗口中不包括
A.属性窗口
B.标题栏
C.菜单栏
D.工具栏
在Visual:Basic的立即窗口内输入以下语句: X=65 <CR> Print Chr$(x) <CR> 在窗口中显示的结果是
A.65
B.A
C.a
D.x
下列可以启动Visual Basic的方法是
A.打开“我的电脑”,找到存放Visual Basic所在系统文件的硬盘及文件夹,双击“VB6.exe”图标
B.在DOS窗口中,键入Visual Basic的路径,执行Visual Basic可执行文件
C.利用“开始”菜单中的“程序”命令可启动Visual Basic
D.A和C
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上画出包含三个命令按钮的控件数组,名称为cmdl,下标分别为0、1、2,Caption分别为“开始”、“停止”和“退出”,如图3(a)所示。通过属性窗口设置各命令按钮的属性,使得程序开始运行时,“停止”按钮不可见,“退出”按钮不可用,如图3(b) 所示。 注意:存盘时,将文件保存至考生文件夹下,且窗体文件名为sjt1.frm,工程文件名为sjt1.vbp。(2)在名称为Form1的窗体上画两个名称分别为Command1和Command2、标题分别为“打开”和“保存”的俞令按钮,和一个名称为CD1的通用对话框,如图4所示。请在属性窗口中设置CD1的属性,使得打开通用对话框时,其初始路径是“C:\”。再编写适当的事件过程,使得运行程序,分别单击“打开”或“保存”按钮时,相应地出现“打开”或“保存”对话框。要求程序中不得使用变量,每个事件过程中只能写一条语句。 注意:存盘时,将文件保存至考生文件夹下,且窗体文件名为sjt2.frm,工程文件名为sjt2.vbp。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个垂直滚动条,请在属性窗口中把它的名称设置为VS1,Max属性设置为50,Min属性设置为0,Value属性设置为50。程序运行后,滚动块位于滚动条最下端,如图52-1所示,如果单击滚动条之外的窗体部分,则滚动块跳到最上端。
图52-1
注意:只能直接为相应的属性赋值,不得使用变量。保存时必须存放在考生文件夹下,窗体文件名为sj1.frm,工程文件名为sj1.vbp 。
(2)在名称为Form1的窗体中建立一个标签,名称为Lable1,在标签上显示"编程语言"并设置为四号宋体;再建立3个复选框,名称分别为Check1、Check2和Check3,标题分别为"C++"、"Basic"和"JAVA",字体大小均为四号宋体,加粗,其中"JAVA"被禁用,如图52-2所示。
图52-2
注意:保存时必须存放在考生文件夹下,窗体文件名为sj2.frm,工程文件名为sj2.vbp。
Visual Basic集成环境的大部分窗口都可以从主菜单项()的下拉菜单中找到相应的打开命令。
A.编辑
B.视图
C.格式
D.调式
阅读以下应用说明及Visual Basic程序代码,将应填入______处的语句写在答题纸的对应栏内。
[应用说明9]
本应用程序的运行窗口如图2-6所示。
窗口中的3个文本框和2个按钮,名称分别为Txt_salary,Txt_base,Txt_tax,Cmd compute和Cmd_quit。运行时,文本框Txt_base中存放的是免税金额基数(应扣除的基本费用)。当用户在文本框Txt_salary中输入月收入(工资或薪金)并单击“计算”按钮 Cmd_compute后,Txt_tax框中就显示计算所得的应纳税额。文本框Txt_base和Txt_ tax在运行时不接受用户输入,Txt_base的内容以灰色显示。
个人工资(或薪金)所得税是按照超额累进的税率来征收的,其计算方法参考试题8。
[程序代码9]
Option Base 0
Private Sub Cmd_compute_Click()
Dim paylevel,taxPrate
paylevel=Array(0,500,2000,5000,20000,40000,60000,80000,100000,1000001)
taxPrate=Array(5,10,15,20,25,30,35,40,45)
K=(1)
S=0
if(K>0) Then
For j=1 TO 9
If (2) Then
S=S+(paylevel(j)-paylevel(j-1)) * taxPrate(j-1)/100
Else
S=S+((3) ) * taxPrate(j-1)/100
Exit For
End If
Next j
End If
(4)=Str$(S)
End Sub
Private Sub Cmd_quit_Click()
End
End Sub
Private Sub Form_Load()
Txt_tax.Text=“”
Txt_salary.Text=“”
Txt_base.Text=800
Txt_tax.Locked=True
Txt_base.Enabled=(5)
End Sub