
1图

2图
| W=float( input(输入体重(kg):") h= float( input("输入身高(m):")) bmi=w/(h*h) #BMI=体重(kg)/身高的平方(m) if bmi<18.5: print("偏瘦") elif 18.5<=bmi<24: print("正常") else: print("偏胖") |
下列说法正确的是( )

单击“百度一下”按钮后,出现在页面中的主要是( )
他在F5单元格中输入公式,能使用自动填充功能正确填充F5:F7区域,选择F5:F7区域后又能向右正确填充至F5:H7区域。则F5单元格输入的公式是( )
![]()
图a
图b
Private Sub Command1_Click()
Dim s As String, c As String, tmp As String
Dim i As Integer, cnt As Integer
Dim flag As Boolean
cnt=0 : flag = True
List.Clear: s = Text1.Text: Text1.text=""
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
tmp = tmp + ch
If Len(tmp) > 1 Then
If ① Then flag = False
End If
Else
If flag Then
List1.AddItem tmp: cnt = cnt + 1
Else
flag = True
End If
tmp = ""
End If
Next i
If flag Then List1.AddItem tmp: cnt = cnt + 1
If ② Then Text2.Text = "找不到" Else Text2.Text = Str(cnt)
End Sub
① ②
“11 456 7 4443 488 666666”,单击“筛选密码”按钮,文本框Text2中显示的内容是。

①数:正整数补码的数值即其二进制表示。
例:12的8位二进制表示00001100,最高位即符号位“0”表示正数。
②数:除符号位外,所有位取反,然后+1。
例:-5的8位二进制补码表示方法如下,5对应7位二进制数为0000101(原码),所有位取反后为1111010(反码),再加1后为1111011(补码),再设置符号位为1,因此-5用8位二进制补码表示为11111011。
小明设计了一个VB程序,点击“补码”按钮Command1,将文本框Text1中输入的整数n(-128≤n≤127)转换成相应的补码,并在文本框Text2中输出,程序运行界面如图所示,请将画线处的代码补充完整。

Private Sub Command1_Click()
Dim n As Integer,a As Integer,i As Integer
Dim m(1 To 8)As Integer
Text2.Text=" "
n=Val(Text1.Text)
If n>=0 Then
‘计算二进制原码
For i=8 To 2 Step-1
m(i)一n Mod 2
n=n\2
Next i
‘设置符号位
m(1)=0
Else
n=-n
‘计算二进制反码
For i==8 To 2 Step-1
m(i)= ①
n=n\2
Next i
‘加1计算
i=8
Do While m(i)=1
②
i=i-1
Loop
m(i)=1
‘设置符号位
m(1)=1
EndIf
‘输出结果
For i=1 To 8
Text2.Text=Text2.Text & m(i)
Next i
End Sub
① ②
Private Sub Command1_Click()
Dim n As Integer,S As Integer
s=0
n=Val(Text1.Text)
If n>1 Then
For i=1 To n
s= ①
If n=s Then
Label1.Caption=Str(n)+”是一个三角形数。”
Exit For
②
Label1.Caption=Str(n)+”不是一个三角形数。”
Exit For
End If
Next i
Else
Label1.Caption=”请输入一个大于1的正整数”
End If
End Sub
① ②
