《计算机试题》word版.doc

一、寻找极值（最大值 最小值） 三、求1+（1+2）+（1+2+3+.+10） Dim a(1 to 10 ) As integer Dim t as integer s = 0 : b = 0Foi i = 1 to 10 a(i) = int(rnd * 91 + 10 ) foi I = 1 to 10Print a(i) b = b + iFor I = 1 to 10 s = s + bIf a(i) t then t = a(i) next iNext I print sPrint 极值为：“，t end sbb二、求1+2+3+100的和 四、素数的判断S = 0 f = 1Foi I = 1 to 10 for I = 2 to n - 1S = s + I if n mod I = 0 then f = 0: exit forNext I next iPrint s if f = 1 thenEnd sub print n & “是素数“ else print n & “不是素数“五、将输入的字符串逆序输出，如ABCD，则输出DCBA 六、s删除字符串特定字符S = inputbox(“请输入一个字符串“) Dim s as String, p as StringW=” s = inputbox(“请输入字符串“)For I = 1 to len(s) c = inputbox（“请输入待删除字符“） W = Mid(s,I,1) & W for I = 1 to len(s)Next I a = Mid(s,I,1)Print W if a c then p = p & a Next I print p 七、单击命令按钮command1，在窗体上利用 八、打印九九乘法表 随机函数产生10个1100的整数，单击 option explicit命令按钮2，将生成的数按照从大到小的 Private sub command1_click()顺序进行排序输出 dim I,j as integerDim a (10) as integer for I = 1 to 9Private sub command1_click() for j = 1 to iPrint”排序前：“； print I & “*”& J &“=” & I * j;spc(1)For I = 1 to 10next ja(i) = int(rnd*100 + 1) next I 换行 print end subprint a(i) 九、单击命令按钮 在图片框picture1next I end sub for I = 1 to 9Private sub command2_click() picture1.print spc（9 i）;Print for j = 1 to 2 * I - 1Print”排序后“； picture1.print trim(10 i);For I = 1 to 9 next jFor j = 1 to 10 I picture1.printIf a(i) =0.000001T = int(rnd*30 + 20) for I = 1 to nPrint t b = b * nS = s + t next iIf t min then t = min : k = I s = s + 1/bNext I n = n +2Print”最小值为：“& min loop 换行 print s end subPrint”最小值的位置为：“&“第”& k &”个“End sub 十四、计算Array函数中提供所有奇十一、在文本框text中输入一个正整数N 按 数元素平均值，计算结果两位小数计算命令按钮 计算1到N偶数之乘积 Private sub form2*4*6*m dim s as Long, x as SingleDim prod as long dim a as variantN = val(text1.text) dim k as integerProd = 1 s = 0 : num = 0For k = 2 to N step 2 a = Array(37,92,58.)Prod = prod * k for k = Lbound(a) To Ubound(a)Next k if a(k) Mod 2 = 1Label1.caption = prod s = s + a(k)Ens sub num = num + 1十二、设窗体中心在X=1500 y=1000处，点击 end if窗体上画出红色实心正方形 正方形左上角在点 next k击处，正方形边长为为点击处到窗体中心距离一半 x = s/numPrivate sub form_mousedown(button as integer, x = Round9x,2)shift as integer,x as single ,y as integer) print “所有奇数的平均值=“；xdim L as longForm1.forecolor = vbRed Form1fillcolor = vbRedL = Sqr(x - 1500)2 + (y - 1000)2)Line（x,y）-(x+L,Y+L),BFEnd sub十五、利用随机函数产生10个0100之间的数，计算平均值，找出最接近平均值的那个数 Private sub form dim a(10) as Single s = 0 for I = 1 to 10 a(i)=Round(rnd*100,2) Print a(i) s = s + a(i) next I s = Round(s/10,2) t = Abs(a(1)-s) for I = 1 to 10If Abs(a(i)-s)=t then t = Abs(a(i)-s) k = I end if next I print “平均值=“&round(s,2)Print“最接近平均值的数=“& a(k) end sub十六、单击命令按钮command1 便在图片框picture1中显示由字符串“visual basic programming”组成的正弦曲线 并且使字符串均匀的分布在一个完整周期的正弦曲线上a = “grammming”n = Len(a)p = 360/nfor I = 1 to npicture1.CurrentX = I * 150picture1.CurrentY = 1000-800*sin（i*p*3.14159/180）picture1.print Mid(a,I,1)next I end sub十七、在文本框输入一个英文句子，若句首或句尾存在空格，或任意两个单词之间空格多余一个则在单击命令之后将其删除，并显示在text2中Dim a as vaiant, I as integera = Split(text,” “)for I = Lbound(a) To Lbou