4.1.1 Python的常量和变量 知识点题库

Dim ach(1 To 500) As String     '存储各学生选课编码

Dim bno(1 To 10) As Integer     '存储各科目编号

Dim bname(1 To 10) As String    '存储各科目名称

Dim bnum(1 To 10) As Integer    '存储各科目被选次数

Dim bmc(1 To 10) As Integer     '存储各科目被选的名次

Dim n As Integer, num As Integer

Private Sub Command1_Click()

Dim i As Integer, km As String

km = "物理化学生物政治历史地理技术"

Dim cn As New ADODB.Connection, rs As New ADODB.Recordset, sql As String

cn.Open "provider=Microsoft.Jet.oledb.4.0;Data Source=" + App.Path + "\students.mdb"

rs.Open "select * from choose", cn

Do While Not rs.EOF

n = n + 1 : ach(n) = rs.Fields("subject") : rs.MoveNext

Loop

rs.Close

cn.Close

Set rs = Nothing

Set cn = Nothing

For i = 1 To 7

bno(i) = i

bname(i) = Mid(km, (i - 1) * 2 + 1, 2)

   List2.AddItem Str(bno(i)) + "---" + bname(i)

Next i

End Sub

Private Sub Command2_Click()

Dim i As Integer, j As Integer, k As Integer

Dim c As String, per As Integer

For i = 1 To n

If check(ach(i)) = True Then

For j = 1 To 3

c = Mid(ach(i), j, 1)

bnum(Val(c)) =      

  Next j

num = num + 1

End If

Next i

i = 1

Do While i <= 7'该循环得到各学科被选人数的名次

bmc(i) = 1

For j = 1 To 7

If bnum(j) >bnum(i) Then      

Next j

i = i + 1

Loop

For i = 1 To 7

For j = 1 To 7

If        Then

per = Int(bnum(j) * 100 / num * 100) / 100

List3.AddItem Str(bno(j)) + "---" + bname(j) + "---" + Str(per) + "%"

End If

Next j

Next i

End Sub

Function check(s As String) As Boolean

   '代码略! 若学生选科代码有效,函数返回True,否则返回False

End Function

Private Sub Command1_Click()

 Dim a As Integer, s As String

 Dim n As Integer, t As Integer, v As Integer

 n = Val(Text1.Text)

 t = 0

 s = ""

 Do While n > 0

a = n Mod 2

n = n \ 2

t=①

s = "Str(a)" + s

 Loop

 v = t Mod 2

 Text2.Text = s

 Label3.Caption = "校验位值：" +②

End Sub

Const n=1000

Dim a（0 To n）As Integer     ‘a(i)保存第i条记录的开始房间号

Dim b（0 To n）As Integer     ‘b(i)保存第i条记录的房间数

Dim c As Integer, k As Integer, sp As Integer      ‘k为原始记录数

Private Sub Form_Load()

‘程序启动时从数据库中读取原始k条记录，依次存入a（1），b（1），a（2），b（2），…，a（k），b（k），代码略

‘为了程序处理方便，虚设下面两条记录

A(0)=0: b(0)=0: sp=k+1: a(sp )=1000: b(sp)=0

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer

c=Val(Text1.Text)

i=1

Do While a(i)<c

i=i+1

Loop

i=i-1

‘以下处理退房登记问题

If a(i)+b(i)=c Then

If a(i+1)=c+1Then    ‘处理第3种情况

    ①   

For j=i+1 To sp-1

a(j)=a(j+1):b(j)=b(j+1)

Next j

sp = sp-1

Else     ‘处理第1种情况

b(i)=b(i)+1

End If

ElseIf c+1=a(i+1)Then      ‘处理第2种情况

a(i+1)=c: b(i+1)=b(i+1)+1

Else     ‘处理第4种情况

For j=    ②   

a(j)=a(j-1): b(j)=b(j-1)

Next j

a(i+1)=c: b(i+1)=1:    ③   

End If

List1.Clear

For i=1 To sp-1

List1.Addltem"第" & CStr(i)  & "条记录" & CStr(a(i)) & "_" & CStr(b(i))

‘CStr函数的作用是将数字转成字符串

Next i

End Sub

① ② ③ 

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Dim a (1 To 13) As Integer, max As Integer, t As Integer, last As Integer

Dim sa As String, stem As String, flag As Boolean

Const s="34567890JQKA2"       '用0代替牌10

'发牌和洗牌代码略，在标签Label1显示初始牌型，洗牌后数组a各元素分别存储牌型3～2的数量

t=17      '刚开始牌有17张

Do While t>0      '打牌

flag=True

Do While flag   '寻找牌中有没有顺子牌

max =0: k =1: flag=False

For i=1 To 13

If   ①   Then

k=k+1

If k > Max Then

 Max = k

Last = i+1     '记录连续牌的最后一张

End If

Else

k=1

End If

Next i

If Max >= 5 Then '有顺子牌,把最长的这把顺子打出来

flag=True: sa= ""

For j =    ②    To last

Stem=Mid(s, j, 1)

sa=sa +stem+ ""

a(j)=a(j)-1

Next j

List1.AddItem sa     '顺子在列表框显示

t=t-max

End If

Loop

For i= 1 To 13     '出4个一样的牌

If a(i)=4 Then

stem=Mid(s, j, 1)

List1.AddItem stem+stem+stem+stem

a(i)=0

   ③  

End If

Next i

'3张、2张、单张出牌,具体代码略

Loop

End Sub

① ② ③ 

Const m = 6

Const n = 5

Dim a(1 To (m + 1) ∗ n) As Integer

Private Sub Form_Load()

'数组初始化，生成 m×n 个两位数的随机整数并赋值给数组a

 Randomize

For i = 1 To m ∗ n

 a(i)=    ①    

Next i

End Sub

Private Sub Cod1_Click()

Dim i As Integer, j As Integer

For i = 1 To n

    ②    

Next i

'将计算后数据，按 m + 1 行，n 列输出到列表框中，代码略

End Sub

Function sum(y As Integer) As Integer         '函数功能是计算每列数据和

sum = 0

For i =     ③     

 sum = sum + a(i)

Next i

End Function

① ② ③

Const MIN_ASC = 65       ′字母“A”的ASCII值

Function X2D(x As String) As String     ′字符串小写转成大写

Dim s As String, zf As String, i As Integer

s = “”

For i = 1 To Len(x)

zf = Mid(x, i, 1)

If zf >= “a” And zf <= “z” Then

            s = s +

Else

      s = s + zf
          End If
    Next i
    X2D = s

End Function

Private Sub Command1_Click()

Dim M As String, K As String, C As String, flag As Boolean

Dim i As Integer, t As Integer, ch As Integer, pos As Integer, j As Integer

M = Text1.Text             ′明文

K = Text2.Text              ′密钥

t = Len(K)

K = X2D(K)                   ′将密钥全部转成大写

C = “ ”                      ′加密后的结果

For i = 1 To Len(M)

ch = Asc(Mid(M, i, 1))

flag = False

If ch >= 97 And ch <= 122 Then ch = ch - 32: flag = True

  pos =                ′密钥的字符位置值

If pos = 0 Then pos = t

      j = Asc(Mid(K, pos, 1))               ′密钥字符的ASCII值

     ch = ch - MIN_ASC

     j = j - MIN_ASC

      ch =

      ch = ch + MIN_ASC

  If flag Then ch = ch + 32         ′设置字母的大小写形式

     C = C & Chr(ch)

Next i

Text3.Text = C

End Sub