vb复习题.doc

一、选择题(每小题1分,共15分)二、填空题(每空1分,共20分)三、阅读程序题(每小题5分,共25分)四、编程题(每小题10分,共40分)一、编程编写程序,从键盘上输入10个整数,分别计算并输出正数及负数的和。编写程序,从键盘上输入10个整数,分别计算并输出正数及负数的个数。求s=1+(1+2)+(1+2+3)+…+(1+2+3+…+n)。求1-200间所有偶数的平均值。求1-200间所有奇数的和。求1-200间所有偶数的和。编写程序,打印如下图形:*********随机产生整数为二行三列数组输入数值,显示该数组,找出该数组的最小元素及其下标。用随机产生整数为1个3×3数组输入数值,打印数组,求数组的对角线元素的和,并打印和。随机产生10个两位整数,找出其中最大值、最小值,并打印。1、mand1的命令按钮,然后编写如下事件过程: mand1_Click() c="ABCD" Forn=1To4 PrintRight(c,n) Next EndSub程序运行后,单击命令按钮,写出输出结果。参考答案:DCDBCDABCD2、窗体上有一个文本框(其name属性分别为Text12)和一个标签(name属性Label1),以及一个命令按钮(mand1),程序运行时,在文本框Text1中输入数值,单击该命令按钮,判断该数值为正数或是负数,并在标签Label1中显示结果。(7分)举例:若输入20,单击按钮后,标签Label1中显示“是正数”;若输入-10,单击按钮后,标签Label1中显示“是负数”。mand1_Click()Dimn!N=>==“是正数”=“是负数”endifendsubEndSub参考答案:从文本框取数:2分处理判断:2分显示结果及其它:,标签上显示“摄氏温度”和“华氏温度”,文本框一个用于输入摄氏温度数,一个用于输出对应的华氏温度。摄氏温度与华氏温度的转换公式为:c=(5/9)*(f-32)要求:对输入的摄氏温度数有检查功能,以拒绝接收非数字字符。运行界面如图所示:参考答案:mand1_Click()Text1=""Text2=""==()EndEndSubPrivateSubText1_Change()=5*(Val()-32)/9EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii<>8ThenIfChr(KeyAscii)<"0"OrChr(KeyAscii)>"9"ThenKeyAscii=0EndIfEndIfEndSub4、在窗体上画一个文本框和两个图像框,两个图像框中装入一个左箭头图形和一个右箭头图形,编写程序,实现当单击左箭头图形时,文本框会显示“您单击的是左箭头”;当单击右箭头图形时,文本框会显示“您单击的是右箭头”。参考答案:PrivateSubImage1_Click()=”您单击的是左箭头”EndSubPrivateSubImage2_Click()=”您单击的是右箭头”EndSub6、随机产生n个两位正整数(n由输入对话框输入,且n>0),求出其中的偶数之和,并在标签框Label1上显示。mand1的click事件中。参考答案:mand1_Click()DimnAsIntegerDimiAsInteger,sumAsLongn=Val(InputBox("Pleaseinputainteger","InputNvalue"))Fori=1Tonrnddat=(10+Int(90*Rnd))IfrnddatMod2=0Thensum=sum+=sumEndSub7、输入30个小于100的成绩随机数,并统计出优、良、及格、不及格数的个数。参考答案:OptionExplicitPrivateSubForm_Click()Dimk,a,bjg,jg,zd,lh,yxAsIntegerRandomizeFork=1To30A=Int(Rnd()*100)SelectCaseaCase0To60Bjg=bjg+1Case61To69Jg=jg+1Case70To79Zd=zd+1Case80To89Lh=lh+1Case90To100Yx=yx+”不及格”+Str$ (big)+”人,及格”+Str$(jg)+”