4.1.2 Python的数据类型 知识点题库

Dim n As Integer

Dim gz(1 To 20) As Integer

Private Sub Command1_Click()

Dim dfa As Integer, dfb As Integer

Dim ta As Integer, tb As Integer

Randomize

For i = 1 To 2 * n

 gz(i) = Int(Rnd* 9 + 1)

 List1.AddItem “gz(“ & i & ”)” & gz(i)

Next i

num = 1

For j = 1 To 2 * n

 ta = j

 dfa = zwdf(ta, True)

 For k = 1 To 2 * n

    tb = k

    If dfa = dfb Then

     List2.AddItem num & “甲队员(“ & j &”)得分=” & dfa & “乙队员(“ & k & ”)得分=” & dfb

     num = num + 1

    End If

 Next k

Next j

List2.AddItem “获胜的站法共有:”++ “种”

End Sub

Function zwdf(p As Integer, r As Boolean) As Integer

Dim fs As Integer

If r = True Then

    fs = fs + gz(i)

  Next i

Else

  For i = p To 2 * n

  fs = fs + gz (i)

  Next i

End If

zwdf = fs

End Function

Dim a(1 To 30)As Integer, b(1 To 30) As Integer, ans (1 To 60) As Integer

Dim La As Integer, Lb As Integer, length As Integer

Private Sub Command1_Click()

Dim i As Integer, j As Integer, t As Integer, temp As String

'将两个乘数(正整数)各数位上的数字按照上述算法依次存入数组a和b，每个正整数位数分别保存到变量La和Lb；将保存结果的数组ans(i)值初始化为零(该部分程序代码略)

For i=1 To Lb   

For j=1 To La

ans(i+j-1) =

Next j

Next i

For i=1 To La+Lb  

ans(i+1)=ans(i+1)+ans(i)\10

ans(i)=

Next i

length=La+Lb

Do While ans(length)=0

length=length-1

Loop

For i= To 1 Step -1

Label4.Caption=Label4.Caption&Str(ans(i))

Next i

End Sub

Const n=5000

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为原始记录数

'读取原始k条记录的数据，依次存入a（1），b（1），a（2），b（2）…a（k），b（k），代码略

a（0）= 0：b（0）=0：sp=k +1：a（sp）=10000：b（sp）=0

Private Sub Command1_Click（）

Dim i As Integer

c=Val（Text1.Text）    'c 为放回的牌号

i=1

Do While a（i）<c     '查找牌c放的位置

    i=i+1

Loop

i=i-1

'下面为放牌过程

If a（i）+ b（i）=c Then

    If     ①   Then  '第4种情况，上下靠

        b（i）=b（i）+1+ b（i+1）

        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

Elself c+ 1=a（i+1）Then'第2种情况，下靠

    a（i + 1）=c：b（i+1）= b（i+1）+1

Else           '第3种情况，上下不靠

    For j=    ②  

        a（j）=a（j-1）：b（j）=b（j-1）

    Next j

    a（i+1）=c：b（i+1）=1：sp=sp+1

End If

'下面为输出登记的记录，不包括虚设的两条记录

For i=1 To   ③     

    List3.Addltem“第”&Str（i）&“记录（”&Str（a（i））&“，”&Str（b（i））&“）”

Next i

End Sub

①②③

import matplotib. pyplot as plt

def track(file)：     #绘制GPS坐标轨迹

     jd=[ ]      #经度

     wd=[ ]       #纬度

     for line in open(file)：

         #切分行数据生成列表

         line_data=line. split('，')

         #取轨迹坐标

         jd. append(x)

         wd. append(y)

     plt. plot(jd, wd)

filename='Taxi_ 105. txt'

track(filename)

plt. show( )

Const n=1000，m=50

Dim a(1 To n)As Integer, b(1 To m)As Integer

Function getImax(k As Integer)As Integer

    ‘在数组元素b(1)~b(k)中找出值最大的元素，返回其下标，代码略

End Function

Private Sub Commandl_Click( )

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

    Dim na As Integer, nb As Integer, imax As Integer, mean As Integer

     ‘读取数据分别存入数组a、b，代码略

    na=n : nb=m

    imax=getImax(nb)

    For i=1 To m

        If a(na)<= Then

            b(imax)=b(nb)

            nb=nb-1

            If nb>0 Then imax=getImax(nb)

        Else

            na=na-1

        End If

    Next i

    Do While nb>0

        i=1 : j=na

        imax= getImax(nb)

    Do While i<=j

        mean =(i+j)\2

        If a(mean)<b(imax) Then i= mean +1 Else j=mean-1

    Loop

        For k=na To 1 Step-1

        Next k

        a(i+nb-1)=b(imax)

        b(imax)=b(nb)

        nb=nb-1

    Loop

    '输出数组a，代码略

End Sub