解析算法及程序实现 知识点题库

Private Sub Command1_Click()

Dim s As Single, x As Single, n As Integer, i As Integer

Randomize

List1.Clear

s =

n = Val(Text2.Text)

For i = 1 To n - 1                 '通过循环语句产生n-1个红包的随机值

   x = Int((Rnd() * s / () + 0.005) * 100) / 100 

   List1.AddItem  Str(x)

   s =

Next i

  x = Int((s + 0.005) * 100) / 100        '产生最后一个红包

List1.AddItem Str (x)

End Sub

Private Sub Command1_Click()

Dim a As Integer, b As Integer

Dim i As Integer, n As Integer

Dim c1 As String, s1 As String

Dim c2 As String, s2 As String

Dim c3 As String, s3 As String

List1.Clear

s1 = "甲乙丙丁戊己庚辛壬癸"

s2 = "子丑寅卯辰巳午未申酉戌亥"

s3 = "鼠牛虎兔龙蛇马羊猴鸡狗猪"

n = Val(Text1.Text)

For i = n To

   a = (i + 6) Mod 10

   b = (i + 8) Mod 12

   c1 = Mid(s1, a + 1, 1)

   c2 = Mid(s2, b + 1, 1)

   c3 = Mid(s3, b + 1, 1)

   List1.AddItem + "年" + c1 + c2 + " " + c3

Next i

End Sub

Dim m As Integer

Private Sub Command1_Click() 

Dim n As Integer, s As Integer

Dim w As Single, f As Single

n = Val(Text1.Text)              '输入大人人数n

w = Val(Text2.Text)             '输入重量w

f = 20 * n + 10 * w              '计算无优惠的费用f

s = 0

For i = 1 To m                            '计算桔子总数

 s = s + i * i

Next i

If  s=  Then  '判断是否拿到优惠计算费用

     f = f * 0.5 + s * 0.3'计算优惠后的费用

     Label7.Caption = "恭喜你，这是优惠后的费用！"

Else

     Label7.Caption = "很遗憾，你没有算对哦！"

End If

Label4.Caption = Str(f)        '输出最后的费用f

End Sub

Private Sub Form_Load()

Randomize

m =               '随机产生15层及以内的桔子层数不含0

Text3.Text = Str(m)

End Sub

Dim m As Integer   ' 学生人数

Dim score(1 To 3000) As Integer  ' 存放学生分数

Dim xm(1 To 1000) As String  ' 存放学生姓名

Private Sub Command1_Click()

Dim i As Integer, t As Integer, code As Integer, mc As Integer

Dim a(0 To 100) As Integer  '存放每个分数的个数

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

Dim code_n(1 To 3) As String

code_n(1) = "游泳" : code_n(2) = "跑步" : code_n(3) = "跳远"

code = Val(Text1.Text) 

For i = 0 To 100

  a(i) = 0

Next i

sum = 0

For i = 1 To m  '计算每个分数的个数及体能测试优秀的人数

  t =      ①       

  a(score(t)) = a(score(t)) + 1

  If score(t) >= 90 Then sum = sum + 1

Next i

mc = 1

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

  If a(i) <> 0 Then

    b(i) = mc

    mc =       ②          

  End If

Next i

List2.Clear

List2.AddItem " 姓名  " +        ③          + "  名次"

For i = 1 To m

  '在List2中输出m个学生的姓名、指定项目的分数及名次，代码略

Next i

sum = Int(sum / m * 10000 + 0.5) / 100

Label2.Caption = "优秀率是：" + Str(sum) +"%"

End Sub

Private Sub Form_Load()

’从数据库读取姓名存入数组xm，体能测试数据存入数组score，总人数存入变量m。

’代码略

End Sub

①②③

Private Sub Command1_Click()

Dim a(1 To 51) As Integer, b(1 To 51) As Integer, c(1 To 51) As Integer Dim lens1 As String, lens2 As String

lens1 = Len(Text1.Text) ：lens2 = Len(Text2.Text)

For i = Len(Text1.Text) To 1 Step -1    ‘读取数据，逐位保存在数组中

    a(i) = Mid(Text1.Text, lens1 - i + 1, 1) Next i

For i = Len(Text2.Text) To 1 Step -1

    b(i) = Mid(Text2.Text, lens2 - i + 1, 1) Next i

For i = 1 To 51     ‘从个位到高位逐位求和

    c(i) = 

    If c(i) > 9 Then

        c(i) = c(i) - 10

        c(i + 1)= 

    End If Next i

f = False  '从左到右输出第一个不为 0 的元素开始从高位到低位输出和

For i = 51 To 1 Step -1

    If c(i) <> 0 Then f = True

    If f Then Text3.Text = Text3.Text & c(i) Next i

End Sub

Private Sub Command1_Click()

Dim msg As String, c As String, tmp As String, s As String, flag As Boolean msg = Text1.Text

msg = msg + "/" '标记字符串结束符

tmp = "" s = ""

flag = True

For i = 1 To Len(msg)

    c = Mid(msg, i, 1)

        If ① Then flag = False

        tmp = tmp + c

        ElseIf flag = False Then s = s + tmp + ","

        tmp = ""

        ②

    End If

  Next i

  Text2.Text = s

End Sub

Private Sub Command1 _Click( )

Dim key As String

Dim a As Integer, b As Integer, ans As Integer, ch As String

key =Text1.Text

i=1

Do While i <= Len (key)

    ch Mid(key, i, 1)

    If ch>= “0” And ch < = “9” Then

           ①   

    Else

        Exit Do   ‘退出循环

    End If

Loop

a=   ②  

b= Val (Mid（key,+1, Len (key)-i）)

ans =a +b

Label1. Caption= “算式计算结果为: “+str(ans)

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 y As Integer, r As Integer

Dim s As String, t As String

t = "0123456789ABCDEF"

s = ""

y = ①

Do While y > 0

 r = y Mod 16

 s = ②

 y = ③

Loop

Label2.Caption = Text1.Text + "转化成十六进制数为：" + str(s)

End Sub

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

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

a=flat(input("输入第一个数：")

ch=

b=float(input("输入第二个数："))

if ch== "+"：

    print(a，ch，b，"="，a+b)

elifch=="-"：

    print(a，ch，b，"="，a-b)

elif ch == *"：

    print(a，ch，b，"="，a*b)

elif ch == "/"：

    if

        print(a，ch，b，"="，a/b)

    else：

        print("除数不能为0")

else：

print("运算符不正确")

flag=False

pgj=7.02    #配股价

bili=0.19    #每股配股比例

spi-flatinput("请输入除权登记日收盘价：")

num =floatinput("请输入持有的股份数：")

cqj =     ①            #配股除权价

maxps= num*bili      #最大配售量

if      ②       :

    flag=True

if flag ：

    print("配股除权价"， cqj，"最大配售量：" ，int(maxps)+1)

else：

    print("配股除权价："， cq，"最大配售量：" ，nt(maxps))

① ②