运算符、基本运算与表达式 知识点题库
a=4
b=7
a=a+b
b=a+b
实现上述功能的VB程序，如下请回答下列问题。
-
（1） 程序运行时，在文本框Text1输入“＃C50913”，则标签Label1上显示的内容是。
-
（2） 请在划线处填入合适的代码。
Private Sub Command1 _Click ( )
Dim i As Integer, y As Integer
Dim s As String, ans As string
Dim a As String
s = Text1. Text
a = Mid(s, i, 1)
y = 0
For i = 1 To 6
a = Mid (s, i , 1)
①
If i Mod 2 = 1 Then
y = m
Else
②
ans = ans + str(y)
If ③ Then ans = ans + ","
y = 0
End If
Next i
Label2. Caption = “RGB (“+ ans +”)”
End sub
Function HtoD(x As String) As Integer ‘将一位十六进制数转换为十进制数
code = "0123456789ABCDEF”
j = 0
Do While j < = 16
j = j +1
If x = Mid(code, j, 1) Then Exit Do
Loop
④
End Function
① ② ③ ④
For i = 1 To 6
a(i) = Int(Rnd*10) + 1
Next i
For i = 1 To 5
If i Mod 2 = 1 And a(i) > a(i + 1) Then
t = a(i): a(i) = a(i + 1): a(i + 1) = t
Else
a(i) = a(i) + 1
End if
Next i
执行该程序后，数组a各元素可能是（ ）
X=16
If X<0 then
Y=abs(X)
Else
Y=sqr(X)
End if
写成VB表达式，正确的是（ ）
a=2：b=5
If b>=a Then a=a+2
b=b+2
If b Mod 2=1 Then b=b*a+1
Text1.Text=Str（b）
程序运行后，文本框Text1上显示的内容为。
s="A1B2C3"
ans=""
For i=1 To Len（s）
ch=Mid（s, i, 1）
If i Mod 2=1 Then ans=ans+ch
Next i
-
（1） 根据题意，一张纸的厚度为h，对折k次后，纸的厚度为。
-
（2） 描述本题算法的流程图如图所示，则流程图中①②处应该填写的内容分别是：① ②
⑴海伦公式是利用三角形的三条边的边长直接求三鱼形面积的公式，表达式为 
其中P是三角形的周长的一半。
⑵请填空完善该程序，输入三条边长，判断能否构成三角形。如果能构成三角形就计算该三角形的面积并输出，否则提示不能构成三角形。
import math
a=float(input("请输入第一条边长："))
b=float(input("请输入第二条边长："))
c=float(input("请输入第三条边长："))
if(a+b>c)and(a+c>b)and( ① ):
p= ②
s=math.sqrt(p*(p-a)*(p-b)*(p-c))
print(a,b,c,"能构成三角形！","三角形的面积为:", ③ )
④ :
print(a,b,c,"不能构成三角形！")
