VB上机试题及答案精编.docx

VB上机试题及答案

第一篇：VB上机试题及答案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．某数组有20个元素，其值为随机产生的两位整数。现要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个数与第19个元素互换，…，第10个元素与第11个元素互换。在窗体上输出数组原来各元素的值与对换后各元素的值。OptionexplicitDima(1to20)asinteger,Iasinteger,jasinteger,tasintegerPrivateSubForm_Load()ShowPrint“原始数组是：”RandomizeFori=1To20a(i)=Int(Rnd*90)+10Printa(i);IfiMod10=0ThenPrintNextiPrintPrint“现在数组是：”Fori=1To10j=211a(k)=a(k+1)NextkReDimPreservea(UBound(a)1EndIfi=i+1LoopWhile(i注意：要求利用动态数组，能够实现多次插入PrivateSubForm_Load()Shown=8:ReDima(n)a=Array(5,15,23,52,68,88,90,99)n=n+1:ReDimPreservea(n)m=InputBox(“请输入要插入的数据:”)Fori=1Ton1)Nextka(k)=mFori=1TonPrinta(i);NextiPrintEndSub4．6个评委为4位歌手打分，分数介于1-100之间。去掉一个最高分，一个最低分，求出每位选手的最后得分。将4位歌手得分从高到低排列输出，同时输出该选手的编号。如：歌手395分歌手187分歌手480分歌手270分/19OptionBase1PrivateTypegeshouxuhaoAsStringfenshu(6)AsIntegerscoreAsIntegerpingjunAsIntegerEndTypeDimsinger(1To4)AsgeshouPrivateSubCommand1_Click()Fori=1To4Forj=1To6singer(i).fenshu(j)=Int(Rnd*100)singer(i).xuhao=“歌手”&iNextNextCallpaixuEndSubPrivateSubpaixu()DimpAsgeshouFori=1To4Forj=1To5Fork=jTo6Ifsinger(i).fenshu(j)>singer(i).fenshu(k)Thent=singer(i).fenshu(j)singer(i).fenshu(j)=singer