Private Sub command1_click()
Dim A As Single, B As Single, C As Single, S As Single, V As Single
A =
("A=", "输入长")
B = InputBox("B=", "输入宽")
C = InputBox("C=", "输入高")
S = 2 * (A * B + A * C + B * C)
V =
Print "全面积S=";
; "体积V="; v
End Sub
[每空3分]
答案：["Inputbox","A * B * C","a*b*c","A*B*C","s"]
26、【
填空题
】 完善下列程序，在空白处填入正确的答案
Private Sub command1_click()
Dim x As Integer
x = InputBox("请输入学生成绩")
Select Case
Case
>= 90
Print "优秀"
Case 80
89
Print "良好"
Case 70 To 79
Print " 中等"
Case 60 To 69
Print "及格"
Case Else
Print "不及格"
End Select
End Sub
[每空2分]
答案：["x","is","to"]
27、【
填空题
】 当初值小于终值时，步长为
数；当初值大于终值时，步长为
数
[每空1分]
答案：["正","负"]
28、【
填空题
】 求100+98+96+....+2的和：
Dim i as integer, s as integer
S=0
For i=
to
Step
s=
Next i
Print s
[每空1分]
30、【
填空题
】 求解 1 – 2 + 3 － 4 + …… + 99－100 的和，在空白处填入正确答案
Private Sub Command1_Click()
Dim i As integer, S As integer
S =
For i =
To
s = s + ( -1 )^(i + 1) *
Next
Print “S ＝"; S
End Sub
[每空1分]
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00