202022学年上学期高职班VB作业练习五

2022-2022学年上学期高职班VB作业练习五一、单选选择题（在每小题的四个备选答案中，选出一个正确的答案，并将正确答案的序号填在答题卡的括号内。每小题4分，共120分）6、在VB中，可以在常量的后面加上类型说明符显示地指明常量的类型，下列()符号是双精度浮点型常量的类型说明符。A、&B、！C、#D、$12、VB语言属于（）A、机器语言B、汇编语言C、高级语言D、自然语言二、填空题（每个空格3分，共60分,请将正确答案填在答题卡上）4、在VB中，标签控件显示的内容由其(4)属性决定。5、（5）是指在VB程序所有模块中均有效的变量。6、VisualBasic三种工作模式是设计模式、运行模式和(6)模式。7、在VB中，布尔型数据是一个逻辑值，它只取两种值，即True或(7)。8、工程文件的扩展名为(8)，每个工程对应一个工程文件。9、在VB中，(9)函数可以产生一个对话框，这个对话框作为输入数据的界面，等待用户输入数据，并返回所输入的内容。10、Ax2+Bx+SIN60的VB表达式为(10)。11、VB语句PRINT“11”＞“2”的结果为12、VB表达式10MOD7\2的结果为(12)。13、由Static语句定义的变量称为(13)变量。四、阅读分析题（下面是VB程序，将程序运行后的正确结果填在答题卡上，每题5分，共40分）1、PrivateSubCommandl_Click()DimdAsDateD=#10／28／2022#PrintYear(d)EndSub上面程序运行后，单击Commandl命令按钮，输出结果是。2、B%=10A=8：B=4：C=6D=A*B%–CPRINT“D=”；D则程序输出的结果是。3、x=7：y=9IFx＞yTHENPRINT“MAX=”；xELSEIFy＞xTHENPRINT“MAX=”；yENDIF则程序输出的结果是。4、PrivateSubCommand1_Click()DimaAsIntegerA=16PrintSqr(a)EndSub上面程序运行后，单击Commandl命令按钮，输出结果是。5、PrivateSubCommand1_Click()DimxAsIntegerDimIAsInteger,jAsInteger,kAsIntegerx=368i=xMod10J=(x＼10)Modl0k=x＼100x=i*100+J*10+kPrintxEndSub上面程序运行后，单击Commandl命令按钮，输出结果是．6、有如下一组程序语句

FORk=1TO3

SELECTCASEk

CASE1

a=3

CASE2

a=2

CASE3

a=1

ENDSELECT

PRINTa;

NEXTk

PRINTk

运行时的输出结果是______。7、DIMA(10)ASINTEGERFORI=1TO10A(I)=INEXTIPRINTA(I)则输出结果为。8、下列程序运行时输出的结果是:（3）DIMMM=ARRAY（1，2，3，4，5，6）

PRINTM(2)五、编程填空题（下面VB程序，请正确填充下列程序的下划线部分，使其完成所要求的功能，每空2分，共46分）1、设计一个窗体，其执行屏幕如图所示，上方是一个文本框，包含有“实验文本”的值。下面有2个框架，分别用于修改文本框的字体和大小。以下实现上述功能的程序，请填空Privatesub(1)_Load()=“实验文本”=”字体”=”大小”Option1(0).caption=”宋体”(2).caption="楷体_GB2312"0ption2(0).caption=10option2(1).caption=16EndsubPrivateSuboption1_click(indexasinteger)If(3)=0then(4)Else="楷体_GB2312"”ENDIFEndsubPrivateSuboption2_click(indexasinteger)IfINDEX=1=1then(5)Else=10ENDIFEndsub（密封线内不要答题答题一律不给分）………………（密封线内不要答题答题一律不给分）………………密………………封………………线………………PrivateSubCommand1_C1ick()N=0’P=1DOWHILEP（1）P=P*（2）（3）LOOPPRINT“N=”;N（4）’10年后国民生产总值是今年的几倍？FORI=1TO10（5）NEXTIPRINT“P=“;PEndSub3、以下程序的功能是利用函数计算输出的值PrivateSubForm_Click()S=0N=INPUTBOX(“输入N”)FOR(1)S=S+INEXTIP=(2)PRINT“P=”;PENDSUBFUNCTIOMF(N)SUM=0FORI=1TON(3)（密封线内不要答题答题一律不给分）………………（密封线内不要答题答题一律不给分）………………密………………封………………线………………(4)ENDFUNCTION4、在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文框中输入任何字符时，命令按钮Command1变为可用。请将程序补充完整。PrivateSubForm_Load()Command1.（1）=FalseEndSubPrivateSubText1_（2）()=（3）EndSub

5、计算总成绩程序界面如图：在窗体上建立3个文本框和3个标签框，一个命令框。输入完语文成绩和数和数学成绩，单击计算总成绩命令按钮，则计算机将最后总成绩显示在总成绩文本框中，以下实现上述功能的程序，请填空，假设总成绩、语文成绩、数学成绩文本框对象分别为Text1、Text2、Text3PrivateSubCommand1_Click()DimSumAsIntegerSum=（1）（2）EndSub6、输入职工的年终考核得分，然后将考核得分转换为考核等级。转换规则如下：90分以上为“优”，60~89分为“合格”，其它为“不合格”。PrivateSubCommand1_Click()DimkASIntegerk=InputBox("请输入职工的年终考核得分:")SelectCasekCaseIs>=90Print"优"Cas