图a
图b为标准ASCII码表供你参考(其中ASCII为1-32,127的字符为特殊符号,不能用作密码):
图b
实现上述功能的VB程序代码如下,请回答以下问题:
①H2?N64Aj ②[26wv9,Q ③$14G/uv ④zX}rb!T&}d2
Private Sub Command1Click()
Dim t As Integer
Dim a(1 To 4) As Integer
flag = True
n = 0
pwd = ""
Randomize
Do While flag
t = ' 随机生成33-126的ASCII码
pwd = pwd + Chr(t)
s = 0
For i = 1 To 4
s = s + a(i)
Next i
n = n + 1
If n >= 6 And s = 4 Then
Loop
Text1.Text = pwd
End Sub
‘ 获取字符类型:1-小写字母,2-大写字母,3-阿拉伯数字,4-符号
Function check(x As Integer) As Integer
If x >= 97 And x <= 122 Then
check = 1
ElseIf x >= 65 And x <= 90 Then
check = 2
ElseIf x >= 48 And x <= 57 Then
check = 3
Else
check = 4
End If
End Function
图1
图2
图3
图4
>>> world=“world”
>>> print(“hello”,world)
b=0
For a=1 To 10
b=a+b
a=a+3
Next a
c=a+b
执行该程序段后,变量c的值为( )
解决此问题可采用自底至顶分析的方法。如图a所示的数塔中,先从第3层开始分析:如果路径经过第3层的第1个数字12,那么从12到尾结点的路径上数字之和的最大值是当前结点值加上该结点左下方、右下方结点中的较大值,记作f(3,1)=12+141同理,f(3,2)=7+15、f(3,3)=26+15:再分析第2层,计算f(2,1)、f(2,2):最后计算出第1层f(1,1),即为所求结果。
Const n= 5
Dim a(1 To n^2) As Integer ‘数组a存储数塔数据,存储结构如图c所示
Dim f(1 To n^2) As Integer ‘数组f存储从第i层第j个数到底层尾结点的最大数字之和,其存储结构与数组a一样
Private Sub Command2Click()
‘生成数塔,将数据存入a数组中,代码略
End Sub
Private Sub Command2Click()
Dim i As Integer, j As Integer, k As Integer
For j=1 To n
f((n-1)*n+j)=
Next j
For i=
For j=1 To i
k=(1-1)*n+j
f(k)=
Next j
Next i
Label1.Caption=“路径上的数字和最大值为:"+Str(f(1)
End Sub
Function max(a As Integer, b As Integer) As Integer
If a>b Then max=a Else max=b
End Function