内容发布更新时间 : 2025/6/20 0:19:56星期一 下面是文章的全部内容请认真阅读。
1、结果如下：
B
2、结果如下：
BB CCC DDDD EEEEE
3、功能如下：
在20个由小到大排列的数据中插入一个数，插入数据后的数据仍按由小到大的顺序排列。 4、输出结果为：
2 4 6 8 5、输出结果为：
3
6、输出结果为：
2 452
7、输出结果为：
120 0 2 0
8、输出结果为：
3 3 3 2
五、编程题
1、参考代码如下：
第 36 页 共 32 页
Private Sub Command1_Click() Dim year, x As Integer year = Val(Text1.Text) If year Mod 400 = 0 Then Label2.Caption = \是闰年\ Else
' 下面是嵌套块If语句
If year Mod 4 = 0 And year Mod 100 <> 0 Then Label2.Caption = \是闰年\ Else
Label2.Caption = \不是闰年\ End If End If End Sub
2、程序参考代码如下：
Private Sub Command1_Click() Dim m, n, r As Integer m = Val ( Text1.Text ) n = Val ( Text2.Text )
If m < 0 Or n < 0 Then ? 若判断为非法数据，Then子句输出相应信息 Label2.Caption = \输入数据有错！\
Else ? 若判断为合法数据，Else子句用辗转相除法求余数 r = m Mod n Do While r <> 0 m = n n = r r = m Mod n
第 37 页 共 32 页
Loop
? 循环结束后n中存放的就是最大公约数，输出n值 Label2.Caption = \最大公约数为：\ End If End Sub
3、参考代码如下：
Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) If x > 100 Or x < 0 Then Text2.Text = \ ElseIf x < 60 Then
Text2.Text = \不及格\ ElseIf x < 70 Then Text2.Text = \及格\ ElseIf x < 80 Then Text2.Text = \中等\ ElseIf x < 90 Then Text2.Text = \良好\ Else
Text2.Text = \优秀\End If End Sub
4、参考代码如下：
Private Sub Form_Load