关键词不能为空

当前您在： 主页 > 英语 >

30道编程题答案

作者：高考题库网
来源：https://www.bjmy2z.cn/gaokao
2021-02-28 08:49
tags:

-

2021年2月28日发(作者：滑梯的英文)


Private Sub Command1_Click()


'7.



输入两个整数，求它们的最大公约数



m = Val(InputBox(


值



n = Val(InputBox(


值



If n > m Then


t = n


n = m


m = t


End If


r = m Mod n


Do While r < > 0


m = n


n = r


r = m Mod n


Loop


MsgBox (


最大公约数


=



End Sub



Private Sub Command10_Click()


'12.


输 入一串字符，统计其中字母


A(


不区分大小写

< br>)


出现的次数。



Dim ch As String


ch =


n = 0


For i = 1 To Len(ch)


st = Mid(ch, i, 1)


If UCase(st) =


n = n + 1


End If


Next i


MsgBox (


字符 串中出现


A


字符的系数



End Sub














Private Sub Command11_Click()


'1.


< p>
输入


3


个数，输出最大的数



Dim max%


X1 = Val(InputBox(


X2 = Val(InputBox(


x3 = V


al(InputBox(


max = X1


If max <= X2 Then


max = X2


End If


If max <= x3 Then


max = x3


End If


MsgBox (


个数之中的最大数


max=



End Sub



Private Sub Command12_Click()


'2.


< /p>


'


有一元二次方程：


aX2+bX+c= 0


，依次输入


a


，

b


，


c


，判断此方程是否有实根< /p>



a = Val(InputBox(


B = Val(InputBox(


c = Val(InputBox(


s = B ^ 2 - 4 * a * c


If a <> 0 Then


If s = 0 Then


MsgBox (


两个相等实根



ElseIf s > 0 Then


MsgBox (


两个不相等实根



ElseIf s < 0 Then


MsgBox (


两个不相等虚根



End If


Else


MsgBox (


无解




End If



End Sub









Private Sub Command13_Click()


'3.



输入一个百分制的成绩，若 大于等于


60


，则用消息框弹出，显示



恭喜！成绩通过！



，

< br>若小于


60


，则弹出消息框，显示



抱歉！成绩没有通过！



X = Val(InputBox(


If X >= 60 Then


MsgBox (


恭喜！成绩通过！



Else


MsgBox (


抱歉！成绩没有通过！



End If



End Sub



Private Sub Command14_Click()


'4.



输入一年份，判断它是否为 闰年，并显示有关信息。


（判断闰年的条件是：年份能被


4


整除但不能被


100


整除，或者能被


400


整除）



yes = Val(InputBox(


If yes Mod 4 = 0 And yes Mod 100 <> 0 Or yes Mod 400 = 0 Then


MsgBox (yes &


是闰年



Else


MsgBox (yes &


不是闰年



End If



End Sub



Private Sub Command15_Click()


'5.



输入学生的百分制成绩，< /p>


转换输出为五级制成绩，


90


～


100


分转换为优秀，


80

～


89


转换


为良好，


70


～


79


转换为中等，< /p>


60


～


69


转换 为及格，


0


～


60

转换为不及格。




score = Val(InputBox(


Select Case score


Case Is >= 90





MsgBox (


优秀




Case Is >= 80


MsgBox (


良好




Case Is >= 70



MsgBox (


中




Case Is >= 60



MsgBox (


及格





Case Else





MsgBox (


不及格






End Select






End Sub



Private Sub Command17_Click()


'21.


随机产生< /p>


10


个


[30,100]


内的整数，求最小值及所对应的下标。



Dim a(10) As Integer


For i = 0 To 9


a(i) = Int(Rnd * 70 + 30)


Next i


min = a(0)


Mini = 0


For i = 1 To 9


If a(i) <= min Then


min = a(i)


Mini = i


End If


Next i


MsgBox (


MsgBox (


End Sub



Private Sub Command16_Click()


'6.



随机产生一个三位正整数， 然后逆序输出，产生的数与逆序数同时显示。例如，产生


246


，输出是


642


。



a =


n = Len(a)


For i = 1 To Int(n / 2)


c = Mid(a, i, 1)


Mid(a, i, 1) = Mid(a, n - i + 1, 1)


Mid(a, n - i + 1, 1) = c


Next i


MsgBox (a)


End Sub
















Private Sub Command18_Click()


'22.


随机生成一个整型的二维数组，范围在


[10,20]


之间，以下三角形式输出该数组。



Dim a(10, 10) As Integer


For i = 0 To 9


For j = 0 To 9


a(i, j) = Int(Rnd * 20 + 10)


Next j


Next i


For i = 0 To 9


For j = 0 To i


Print a(i, j),


Next j


Print


Next i


End Sub



Private Sub Command19_Click()


'23.


随机产生< /p>


10


个


1~100


的正整数放入数组，显示产生的数，求最大值、最小值、平均值。



Dim a(10) As Integer, max%, min%


For i = 0 To 9


a(i) = Int(Rnd * 101)


Print a(i)


Next i


max = a(0)


min = a(0)


For i = 1 To 9


If a(i) >= max Then


max = a(i)


Else


min = a(i)


End If


sum = sum + a(i)


Next i


MsgBox (


MsgBox (


MsgBox (


End Sub









Private Sub Command2_Click()


'8.



编程求


200--400


范围内


5


的倍数或


7


的倍数 之和。


(


一个数如果同时是


7


和


5


的倍数，


则只能加 一次。



Dim sum1%, sum2%


sum1 = 0: sum2 = 0


For i = 200 To 400


If i Mod 5 = 0 Then


sum1 = sum1 + i


ElseIf i Mod 7 = 0 Then


sum2 = sun2 + i


End If


i, sum1, sum2


Next i


MsgBox (


的倍数之和


sum=


MsgBox (


的倍数之和


sum=


End Sub



Private Sub Command20_Click()


'17.


编程求斐波 那契数列前


11


项。


（斐波那契数列：


F(0)=f(1)=1,



F(n)=F(n-1)+F(n-2) n>=2


）



Dim f(11) As Integer


f(0) = 1


f(1) = 1


For i = 2 To 10


f(i) = f(i - 1) + f(i - 2)


Next i


For i = 0 To 10


Print f(i);


Next i


End Sub



Private Sub Command21_Click()


'18.


将 输入的字符串以反序显示。例如：输入



，显示

< br>


Dim s(10) As String


For i = 0 To 9


s(i) = InputBox(


Next i


For i = 9 To 0 Step -1


Print s(i)


Next i


End Sub






Private Sub Command22_Click()


'19.


随机产生< /p>


10


个


[30,100]


内的整数，求最大值及所对应的下标



Dim a(10) As Integer, max%


For i = 0 To 9


a(i) = Int(Rnd * 70 + 30)


Next i


max = a(0)


maxi = 0


For i = 1 To 9


If a(i) >= max Then


max = a(i)


maxi = i


End If


Next i


MsgBox (


MsgBox (



End Sub



Private Sub Command23_Click()


'20.


随机产生< /p>


10


个


[30,100]


内的整数，求最大值、最小值和平均值。



Dim a(10) As Integer, max%, min%


For i = 0 To 9


a(i) = Int(Rnd * 70 + 30)


Next i


max = a(0)


min = a(0)


For i = 1 To 9


If a(i) >= max Then


max = a(i)


Else


min = a(i)


End If


sum = sum + a(i)


Next i


MsgBox (


MsgBox (


MsgBox (


End Sub






-


-


-


-


-


-


-


-



本文更新与2021-02-28 08:49，由作者提供，不代表本网站立场，转载请注明出处：https://www.bjmy2z.cn/gaokao/679999.html

返回列表：英语

30道编程题答案的相关文章

  • 余华爱情经典语录,余华爱情句子

    余华的经典语录——余华《第七天》40、我不怕死，一点都不怕，只怕再也不能看见你——余华《第七天》4可是我再也没遇到一个像福贵这样令我难忘的人了，对自己的经历如此清楚，

    语文

  • 心情低落的图片压抑,心情低落的图片发朋友圈

    心情压抑的图片(心太累没人理解的说说带图片)1、有时候很想找个人倾诉一下，却又不知从何说起，最终是什么也不说，只想快点睡过去，告诉自己，明天就好了。有时候，突然会觉得

    语文

  • 经典古训100句图片大全,古训名言警句

    古代经典励志名言100句译：好的药物味苦但对治病有利；忠言劝诫的话听起来不顺耳却对人的行为有利。3良言一句三冬暖，恶语伤人六月寒。喷泉的高度不会超过它的源头；一个人的事

    语文

  • 关于青春奋斗的名人名言鲁迅,关于青年奋斗的名言鲁迅

    鲁迅名言名句大全励志1、世上本没有路，走的人多了自然便成了路。下面是我整理的鲁迅先生的名言名句大全，希望对你有所帮助！当生存时，还是将遭践踏，将遭删刈，直至于死亡而

    语文

  • 三国群英单机版手游礼包码,三国群英手机单机版攻略

    三国群英传7五神兽洞有什么用那是多一个武将技能。青龙飞升召唤出东方的守护兽，神兽之一的青龙。玄武怒流召唤出北方的守护兽，神兽之一的玄武。白虎傲啸召唤出西方的守护兽，

    语文

  • 不收费的情感挽回专家电话,情感挽回免费咨询

    免费的情感挽回机构(揭秘情感挽回机构骗局)1、牛牛（化名）向上海市公安局金山分局报案，称自己为了挽回与女友的感情，被一家名为“实花教育咨询”的情感咨询机构诈骗4万余元。

    语文
30道编程题答案随机文章
30道编程题答案热门标签