Visual Basic 0共有3个版本,按功能从弱到强的顺序排列应是A.学习版、专业版和工程版B.学习版、工程
Visual Basic 0共有3个版本,按功能从弱到强的顺序排列应是
A.学习版、专业版和工程版
B.学习版、工程版和专业版
C.学习版、专业版和企业版
D.学习版、企业版和专业版
Visual Basic 0共有3个版本,按功能从弱到强的顺序排列应是
A.学习版、专业版和工程版
B.学习版、工程版和专业版
C.学习版、专业版和企业版
D.学习版、企业版和专业版
Microsoft Visual Basic 6.0包括三种版本,其中不包括 ______。
A.通用版
B.企业版
C.学习版
D.专业版
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
请根据以下各小题的要求设计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。
执行以下程序段后,变量c$的值为 a$="Visual Basic Programing"0 b$="Quick" c$=b$ & UCase(Mid$ (a$,7,6))& Right$ (aS,11)
A.Visual BASIC Programing
B.Quick Basic Programing
C.QUICK Basic Programing
D.Quick BASIC Programing
以下属于Visual Basic合法的数组元素是()。
A.x8
B.x[8]
C.s(0)
D.v[8]
A."989" >"99"(说明:字符串比较首字符的ascii码,其中数字<大写字母<小写字母;首字符相同,则比较次字符……)
B.Instr ("Visual basic", "b")>0
C.2000 >1997
D."3" >"2"