珠穆朗玛峰简称“珠峰”,珠峰海拔约为8844米,是世界第一高峰。如果有一张足够大的纸(厚0.1毫米),对折多少次,纸张的厚度可以超过珠穆朗玛峰的高度?
程序如图:
program=["Java","Python","Visual Basic"]
for i in program:
print (i,len(i))
list1=[1,2,5, 6,9]
for item in list1:
print()
输入一个成绩,判断该成绩属于“优秀”、“良好”、“及格”还是“不及格”。
Private Sub Command1_Click( )
Dim x As Integer
x= (Text1.Text)
Select Case x
Text2.Text=“优秀”
Case x≧75
Case Else
Text2.Text=“不及格”
End Select
End Sub
Private Sub Command1_Click()
Dim x As Integer
x = Val(Text1.Text)
Select Case x
Case Is >= 450
Text2.Text = "优秀"
Case Is >= 400
Text2.Text = "良好"
Case Is > 350
Text2.Text = "中等"
Case Is >= 300
Text2.Text = "及格"
Case Else
Text2.Text = "不及格"
End Select
End Sub
语法错误:
该程序运行后,若在文本框中输入350,则输出为:

① ② ③ ④
Dim G As Integer
Dim M As Integer
Input “输入重量 G = ”; G
If then
M=0.65*G
Else
M=
End if
Print “运费为:”; M
|
s=0 For i in range()
print(“偶数和是:”,s) |
a=10, i=10
If i>10 then
a=a+i
Else
a=a-i
End if
| m= 1 m = m+ 5 n = 5 + m Print n ,m |
| a = 2 b = 3 print a > b |
| a=10 b=20 If a>b then Print a, b Else Print b, a End if |
| For k=15 to 1 step -5 Print k; next |
x=3
Select Case x
Case 5
Print "优秀"
Case 4
Print "良好"
Case 3
Print "通过"
Case Else
Print "不通过"
End Select
s = 0
For i = 1 To 3
s = s + i
Next i
a=int(input("请输入买苹果的斤数:")
if :
s=10*a
else:
s=8*a
print("苹果费用:"+str(s))
a=5
b=3
print(a*b)

Private Sub Command1_Click( )
a= Val(Text1. Text)
b= Val(Text2. Text)
IfThen
Max=
Else
Max=b
End If
Text3.Text=
End Sub

