《vb大题答案.docx》由会员分享，可在线阅读，更多相关《vb大题答案.docx（4页珍藏版）》请在三一办公上搜索。
1、vb大题答案VB大题答案，记得点赞 一、随机产生n个四位数正整数、随机产生20个数值数据，放入数组a，再将其中的整数放入数组b，然后运用“选择法”将数组b中的数据按从大到小的顺序排列，并以每行5个数据在窗体上输出。程序写在窗体Form的Click事件中。 Dim arr(1 To 20) As Integer Private Sub Form_Load Dim i, j, k Randomize For i = 1 To 20 arr(i) = Int(Rnd * 100) 产生20个随机数并保持到数组arr Label1.Caption = Label1.Caption & & arr(i)
2、 输出随机数到label1窗口 Next i For i = 1 To 20 对20个数进行选择法排序 k = i For j = i + 1 To 20 If arr(k) arr(j) Then k = j Next j If k i Then t = arr(k): arr(k) = arr(i): arr(i) = t End If Print arr(i); If i Mod 5 = 0 Then Print 每五个换行 Next i End Sub 三、四、主要为选择法和冒泡法 、随机产生10个三位正整数存放在数组中，并用“选择法”按递增排序并在窗体用Print方法输出。 、随机产
3、生10个两位正整数存放在数组中，并用“冒泡法”按递减排序并在窗体用Print方法输出。 Option Base 1 Dim a(10) Private Sub Form_Load Randomize For i = 1 To 10 a(i) = Int(10 + 90 * Rnd) Next End Sub Private Sub Command1_Click 选择排序法 For i = 1 To 9 For j = i + 1 To 10 If a(j) a(i) Then t = a(i): a(i) = a(j): a(j) = t Next j Next i For i = 1 To
4、10 Print a(i); Next Print End Sub Private Sub Command2_Click 冒泡排序法 For i = 1 To 9 For j = 10 To i + 1 Step -1 If a(j - 1) a(j) Then t = a(j - 1): a(j - 1) = a(j): a(j) = t End If Next j Next i For i = 1 To 10 Print a(i); Next Print End Sub 五、杨辉三角、从输入对话框输入杨辉三角形的行数，并在窗体上显示。 Private sub command1_click
5、Dim s(20,20) as integer Dim i%,j%,n% N=val(text1.text) Picture1.cls For i =3 to n S(i,1)=1:s(i,i)=1 Next i For i=3 to n For j=2 to i-1 S(i,j)=s(i-1,j-1)+s(i-1,j) Next j Next i For i=1 to n For j=1 to i Picture1.print spc (3-len(str(s(i,j);s(i,j); Next j Picture1.print Next i End sub 六、求最大公约数并调用、编写一个
6、求最大公约数的函数过程，点击Command1调用最大公约数函数过程将Text1和Text2中输入的数值的最大公约数显示在Text3中。 Function gcd%(byval m%,byval n%) If mn,then t=m;m=n;n=t R=m mod n Do while (r0) M=n;n=r;r=m mod n Loop Gcd=n End function Private sub command1_click Text3=gcd(text1,text2) End sub 七、用Print方法在窗体上随机显示50个“我”和50个“你”，点击窗体运行。 Private sub
7、form_click Dim i as integer Randomize For i=1 to 100 currentX=form1.scalewidth*rnd currentY=form1.scaleheight*rnd if(i mod 2)=0 then print “我” else print”你” end if next i end sub 八、用Line方法绘制出函数f(x) = x在区间0.3, 1之间积分面积区域，填充为3蓝色，并计算出填充区域面积，点击窗体运行结果如下图所示。 Private sub picture1_click Picture1.scale(-0.5,1)-(1.5,-0.2) Picture1.line(-1,0)-(2,0) Picture1.line(0,2)-(0,-2) For x =0.3 to 1 step 0.001 Picture1.line(x,0)-(x,x*x*x),vbBlue s = s + x * x * x * 0.001 Next x Print 面积为： & s End sub
