B .
C .
D .
Dim a As Integer, b As Integer
a = Val(Text1.Text)
If a Mod 2 = 0 Then
b = a + 1
ElseIf a Mod 3 = 0 Then
b = a + 2
ElseIf a Mod 5 = 0 Then
b = a + 4
Else
b = a
End If
Label1.Caption = Str(b)
运行该程序,在文本框Text1中输入25,单击命令按钮Command1,在标签Label1中显示的是( )
执行该流程图,输出变量 s 的值是( )
Private Sub Command1_Click()
Dim i AS Integer
Dim As Long
For i = 1 To 100
s = s + i *(i+1)
Nest i
Text1. Caption = s
End Sub
Dim i As Integer,c As String,s As String,t As String
s=“China2014IT”:t=“”
For i=1 To Len(s)
c=Mid(s,i,1)
If c>=“a” And c<=“z” Then t=t+c
Next i
Label1.Caption=t
该程序段运行后,标签Label1中显示的内容是( )
Dim i As Integer, n As Integer, k As Integer, s As String n = Val(Text1.Text):k = 1: s = ""
Do While 2 ^k < n
k = k + 1
Loop
Do While n <> 0
If n >= 2 ^ (k -1) Then s = s + "1"
n = n - 2 ^ (k -1)
Else
s = s + "0"
End If
k = k - 1
Loop
For i= 1 To k
s = s + "0"
Next i
在文本框Text1输入12,执行该程序段后,变量s、k的值分别为( )
X=-5
A=val(inputbox(“请输入A的值:”))
Select case a
Case is>0
Y=x+1
Case is =0
Y=x+2
Case else
Y=x+3
End select
由图a可知,搭建数字“0”需要6根火柴,搭建数字“1”需要2根火柴……
小明编写Python程序实现:运行程序时,输入任意整数,执行后,输出搭建该数字所需要的火柴棍的数量。运行样例如图b所示。
请回答以下问题:
he = {'0':6, '1':2, '2':5, 13':5, '4':4,'5':5, '6':6, '7':3, '8':7,'9':6}
num = ①
s = input('请输入待搭建的数字: ↑)
for i in s:
num= ②
print('所需火柴棍的数量为: ', num)
① ②
while x !=0:
x = int(input("x="))
if (x%3)+x//3=5 : print("x="; x)
运行后,当第一次输入5、第二次输入11、第三次输入0后,在窗体上显示的结果是( )
num=input("请输入数字串:");c=0
for i in range(1,len(num)):
if
and f==False:
f=True
elif
and f==True:
c=c+1
f=False
print("有",c,"座数字山峰")
方框(1)(2)(3)的代码由以下部分组成:
①f=True ②f=False ③num[i-1]>num[i] ④num[i-1]<num[i]
下列选项中代码顺序正确的是( )
小王设计VB程序如下,在标签.上显示南岸城市的位置序号,例如“1,2,3,4,5,"(两岸城市序号之间用逗号分隔),然后按照南岸城市的顺序在Text1中输入相应的北岸友好城市序号“3,2,4,1,5,”,其中南岸1号城市与北岸3号城市为友好城市,南岸2号城市与北岸2号城市为友好城市,以此类推,单击“分析”按钮,显示最多可批准的申请数量为3个(如图16-2所示),最终政府批准的3条航道为南岸城市2-北岸城市 2,南岸城市3-北岸城市 4,南岸城市5-北岸城市5。
Private Sub Command1_ Click()
Dim b(1 To 100) As Integer 'b(i)表示编号i南岸城市对应的北岸友好城市
Dim c(1 To 100) As Integer
Dim n1, lenc As Integer
Dim i, j As Integer
Dim s1 As String
Dim st, ch As String
Dim flag As Boolean
n1=0
s1 = Text1. Text
st =""
For i = 1 To Len(s1)
ch = Mid(s1, i, 1)
If ch = "," Then
n1 = n1+1
st =""
Else
st=st+ch
End If
Next i
c(1) = b(1)
lenc = 1
For i=2 To n1
If b(i) > c(lenc) Then
lenc=lenc+1
c(lenc) = b(i)
Else
j=lenc-1: flag=True
Do While j>= 1 And flag
If Then
c(j+1)=b(i)
flag = Flase
End If
j=j-1
Loop
If j = 0 And flag Then
End If
End If
Next i
Label1. Caption = "最多批准申请数:" + Str(lenc) + "个"
End Sub
j = 1: p = 5
Do While p > 0
j = (j + k -2) Mod p + 1
s1 = s1 &j
s = Mid(s, 1, j -1) + Mid(s, j + 1)
p = p -1
Loop
已知s1的初值为""(空),下列选项关于s1的最终结果错误的是( )