3.3 简单算法及其程序实现 知识点题库

Private Sub Command1_Click()

Dim n,m As Integer

Dim ch,s As String

s = "01234567"

ch = ""

Do While n > 0

    m = n Mod 8

    n = n \ 8

Loop

Text2.Text = ch

End Sub

Private Sub jf_Click（）

Dim s As String, d As String, i As Integer

Dim f1 As Single, f2 As Single, f3 As Single

s = Text1.Text

i = 1

Do While   ①   

  d = Mid（ s, i, 3）

  If Mid（d, 1, 1）= "1" Then

    fI = fl + Val（Mid（d,  2, 2））

  Elself Mid（d, 1, 1）="2" Then

    f2 = f2 + Val（Mid（d,  2,  2））

  Else

    f3 = f3 + Val（Mid（d,  2, 2））

  End If

     ②   

Loop

Label1.Caption = "作品1平均分为："+Str（fl/5）+"作品2平均分为："+Str（f2/5）+"作品3平均分为："+Str（f3/5）

'以下省略“处理并列最高平均分,并在 Label2中输出选取的参赛作品”的代码

End Sub

①②

Dim a(1 To 32) As Integer

Dim b( 1 To 10) As Integer

Private SubCommand1_Click()

    '随机生成有解的数据，并在列表框

List1中输出，代码略

End Sub

Private Sub Command2_Click()

    Dim n As Integer， i As Integer， x As Integer

n=0

    For i= 1 To 32

        If a(i) = 0 Then

           n=n+1：b(n)=i

        End If

    Next i

    x=1

    Do While x<=n

        If a(b(x) ) = 0 Then

          If   ①   Then x= 0

        End If

        x=x+1

    Loop

    '将结果按规定格式在列表框List2中输出，代码略

End Sub

Function R check(x As Integer) As Boolean

    Dim count As Integer， sum As Integer， y As Integer， i As Integer

    check=False

    If a(x) <>0ThenExit Function

    count=0：sum=0：y=  ② 

    For i= 1 To 8

       If a(y*8+i) = 0 Then count =count+ 1

        sum=sum+a(y*8+i)

    Next i

    If count = 1 Then

        a(x)=   ③   ：R check=True

    End If

EndFunction

Function C check(x As Integer) As Boolean

    '用于验证是否为本列唯一空缺， 如果是则填入值并返回True， 否则返回False

    '实现上述功能的代码略

EndFunction

①②③

Private Sub Command1_Click( )

  Dim x As Double，y As Double

      ①    

  If x>150 Then

    Label1l.Caption="行李超重！"

  Else

    If   ②   Then

      y=0.35*50+0.5*（x-50）

    Else

      y=0.35*x

       ③   

    Label1.Caption="行李收费"+   ④   十"元"

  End If

End Sub

画线处应填入的代码为：①；②；③；④。

①给定24小时内的租赁起始时间和结束时间：输入租赁开始的时间和结束的时间。注：时间的输入格式为hh：mm：ss，如10：23：11。

②计算租车时间time：计算租车起始时间和结束时间的时间差time。

③计算租车费用pay：若time小于等于1，则pay为0；若，则pay为time；若time大于10， 则pay为10。

Stime=input('租车开始时间：')

etime=input('租车结束时间：')

#stime.split("：")[0]切出的是租车开始时间的时

#stimespli("：")[1]切出的是租车开始时间的分

#stime.split("：")[2]切出的是租车开始时间的秒

if int(etime. split("：")[0])>=int(stime.split("：")[0])：

time=int(etime. split(":")[0])-int(stime.spilt(":")[0])

if int(etime.split("：")[1]>int (stime.split(":"))[1)：

    time=time+1

elif int (etime.split(":")[1])= int(stime.split(":")[1]) and int(etime.split(":")[2]>= int(stime.split(":")[2])：

    time= time+1

if time<=1：

    pay=0

elif

    pay=time

else：

print(pay)

Private Sub Form_Click()

    Dim y, s, n As Integer

    n = InputBox("输入n")

    y = 0:

    Do While n \ 10 <> 0

        y = n Mod 10

        s = s + y

        n = n \ 10

    Loop

    Print s

End Sub

①处应填写：；②处应填写：。

① ② 

Dim a(1 To 1000) As Integer, n As Integer

Private Sub Command1_Click()

    Dim i As Integer, j As Integer

    Dim fz(1 To 16) As Integer     'fz数组存储信息各题满分值

    Dim b(1 To 33) As Double    '数组b存储全卷各题的平均得分

    For i=1 To 16    '数组fz存储信息16个小题的满分值   

        If i<= 12 Then fz(i)=2

        fz(13)=4 : fz(14)=8 : fz(15)=7 : fz(16)=7

    Next i

    For i=2 To n      '把数组a数据分别统计到各题中

        b(j)=a(i)+ b(j)

    Next i

    For i=1 To 33    '仅处理信息各题的平均分

        If i<= 12 Then

            b(i)=b(i) / (a(1) * fz(i))      ' 计算信息选择题各题的得分率

        ElseIfi>= 26 Andi<= 29 Then

            b(i)=

        End If

    Next i

    For i=1 To 16

        If i> 12 Then j=i+13 Else j=i

        b(j)=Int(b(j) * 1000+0.5) / 10      '对结果四舍五入保留1位小数

        List2. AddItem Str(i) 十Str(b(j))+"%"

        ave=

    Next i

    Text1. Text=Str(ave / 100)

End Sub

Private Sub Form_ Load()

    '读入数据到数组a，数据个数n，代码略

End Sub