[学习、习题] 30道编程题 [推广有奖]

0关注
2粉丝

已卖：103份资源

初中生

57%

还不是VIP/贵宾

威望: 0 级
论坛币: 5 个
通用积分: 14.7323
学术水平: 0 点
热心指数: 0 点
信用等级: 0 点
经验: 46 点
帖子: 0
精华: 0
在线时间: 36 小时
注册时间: 2018-4-2
最后登录: 2025-7-11

楼主

lightssn 发表于 2024-9-26 14:31:13 |AI写论文

是否 +2 论坛币

k人参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

30 道编程题
(1)选择结构（1~6） (2)循环结构（7~18） (3)数组（19~25）          (4)过程（26~30）
1.输入 3 个数，输出最大的数
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, max As Integer
a = Text1.Text
b = Text2.Text
c = Text3.Text
If a > b Then
max = a
Else
max = b
End If
If c > max Then
max = c
End If
Print max
End Sub
                        6
                     23
2.有一元二次方程：aX2+bX+c=0，依次输入 a，b，c，判断此方程是否有实根
                  89
Private Sub Command1_Click()
Dim a As Integer
               42 ...