1、 sum = sum + i5,求1到m之间的偶数之积。 Dim y As Double y = 1 For i = 1 To m If i Mod 2 = 0 Then y = y * i End If fun = y6,根据一个百分制成绩mark(整数),显示对应五级制的评定。条件如下:mark大于等于90显示优秀mark小于90且大于等于80显示良好mark小于80且大于等于70显示中等mark小于70且大于等于60显示及格mark小于60显示不及格要求使用Select语句来实现。Select Case mark Case Is = 90 fun = = 80= 70= 60 Case
2、ElseEnd Select7,(事件)双击窗体(响应)求100以内奇数的和,并将结果输出在窗体上。将结果存入变量SUM中 If i Mod 2 = 1 Then8, (事件)单击窗体。 (响应)输100-200之间所有素数,并将这些数求和,求和结果存入所给变量SUM中。-For i = 100 To 200 For j = 2 To Sqr(i) If i Mod j = 0 Then Exit For If j Int(Sqr(i) Then Sum = Sum + iNextPrint Sum9,将一个十进制整数m转换成 r(216)进制字符串。方法:将m不断除 r 取余数,直到商为零,
3、以反序得到结果。下面写出一转换函数,参数idec为十进制数,ibase为要转换成数的基(如二进制的基是2,八进制的基是8等),函数输出结果是字符串chr函数:将ascii码转换为对应字母。 Dim strDecR$, iDecR% strDecR = Do While idec 0 iDecR = idec Mod ibase If iDecR = 10 Then strDecR = Chr$(65 + iDecR - 10) & strDecR Else strDecR = iDecR & idec = idec ibase Loop TrDec = strDecR10, (事件)单击按钮。
4、(响应)随机产生N个两位正整数(N由输入对话框输入,且N0),求出其中的最大数和最小数,并在标签框Label1上显示最大数与最小数的差。-x = InputBox(请输入x)n = 1t = xs = xDo Until Abs(t) 0.00000001 n = n + 1 t = t * (-1) / n s = s + tLabel1.Caption = s= & s (响应)已知s=1+1/3!+1/5!+1/7!+1/9!,请将s结果值输出到窗体上。使用do while.loop语句完成程序 i = 1p = 1Do While i 3000 then exit for endifi
5、=i+1nextPrint sum (响应)求1-100中为5或7的倍数的和。使用while.wend语句完成程序 i = 1 While i d = n Mod 10 s = s + d * d * d n = n / 10 Wend fun = s第46题 (1.0分) 题号:490- (响应)已知sum=1-1/4+1/9-1/16+1/25.-1/100, 请将sum结果值输出到窗体上。 使用for.next语句完成程序for i = 1 to 10sum = sum + (-1) (i - 1) /(i*i)第48题 (1.0分) 题号:478编写函数fun,其功能是:能计算从1开始
6、到n的 自然数中偶数的平方的和。 Dim sum As Integer, i As Integer sum = 0 For i = 2 To n Step 2 sum = sum + i * i fun = sum第49题 (1.0分) 题号:208请用Select语句编程计算打折后的金额?折扣方法如下: 购物300以下,无优惠(使用MsgBox显示“无优惠”); 购物300以上,95折; 购物500以上,9折; 购物1000以上,85折; 购物5000以上,8 折? Select Case n 5000 n = n * 0.8 1000 n = n * 0.85 500 n = n * 0.
7、9 300 n = n * 0.95 MsgBox 无优惠 End Select将一张面值为100元的人民币等值换成100张5元、1元和0.5元的零钞,要求每种零钞不少于1张, 问有哪几种组合?将组合数存入变量OUT中。Dim n As IntegerDim i%, j%, k%Print 5? 1? 0.5?For i = 1 To 20 For j = 1 To 100 - i k = 100 - i - j If 5# * i + 1# * j + 0.5 * k = 100 Then Print i, j, k Next j out = n (响应)我国现有人口为13亿,设年增长率为1
8、%,计算多少年后增加到20亿。并将结果输出在窗体上。将结果存入变量year中。使用do while .loop语句完成程序。dim p as doubledim r as singledim n as integerp=1300000000r=0.01do while p a(j) Then imin = j temp = a(i) a(i) = a(imin) a(imin) = temp (响应)求一个数,它除3余2,除5余3,除7余2,请将满足上面条件的最小数保存到sum变量中。 For i = 2 To 1000 If i Mod 3 = 2 And i Mod 5 = 3 And i
9、 Mod 7 = 2 Then Print iNext i sum = i (响应)生成一个一维数组(10个数组元素依此为:15、23、72、43、96、23、3、65、88、17),写程序求出这个数组中的最大值、最小值和平均值,并输出在窗体上。将最大值,最小值,平均值分别存入变量Max,Min,Aver中Dim a(9) As IntegerDim i, s As Integera(0) = 15a(1) = 23a(2) = 72a(3) = 43a(4) = 96a(5) = 23a(6) = 3a(7) = 65a(8) = 88a(9) = 17max = a(0)min = a(0
10、)s = 0For i = 0 To 9 If a(i) max Then max = a(i) If a(i) 500 (响应)已知S=1+1/4+1/9+1/16+1/25+1/100,结果输出在窗体上。 s = s + 1 / (i i)Print (s) (事件)单击命令按钮Command1。 (响应)计算如下表达式s的值,s=1+(1*2)+(1*2*3)+(1*2*3*6)并将结果输出到文本框Text1中。Dim j As Integerj = 1For i = 1 To 6 j = j * i s = s + jText1.Text = s求两个数m,n的最大公约数p和最小公倍数q nm = n * m If m n Then t = m: m = n: n = t Do While (r 0 Then result = ElseIf n = A And UCase(n) 0 And n 9Else (响应)求50以内所有偶数的和,并在窗体上输出出来。将结果存入变量S中。For i = 2 To 50 If (i Mod 2) = 0 Then s = s + i (响应)
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1