vb上机试题 (14页)

vb上机试题vb上机试题篇一：VB上机练习题(一)VB上机练习题(一)1、求10个三位正整数中的偶数之和，正整数用随机函数Rnd产生，或由InputBox函数输入。Dimi,sum,x%,a$PrivateSubCommand1_Click()Fori=1To10x=Int(Rnd*(999-100+1)+100)Ifx<1000Andx>99AndxMod2=0Thensum=sum+xNextia="总合为"&CStr(sum)MsgBoxaEndSubPrivateSubCommand2_Click()Fori=1To10c1=Chr(13)+Chr(10)msg1="请输入第"&i&"个三位正整数"msg2="然后按回车键"msg3="或者单击“确认”按钮"msg=msg1+c1+msg2+c1+msg3x=Val(InputBox(msg))SelectCasexCase100To999IfxMod2=0Thensum=sum+xCaseElseMsgBox"请输入一个三位正整数！"EndSelectNextia="总合为"&CStr(sum)MsgBoxaEndSub2、求10个三位正整数中的奇数之和，正整数用随机函数Rnd产生，或由InputBox函数输入。Dimi,x,sum%,a$PrivateSubCommand1_Click()Fori=1To10x=Int(Rnd*(999-100+1)+100)Ifx>99Andx<10000AndxMod2=1Thensum=x+sumPrintxNextia="10个3位正整数奇数的和为："&CStr(sum)MsgBoxaEndSubPrivateSubCommand2_Click()Fori=1To10msg1="请输入第"&CStr(i)&"个3位正整数"msg2="然后按回车键"msg3="或者点击“确定”按钮"c1=Chr(10)+Chr(13)msg=msg1+c1+msg2+c1+msg3x=Val(InputBox(msg))SelectCasexCase100To999IfxMod2=1Thensum=sum+xCaseElseMsgBox"请输入三位正整数！"EndSelectNextia="10个3位正整数奇数的和为："&CStr(sum)MsgBoxaEndSub3、编写程序，打印如图1所示图形。图1PrivateSubForm_Click()Dimi%,j%Fori=1To5PrintTab(15-i);Forj=1To(2*i-1)Print"*";NextjPrintNextiEndSub4、1—100之间自然数的平方和，程序参考界面如图2所示：图2PrivateSubForm_Click()Dimi,x,sum&Fori=1To100x=1+xsum=sum+x^2NextiText1.Text=Str(sum)EndSub5、输入时间（小时、分和秒）然后使用输出消息框输出总计多少秒。使用文本框输入数据，使用消息框输出计算结果，程序运行界面如图3、4所示：图3图4PrivateSubCommand1_Click()Dimh,m,s%,sum&,a$h=Val(Text1.Text)m=Val(Text2.Text)s=Val(Text3.Text)sum=h*3600+m*60+sc1=Chr(13)+Chr(10)a=CStr(h)&"小时"&CStr(m)&"分"&CStr(s)&"秒"&c1&"总计："&CStr(sum)&"秒"MsgBoxaEndSubPrivateSubCommand2_Click()EndEndSub6、找出在1～1000中同时满足被7除余5、被5除余3、被3除余2条件的数，界面自定。PrivateSubCommand1_Click()Dimi,x%Fori=1To1000x=x+1IfxMod7=5AndxMod5=3AndxMod3=2ThenPrintStr(x)&Space(2);ElseEndIfNextEndSub7、编程，输入x，求下列分段函数f(x)的值。用InputBox函数输入x，计算结果f(x)输出到Text控件。1-x2x<=5F(x)=PrivateSubCommand1_Click()Dimx,sum!msg1="请输入x的值"msg2="然后按回车键"msg3="或者点击“确定”按钮"(x-5)4x>5c1=Chr(10)+Chr(13)msg=msg1+c1+msg2+c1+msg3x=InputBox(msg)Ifx<=5Thensum=1-x^2Elsesum=(x-5)^4EndIfText1.Text=CStr(sum)EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)KeyAscii=LockedEndSub篇二：VB上机考试练习题2014上机考试练习题2014-121-14题为必做题。15-20题对笔试和全国等级考试有帮助1．某数组有20个元素，其值为随机产生的两位整数。现 要求 对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗 将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个数与第19个元素互换，?，第10个元素与第11个元素互换。在窗体上输出数组原来各元素的值与对换后各元素的值。2．从数组中删除一个数。先定义一个一维数组，大小、数组的值自定。从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中”注意：1）如果数组中存在多个与该数相同的元素，每一个都能删除；2）能实现多次删除3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。注意：要求利用动态数组，能够实现多次插入4．6个评委为4位歌手打分，分数介于1-100之间。去掉一个最高分，一个最低分，求出每位选手的最后得分。将4位歌手得分从高到低排列输出，同时输出该选手的编号。如：歌手395分歌手187分歌手480分歌手270分5．把文本框1、文本框2指定的范围内的所有素数添加到列 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 框中，并选中列表框数据中最后一位是9的所有数据(设定selected属性)，把它们的和值输出。6.任意输入一组字符，统计出大写字母多少个，小写字母多少个，数字多少个？要求用过程实现。7．随机产生一个5*5的矩阵，将主对角线和次对角线元素都置为1，并求出矩阵的四周元素之和，显示在列表框中。8．编写一个函数，能将字母按下列规律译成密码：A<-->Za<-->zB<-->Yb<-->y即第1个字母与第26个字母互换，第i个字母与第(26-i+1)个字母互换。在文本框中任意输入一个字符串，调用该函数将密码显示在另一个文本框中。9．编写2个函数，分别求两个正整数的最大公约数和最小公倍数，用户任意输入两个数，采用函数嵌套调用，该函数将它们在窗体显示。10.编写计算阶乘的Function过程，利用e的下列 公式 小学单位换算公式大全免费下载公式下载行测公式大全下载excel公式下载逻辑回归公式下载 计算e（直到最后一项小于10为止）的近似值。e≈1+x/1!+x/2!+x/3!+?+x/n!x23nx-611．输入整数N，显示具有N行的杨辉三角形，要求按正三角形的形式在图片框中显示。12．编写一个过程，输出以下菱形图形：ABBBCCCCCDDDDDDDCCCCCBBBA主程序输入一个奇数（>＝3），调用过程在窗体上输入图形。13．编写一个将十进制转换为二进制字符串输出的函数。调用函数计算用户输入一个十进制数，在文本框中输出二进制值。注意：输入数据为负数，应该将符号位输出如-13结果-110114．输入一个整数N，产生N个随机数（范围1—10*N），然后采用任何2种算法实现由小到大的排序。将排序前后的数据显示出来。*15．编写程序，在窗体上输出3~100之间的所有素数。要求每行显示4个数。*16．编写函数求一元二次方程ax2+bx+c=0的解。注意：要求考虑方程有两相等实根、两不等实根和两个虚根的情况。*17.编写1个函数，采用递归法求n!。调用函数，n使用Inputbox输入，其结果在窗体上显示。*18.有一个数列：1，1，2，3，5，8，13，21，?，按规律计算出前40项的和，结果写入到顺序文件（out.txt）中。界面 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 见图1，写入结果的数据文件out.txt用“记事本”打开如图2。图1运行界面图2outt.txt文件内容*19.单击读数按钮从文件in.txt中读入一个整数（先用记事本创建一个in.txt文件，其中输入任意一个素数，如图3中输入的是101），单击计算按钮则计算出大于该数的第1个素数，单击存盘将结果保存到文件out.txt中,如图5。运行界面如图13-3所示。图3图4图5*20.如图6所示。当选中某一个单选按钮并单击“计算”按钮时，则计算出该单选按钮标题所指明的所有素数之和，并在文本框中显示出来；单击“存盘”按钮将计算所得的素数之和以out.txt文件名存入“c:\exam”目录中。判断一个数是否为素数的过程自己编写，存盘过程已经给出。编写两个命令按钮的Click事件过程。图6Subputdata(t_FileNameAsString,T_StrAsVariant)‘存盘过程DimsFileAsStringOpen"c:\exam\"&t_FileNameForOutputAs#1'存入c:\exam目录下Print#1,T_StrClose#1EndSub篇三：VB上机试题及 答案 八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案 1、在工程中添加一个窗体form1，当用户单击窗体时，在窗体上显示九九乘法表程序。结果如下图所示（本题编程解决，20分）参考答案：PrivateSubForm_Click()ClsFori=1To9Forj=1ToiPrinti*j;"";NextjPrintNextiEndSub2、在工程中，添加一个窗体form2，在窗体上放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（本题编程完成，满分：30分）参考答案：PrivateSubCheck1_Click()Text1.FontBold=Check1.ValueEndSubPrivateSubCheck2_Click()Text1.FontItalic=Check2.ValueEndSubPrivateSubCheck3_Click()Text1.FontUnderline=Check3.ValueEndSub3、在工程中添加一窗体form3，在窗体上按下图放置两个标签和一个文本框，一个列表框和一个命令按钮，各控件的名称属性取默认值。其他属性按下图进行设置。要求：当用户在文本框输入他的籍贯后，单击“添加籍贯”按钮时，能够将籍贯添加到列表框中。双击列表框中的某一项时将该项删除.（本题：20分）参考答案：PrivateSubCommand1_Click()List1.AddItemText1.TextEndSubPrivateSubList1_DblClick()List1.RemoveItemList1.ListIndexEndSub4、在窗体form4中建立下图所示的菜单,各菜单项的名称如下：文件：file,新建：NEW，-：kong1，打开：OPEN，关闭：CLOSE编辑：EDIT，剪切：CUT，复制：COPY，粘贴：PASTE（本题不用编程，30分）参考答案：略篇四：VB练习题(上机)含答案第一部分1在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)PrivateSubCmd1_Click()Dima%(19),i%,sum!,aver!RandomizeFori=0To19a(i)=Int(Rnd*1001)sum=sum+a(i)Nextiaver=sum/20PrintaverEndSub2请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。PrivateSubC1_Click()DimchAsString,ch1AsString,i%ch=Text1Fori=1ToLen(ch)IfAsc(Mid(ch,i,1))>=65AndAsc(Mid(ch,i,1))<=90Thench1=ch1+LCase(Mid(ch,i,1))Elsech1=ch1+UCase(Mid(ch,i,1))EndIfNextiText1=Text1+vbCrLfText1=Text1+ch1EndSub3在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。PrivateSubMyCmd1_Click()Dima%(29),i%,max%RandomizeFori=0To29a(i)=Int(Rnd*1001)Nextimax=a(0)Fori=1To29Ifa(i)>maxThenmax=a(i)NextiPrintmaxEndSub4请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。PrivateSubCommand1_Click()IfOption1.Value=TrueThenText1.FontName="宋体"ElseText1.FontName="隶书"EndIfIfCheck1.Value=1ThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEndIfIfCheck2.Value=1ThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfEndSub5在名称为Form1的窗体上添加一个名称为Text1的文本框；添加两个标题分别为"对齐方式"、"字体"，名称分别为Fm1、Fm2的框架；在Fm1框架中添加三个单选按钮，标题分别为"左对齐"、"居中"、"右对齐"，名称分别为Opt1、Opt2、Opt3；在Fm2框架中添加两个单选按钮，标题分别为"宋体"、"黑体"，名称分别为Opt4、Opt5。要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的内容实现相应的操作(如图所示)。PrivateSubOpt1_Click()IfOpt1ThenText1.Alignment=0EndSubPrivateSubOpt2_Click()IfOpt2ThenText1.Alignment=2EndSubPrivateSubOpt3_Click()IfOpt3ThenText1.Alignment=1EndSubPrivateSubOpt4_Click()IfOpt4ThenText1.FontName="宋体"EndSubPrivateSubOpt5_Click()IfOpt5ThenText1.FontName="黑体"EndSub6请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。Dimn%PrivateSubForm_Load()EndSubPrivateSubOption1_Click()Dimi%n=Val(Text1)m=1Fori=1Tonm=m*iNextiText2=mEndSubPrivateSubOption2_Click()Dimi%m=1Fori=1Ton+2m=m*iNextiText2=mEndSub7在窗体上添加两个文本框和三个标签，设置它们的属性，达到下图效果。程序运行时，在第一个文本框输入一串字符，在第二个文本框中输入一个字符，然后单击"统计"命令按钮，统计第二个文本框中字符(大小写被认为是不同的字母)在第一个文本框中出现的次数，统计结果在标签Label3中显示。PrivateSubCommand1_Click()Dimi%,n%Fori=1ToLen(Text1)IfMid(Text1,i,1)=Text2Thenn=n+1NextiLabel3=nEndSub