4.1.3 Python的运算符与表达式 知识点题库

Function Code2Char(c As Integer) As String

Dim s As String

s=“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”

Code2Char=

End Function

Private Sub Command1_Click()    ‘加密过程

Dim n As Integer, s As String, i As Integer, ss As String

Dim a1 As Integer,a2 As Integer,a3 As Integer    ‘存储加密前字符的ASCII码

Dim b1 As Integer,b2 As Integer    ‘分别存储分割、转换后的前两个十进制数

Dim b3 As Integer,b4 As Integer    ‘分别存储分割、转换后的后两个十进制数

s = Text1.Text : n= Len(s) : ss =“”

For i = 1 To n

 a1 = Asc(Mid(s, i, 1))

 a2 = Asc(Mid(s, i+1,1))

 a3 = Asc(Mid(s, i+2,1))

 b1 = a1 \ 4

 b2 = (a1 Mod 4) * 16 + (a2 \ 16)

 b3 =

 b4 = a3 Mod 64

 ss = ss + Code2Char(b1) + Code2Char(b2) + Code2Char(b3) + Code2Char(b4)

Next i

Text2.Text = ss

End Sub

Dim sName (1To50) As string    ‘ 存放学生姓名

Dim sScore (1To50) As Integer    ‘ 存放学生分数

Dim recCount As Integer    ‘ 存放学生人数

Private Sub Form_Load ( )

‘ 本过程从数据库中读取学生数据,存储在相应的变量中,并在List1中显示

‘ 代码略

End sub

‘ 整数转换成长度固定的字符串

Function ads (x As Integer, n As Integer) As string

Dim sx As String, nx As Integer, i As Integer

sx = Str (x):nx = Len (sx)

For i =1 To n-nx

  sx = “”+ sx

Next i

      ①     

End Function

Private Sub Command1_Click ( )

Dim A (0 To 100) As Integer    ‘存放每个分数的个数

Dim B (0 To 100) As Integer    ‘存放每个分数的名次

Dim mc As Integer, score As Integer, i As Integer

For i = 0 To 100

  A(i) = 0

Next i

For i = 1 To recount ‘ 计算每个分数的个数

       ②      

Next i

mc = 1

For i = 100 To 0 step -1    ‘ 计算每个分数的名次

  If A(i) <> 0 Then

    B(i) = mc

         ③      

  End If

Next i

List2. clear

List2. AddItem “姓名  分数  名次  ”

List2. Additem “------------------------------”

For i = 1 To recCount

  score = sScore(i)

  mc = B (sScore(i))

  List2. AddItem sName(i) + ads ( score,5) + "第" + ads(mc,3) + "名”

Next i

End sub

① ② ③ 

Const n = 6

Dim a(1 To n * n) As Integer

Private Sub Form_Load()     '产生 n * n 个数组元素，每行按 n 个数显示在 list1 中

For i = 1 To n * n

     a(i) = Int(Rnd * 90) + 10

     s = s + Str(a(i))

If       ①        Then  

List1.AddItem s   

s = ""

      End If

Next i

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, w As Integer, s As String

   For i = 1 To n * n

       k = i

For j = k + n To       ②        

           If a(k) > a(j) Then k = j

       Next j

       If  Then t = a(k): a(k) = a(i): a(i) = t

   Next i

'将排序后数组 a 的元素，按每行 n 个数显示在 list2 中，代码略

End Sub

① ② 

t=int(input("请输入您本月累计运动时间（时）："))

if t<0:

    print("输入错误")

else:

    if t<30:

    elif t<45:

        m=300

        m=450

    else:

        m=500

    print("您的奖励是：",m)

输入桃子数量n

count←n

while    

count = count + n // 3

输出("小明总共能吃到：", count, "个桃子")