s1 = "abcde"
j = 1
s2 = "a"
For i = 1 To Len(s1)
j = (j + 2) Mod Len(s1) + 1
s2 = s2 + Mid(s1, j, 1)
Next i
Text1. Text = s2
执行该程序段后,文本框Text1中输出的内容是( )
sum=1
for i in range(1, 5):
sum=sum*i
print(sum, i)
程序的运行结果为( )。
①Sqr(Abs(-4)) Mod 3 + 5
②Fix(-8.8)\3*2
③Int(-11.2)\3*2
④3 ^ 2 - Len("1+1=2")
Private Sub Command1_Click()
Dim i As Integer
Dim x As Integer
Dim s As String
Randomize
i = 1: s = "1"
Do While i <= 6
x = Int(Rnd * 9) + 1
If x Mod 2 = i Mod 2 Then
s = s + Str(x)
i = i + 1
End If
Loop
Label1.Caption = s
End Sub
运行程序后,标签Label1中可能出现的是( )

Private Sub decrypt_ Click()
Dim g,n,U,y,hkey As Integer
Dim mw, xx As string
Dim a(1 To 100) As Integer
Dim i, L As Integer, c As String
'经与小明的协商,小红已获得g,n,U,y的值
g=2:n=7 '约定两个数g和n的值分别为2和7
U=2:y=5 '小红随机生成的数y的值为5
mw = Text1.Text '小明的密文,由数字和逗号组成
hkey = ①
L=1
For i = 1 To Len(mw)
c = Mid(mw, i, 1)
If
Then
a(L)=a(L)*10+Val(c)
Else
L= ②
End If
Next i
For i=1 To L
a(i) = a(i) Xor hkey
③
Next i
Text2.Text = xx
End Sub
① ② ③
其中顺序码表示在同一地址码所标识的区域范围内,对同年、同月、同日出生的人编定的顺序号,顺序码的奇数分配给男性,偶数分配给女性。校验码是根据前面十七位数字码计算出来的检验码。
示例1:对于id_num='330281201010310640',返回(2010-10-31, 女)
示例2:对于id_num='330281200605302813',返回(2006-05-30, 男)
现在设计一个自定义函数,根据输入的身份证号,输出该公民的出生日期和性别。
以下代码能够实现上述功能。
def id_Inf(id_num):
birthday = id_num[6:10] + '-' + id_num[10:12] + '-' + ①
sex = '女男'
r = ②
return [birthday, sex[r]]
id_num='330281202002020648'
birthday, sex = id_Inf (( ③ ))
print(birthday, sex)
① ② ③
Private Sub Command1_Click( )
Print “5个数34、124、68、73、352的最大值是:”
Max1 = max(34,124,68)
Max1 =
Print Max1
End Sub
Public Function max(ByVal a%,ByVal b%,ByVal c%)
If Then
M = a
Else
M = b
End If
If Then
Max = m
Else
End If
End Function
ls=[[1,2,3],[[4,5],6],[7,8]]
print(len(ls))
a=input(“请输入a的值:”)
print(a*3)
假如从键盘输入5,则运行结果为( )
For i=1 To Len(s1)
c= Mid(s1, i, 1)
j=1
Do While j <= Len(s2)
If c=Mid(s2, j, 1) Then
s2=
Exit Do '退出 Do循环
Else
j=j+1
If j=Len(s2)+1 Then
Label1.Caption="不可以归为一类!"
Exit For '退出For循环
End If
End If
Loop
Next i
If i=
Then Label1.Caption="可以归为一类!"
加框处应填写的代码是( )