VB上机试题及答案

1/19上机操作练习题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=21-it=a(i):a(i)=a(j):a(j)=tNextiFori=1To20Printa(i);IfiMod10=0ThenPrintNextiEndSub2. 从数组中删除一个数。先定义一个一维数组，大小、数组的值自定。从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中”注意：1)如果数组中存在多个与该数相同的元素，每一个都能删除；2)能实现多次删除PrivateSubForm_Load()ShowReDima(9)AsIntegerm=1Print"原来数组为："Fori=0To9a(i)=InputBox("请输入第"&m&"个数：")Printa(i);m=m+1NextiPrintn=InputBox("查找的数是：")2/19i=0:flag=FalseDoIfa(i)=nThenj=i:flag=TrueFork=jToUBound(a)-1a(k)=a(k+1)NextkReDimPreservea(UBound(a)-1)i=i-1EndIfi=i+1LoopWhile(i<=UBound(a))Ifflag=FalseThenMsgBoxn&"不在该数组中"ElsePrint"删除"&n&"后的数组是:"Fori=0ToUBound(a)Printa(i);NextiEndIfEndSub3.数组 a 中存放着升序排列的数据，使用 array 赋值，将 inputbox 输入的新数插入到数组中，插入后数组仍有序。注意：要求利用动态数组，能够实现多次插入PrivateSubForm_Load()Shown=8:ReDima(n)a=Array(5,15,23,52,6&8&90,99)n=n+1:ReDimPreservea(n)m=InputBox("请输入要插入的数据:")Fori=1Ton-1Ifm