第1题
第2题
1.在考生文件夹下打开工程sjt3.vbp,在窗体Form1上建立一个名称为Text1的文本框和一个名称为Command1,标题为“计算”的命令按钮(如图2—1所示)。程序运行后,单击“计算”命令按钮,通过在对话框输入整数10,放入整形变量a中,然后计算a!,(提示:运算结果应放入Long型变量中),在文本框中显示结果,并把结果存入文件out3.txt中。在考生文件夹中有一个标准模块mode.bas,该模块中提供了保存文件的过程putdata,考生可以直接调用。
注意:保存时必须存放在考生文件夹下,窗体文件名为sjt3.frm,工程文件名为sjt3.vbp。
2.在名称为Form1的窗体上画一个驱动器列表框,其名称为Driver1,再画一个目录列表框,其名称为Dir1;然后添加一个文件列表框,名称为File1。请设置适当的控件属性和编写适当的事件过程,使得在运行时,实现驱动器列表框、目录列表框和文件列表框的同步操作,且在列表框中只显示后缀名为exe的文件;如果双击文件列表框中的文件,则执行该文件(如图2—2所示)。程序中不得使用任何变量。已知;可以用Shell函数来运行可执行文件。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt4.vbp,窗体文件名为sjt4.frm。
第4题
【说明】
本应用程序是一个乘法计算器,其运行窗口如图2所示。
在该界面中,“被乘数”、“乘数”以及“积”等文字为标签,相应的3个输入输出数据框为文本框,此外还有3个命令按钮。用户在“被乘数”和“乘数”相应的文本框内输入数据,再单击“运算”按钮,便能在“积”对应的文本框中看到相乘的结果;当用户单击“清除”按钮时,就会清除各文本框中的数据;当用户单击“关闭”按钮时就会关闭该窗口并退出应用程序。用户不能在“积”对应的文本框中输入数据。
【属性设置】
各个对象、有关的属性名以及需要修改的属性值设计如下:
【程序】
Private Sub cmdMultiply_Click( )
txt3. Text =Trim(Str$ ((3)) '加法运算获得和数
End Sub
Private Sub (4) (
txt1. Text=" " '空字符串赋值给文本框txt1的内容
txt2. Text=" " '空字符串赋值给文本框txt2的内容
txt3. Text=" " '空字符串赋值给文本框txt3的内容
End Sub
Private Sub cmdClose_Click( )
(5) '退出应用程序
End Sub
第6题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在Form1的窗体上画一个名称为Pic1的图片框,然后建立一个主菜单,标题为"命令",名称为Com,该菜单有两个子菜单,其标题分别为"输出"和"删除",名称分别为Pri和Del,编写适当的事件过程。程序运行后,如果单击"命令"菜单中的"输出"命令,则将图片框显示出来;如果单击"删除"命令,则隐藏图片框。程序的运行情况如图27-1和图27-2所示。
图27-1
图27-2
注意:存盘时必须存放在考生文件夹下,工程文件名为sj1.vbp,窗体文件名为sj1.frm。程序中不得使用任何变量。
(2)在窗体上画一个列表框,名称为List1,通过"属性"窗口向列表框中添加3个项目,分别为"足球"、"篮球"和"排球"。编写适当的事件过程,使程序运行后,每次单击列表框中的任何一项,则总在最后面添加一项"体育活动"。程序运行界面和运行效果分别如图27-3和图27-4所示。
图27-3
图27-4
注意:存盘时必须存放在考生文件夹下,工程文件名为sj2.vbp,窗体文件名为sj2.frm。程序中不得使用任何变量。
第7题
【说明】
在Visual Basic程序中,设计一个“个人所得税计算器”,其应用程序的运行窗口如图6-16所示。
窗口中的3个文本框和两个按钮的名称分别为Txt_salary、Txt_base、TxL_tax、Cmd_compute和 Cmd_quit。“个人所得税计算器”程序运行时,文本框Txt_base中存放的是免税金额基数(应扣除的基本费用)。当用户在文本框Txt_salary中输入月收入(工资或薪金)并单击【计算】按钮(Cmd_compute后,Txt_tax框中就显示计算所得的应纳税额。文本框Txt_base和Txt_tax在运行时不接受用户输入,Txt_base的内容以灰色显示。
个人工资(或薪金)所得税是按照超额累进的税率来征收的,其计算方法如下:以每月收入总额减去免税金额基数后的余额作为该月的月应纳税所得额,再将应纳税所得额按相应级数采用相应的税率进行累进计算。目前的免税金额基数为1 600元,税率如表6-15所示。
(注:本表所称全月应纳税所得额是指依照本法第六条的规定,以每月收入额减除费用1600元后的余额或者减除附加减除费用后的余额)
设某个人的全月应纳税所得额为M(元),用下面的公式计算其应缴纳的个人所得税额S(元):
若0<M≤500,则S=M×5%;
若500<M≤2000,则S=500×5%+(M-500)×10%;
若2000<M≤5000,则S=500×5%+1500×10%+(M-2000)×15%;
若5000<M≤20000,则S=500×5%+1500×10%+3000×15%+(M-5000)×20%;
假设某程序员2008年5月份工资总额为4700元,减去1600元后,应纳税所得额为3100元,其应缴纳的个人所得税额为500×5%+1500×10%+1100×15%=340元。
在开发过程中,需要编写的程序代码如下。
【Visual Bask程序】
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)
M=(1)
S = 0
If (M>0) Then
For j =1 To 9
If (2) Then
s=s+(paylevel(j)-paylevel(j-1))*taxPrate(j-1)/100
Else
(3)
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 = 1600
Txt_tax.Locked = True
Txt_base.Enabled =(5)
End Sub
请根据【说明】信息和如图6-16的显示效果,将【Visual Basic程序】中(1)~(5)空缺处的程序语句填写完整。
第9题
(1)在名称为Form1的窗体上创建两个名称分别为Option1和Option2,标签分别为“教授”和“研究员”的单选按钮,再建立一个名称为Label1的标签,实现如下功能:当选中“教授”时,标签上显示“博士学位以上”,如果选中“研究员”,则标签上显示“硕士学位以上”,结果如图67-1所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sj1.vbp,窗体文件名为sj1.frm。
(2)在名称为Form1的窗体上画两个名称分别为Text1和Text2、内容都为空的文本框,再画一个命令按钮,其名称为Command1、标题为“判断”。编写适当的事件过程,要求程序运行后,如果在Text1中输入一个数,单击命令按钮Command1,判断输入的是否为偶数,如图67-2所示。要求:不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名为sj2.vbp,窗体文件名为sj2.frm。
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!