中职电子与信息：VB技能模块模拟考题1

VB技能模块模拟考题1.下列VB程序段实现如下功能：单击窗体后输出S的计算结果(N从键盘上输入)。请根据要求,将程序补充完整。S的值用消息框显示操作要求：((1)要求将l.txt文件复制到窗体单击事件中，完成(1)、(2)、(3)、(4)的填空；11111」1,=1一7+3一齐+豆一宗+.“+(-1)滔DimsAsSingle,N%,F%,t!S=O:t=l:f=lN二Fori=1toS=s+F*TT二F=-fnexti.VB程序功能：是将十进制转化成十六进制的数。如下图2所示，例：在文本框1输入2015,单击“转换”按钮，在文本框2显示结果：7DF。根据题意将程序补充完整。操作要求：(1)创建如图2的界面，设置相应的属性；(2)将2.TXT文件复制到“转换”按钮事件中，完成(1)(2)(3)(4)(5)的填空；Dimaa=Array(0,1,2,3,4,5,6,7,8,9,”A「B。“E-F”)Dimx%,y$,k%,n%x=Val(Textl.Text)DoUntilk=K表示被16整除的余数x='X表示被16整除的商数y=LoopText2.Text=3.用VB循环结构语句编制一个程序，应程序的功能为：当用户单击“图形输出”按钮（Commandl）,在窗口输出由字符“*”组成的如第3题图所示的图形；单击“清除”（Commadn2）按钮，将窗体上的图形清除。操作要求：（1）完成“图形输出”按钮的事件（注：用一个二重循环结构完成）模板格式是：Fori=toPrinttab（）;Forj=to打印内容；NextjPrintNextiPrivateSubCommandl_Click()Fori=-5To5IfThenPrintTab();ElsePrintTab(16+Abs(i));EndIfForj=1ToIfi=0ThenPrintElsePrintEndIfNextjPrintNextiEndSubPrivateSubCommand2_Click()CisEndSub4.某职校评比市优秀学生，现在有10位候选人，进行网上模拟投票，每位学生只能选一号码，每位候选人的号码分别是1〜10,号码与姓名如下表：号码12345姓名李一北张二南王三西陈四东谢一东号码678910姓名吕开心李高兴董丽丽钊।凯刘军编一个程序要求单击“排序”按钮，从键盘输入选票，直到输入-1时程序结束，并统计10位候选人的得票情况，按选票多少进行排序结果居中显示在文本框。如第4题图所示。操作要求：（25分）（1）（6分）创建如图4的界面，设置相应的属性;（17分）完成“排序”事件的代码（2分）保存工程文件4.vbp和窗体文件4.frm.•选票排序十位学生的选票排序

李一北的票数12

董丽丽的票数7

吕开心的票数6

王三西的票数5

陈四东的票数2

谢一东的票数2

李高兴的票数2钟凯的票数2

张二南的票数1刘军的票数1排序PrivateSubCommand1_Click()定义数组函数Dimaa二Array(，”李一北“，“张二南“，“王三西“，“陈四东“，“谢一东“，“吕开心“，“李高兴“，“董丽丽”,“钟凯“，“刘军”)Dimx%(lTo10)'统计相应号码的选票Dimn%'n表示输入的号码n=Val(InputBox("请输入选票的号码”))DoUntilx(n)=Loop'排序Fori=1To9Forj=1ToIfThent二x(j)：x(j)=X。+1)：t二a(j)：a(j)=a(j+1):a(j+1)=