1、VB 大题答案，记得点赞一、随机产生 n 个四位数正整数（n 为正整数，由输入对话框输入)。求出其中的奇数之和，并在标签 Label1 上显示，点击 Command1 运行。Dim i As Long, s, n, sums = InputBox(“输入一个正整数：“, , 10)For i = 1 To sRandomizen = Int(Rnd * 100) + 1Print n;If n Mod 2 = 0 Then sum = sum + nNextLabel1.Caption = “偶数之和：“ If i Mod 5 = 0 Then Print 每五个换行Next iEnd Sub
2、三、四、主要为选择法和冒泡法（后面居家注释，两个题差不多，就合成一个题做了）、随机产生 10 个三位正整数存放在数组中，并用“选择法”按递增排序并在窗体用 Print 方法输出。、随机产生 10 个两位正整数存放在数组中，并用“冒泡法”按递减排序并在窗体用 Print 方法输出。Option Base 1Dim a(10)Private Sub Form_Load()RandomizeFor i = 1 To 10a(i) = Int(10 + 90 * Rnd)NextEnd SubPrivate Sub Command1_Click() 选择排序法For i = 1 To 9For j =
3、 i + 1 To 10If a(j) a(i) Then t = a(i): a(i) = a(j): a(j) = tNext jNext iFor i = 1 To 10Print a(i);NextPrintEnd SubPrivate Sub Command2_Click() 冒泡排序法For i = 1 To 9For j = 10 To i + 1 Step -1If a(j - 1) 0)M=n;n=r;r=m mod nLoopGcd=nEnd functionPrivate sub command1_clickText3=gcd(text1,text2)End sub七、用
4、 Print 方法在窗体上随机显示 50 个“我”和 50 个“你” ，点击窗体运行。Private sub form_clickDim i as integerRandomizeFor i=1 to 100currentX=form1.scalewidth*rndcurrentY=form1.scaleheight*rndif(i mod 2)=0 thenprint “我 ”elseprint”你”end ifnext iend sub八、用 Line 方法绘制出函数 f(x) = x3 在区间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.001Picture1.line(x,0)-(x,x*x*x),vbBlues = s + x * x * x * 0.001Next xPrint “面积为：“ & sEnd sub
