如果结果不匹配，请 
更多“2021年是第几个地球日()。”相关的问题
第4题
用动态数组编程输入任意m个班学生(每班n个学生)的某门课的成绩，计算最高分，并指出具有该最高分的学生是第几个班的第几个学生，其中，m和n的值由用户从键盘任意输入(不限定m和n的上限值)
用动态数组编程输入任意m个班学生（每班n个学生)的某门课的成绩，计算最高分，并指出具有该最高分的学生是第几个班的第几个学生，其中，m和n的值由用户从键盘任意输入（不限定m和n的上限值)
点击查看答案
第5题
有一个数列，它的前三个数是0，1，2，从第四个数起，每个数都是它前面的两个数之和，求出该数列的第1
7个数是多少，并求出该数列的第几个数起每个数都超过1E+8
点击查看答案
Private Sub Form_Click()
Dim last_one As Long
Dim last_two As Long
Dim this_one As Long
Dim i As Integer
last_one = 1 '数列的第二个数
last_two = 2 '数列的第三个数
i = 4 '从数列的第四个数求起
Do
this_one = last_one + last_two
last_one = last_two
last_two = ------1-------
If i = 17 Then
Form1.Print "No:17="; this_one
End If
------2------
Loop While this_one ＜= 100000000#
Form1.Print "No:";------3------; "is ＞ 1E+8"
End Sub
第6题
要打印出50个在-100～100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充
完整。 Option Base 1 Private Sub Command1_Click() Dim b() Randomize 【 】 Do x=Rnd If x＞0.5 Then y=1 Else y=-1 t=y*Int(Rnd*100)+1 【 】 Do While k＜j If t ＜＞ b(k)Then k = k + 1 Else Exit Do End If Loop If k=j Then ReDim Preserve b(k) b(k)=t Print b(k)； j=j+1 End If Loop Until j＞50 Print 【 】 Max=b(1) For n=2 To 50 If b(n)＞Max Then 【 】 p = n End If Next n Print "最大数是："；Max Print "位置在第"；p；"个" End Sub
点击查看答案
