A=input()
print(A * 5)
程序运行时,在文本框Text1中输入学号,单击“开始查询”按钮(Command1),在“查询结果”区域显示查询到的学生姓名和选考科目数据。
学校共有n名学生,数组a、b分别保存了所有学生的学号和姓名信息。数据库数据按学号从小到大排列,第i个学生的学号保存在a(i),对应的姓名保存在b(i),该学生的选考科目保存在c(i)中。
实现上述算法的VB程序如下,在程序划线处填入适当的代码,把程序补充完整。
Dim n As Integer, a( 1000 ) As String
Dim b ( 1000 ) As String
Private Sub Command1_Click ( )
Dim x As String, pos As Integer
Dim conn As New ADODB Connection, rs As New ADODB. Recordset
conn ConnectionString = “provider = Microsoft. ACE OLEDB. 12.0; data source = “ & App. Path &" \students. accdb”
conn. Open
Set rs. ActiveConnection = conn
rs.Open “学生信息”
n = 0 ‘考生数初始化
Do While Not rs. EOF
n=n+1
a(n) = rs Fields (0): b(n) = rs Fields (1): c(n) = rs Fields(2)
①
Loop
x= Text. Text
②
If pos > 0 Then
Text2 Text = b(pos):Text3 Text = c(pos)
Else
Text2.Text= “找不到” : Text3.Text =“”
End if
End Sub
Function Search(Key As string) As Integer
Dim i As Integer, j As Integer, m As Integer
i = 1: j = n: Search = 0
Do While i < = j
m = Fix((1+j) / 2)
If Key = a(m) Then
③
Exit Function
ElseIf a(m) > Key Then
j = m-1
Else
i=m+1
End If
Loop
End Function
① ② ③
For i = 1 To Len(Text1.Text)
c = Mid(Text1.Text, i, 1)
If c >= "0" And c <= "9" Then c = Chr(Asc(c) + 1)
If c >= "A" And c <= "Z" Then c = Chr(Asc(c) + 32)
s =s + c
Next i
若文本框Text1的内容为“Number 2468!”执行程序后,变量s的值为( )
30分钟以内不收费,1小时及以内收费5元,超过一小时后超过部分2元\小时收费(不足1小时的按1小时计算)。小明据此设计了以下VB程序,程序运行界面如图。
Private Sub Command1_Click()
Dim t As Integer , cost As Integer , h As Integer ‘h是小时时长
t=Val(Text1.Text)
If t <= 30 Then
cost=0
Else
h=(t-1)\60+1
If Then
cost=5
Else
cost=
EndIf
EndIf
Text2.Text=
EndSub
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
Text1.Text = Str(Sqr(a))
End Sub
程序运行时,单击命令按钮command1后弹出如图所示的错误信息提示。出现错误的原因是( )

下列说法正确的是( )
请输入出生年份,输入0结束:2004
你的生肖是:猴
请输入出生年份,输入0结束:
完善下列代码,实现上述功能.
def shengxiao(year):
#求生肖
zodiac=["鼠","牛","虎","兔","龙","蛇","马","羊","猴","鸡","狗","猪"]
#以下为主程序
myyear=int(input("请输入出生年份,输入0结束:"))
while myyear!=0:
print("你的生肖是:",)
myyear=int(input("请输入出生年份,输入0结束:"))
n=Val(Text1.Text)
s=""
flag=True
Do While n>0
⑴
n=n\10
If Not flag Or x>0 Then
⑵
flag=False
End If
Loop
If s="" Then s ="0"
Labe 11.Caption=s
方框中(1)和(2)应填入的代码顺序为( )
①x=nMod10^len(n) ②x=nMod10 ③s=Str(x)+s ④s=s+Str(x)
s=2
t=3
s=s+t
该程序段运行后,变量x的值是:( )