关键词不能为空

当前您在： 主页 > 英语 >

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道编程题答案的相关文章

  • 爱心与尊严的高中作文题库

    1.关于爱心和尊严的作文八百字 我们不必怀疑富翁的捐助，毕竟普施爱心，善莫大焉，它是一 种美；我们也不必指责苛求受捐者的冷漠的拒绝，因为人总是有尊 严的，这也是一种美。

    小学作文

  • 爱心与尊严高中作文题库

    1.关于爱心和尊严的作文八百字 我们不必怀疑富翁的捐助，毕竟普施爱心，善莫大焉，它是一 种美；我们也不必指责苛求受捐者的冷漠的拒绝，因为人总是有尊 严的，这也是一种美。

    小学作文

  • 爱心与尊重的作文题库

    1.作文关爱与尊重议论文 如果说没有爱就没有教育的话，那么离开了尊重同样也谈不上教育。 因为每一位孩子都渴望得到他人的尊重，尤其是教师的尊重。可是在现实生活中，不时会有

    小学作文

  • 爱心责任100字作文题库

    1.有关爱心,坚持,责任的作文题库各三个 一则150字左右 （要事例） “胜不骄，败不馁”这句话我常听外婆说起。 这句名言的意思是说胜利了抄不骄傲，失败了不气馁。我真正体会到它

    小学作文

  • 爱心责任心的作文题库

    1.有关爱心,坚持,责任的作文题库各三个 一则150字左右 （要事例） “胜不骄，败不馁”这句话我常听外婆说起。 这句名言的意思是说胜利了抄不骄傲，失败了不气馁。我真正体会到它

    小学作文

  • 爱心责任作文题库

    1.有关爱心,坚持,责任的作文题库各三个 一则150字左右 （要事例） “胜不骄，败不馁”这句话我常听外婆说起。 这句名言的意思是说胜利了抄不骄傲，失败了不气馁。我真正体会到它

    小学作文
30道编程题答案随机文章
30道编程题答案热门标签