相关试卷

1、以下关于数据的说法正确的是（）

A、数据就是信息，信息就是数据 B、数据就是数值或者数字 C、数据对我们生活和学习的影响越来越大 D、数据是计算机被发明之后产生的，所以在古代没有数据

查看解析
2、某学校要对班主任进行满意度调查，有20个评分项（为方便程序处理，评分项具体的名称本题中不显示，仅以序号代替），每个评分项学生可以打A、B、C 三个等级中的一个，现在已经收集所有学生对班主任的评价，为了保证隐私，不显示学生姓名，只显示班级，并存储在数据库的表中，点击command2（读取数据），读取原始数据显示在左侧list1中，左侧列表显示的原始评价数据第一条表示高二（01）班有1位同学在第9项给班主任打A，依次类推，点击command1（统计），统计出各项目的评价统计（A+B所占的百分比）。

(1)、根据以下代码可知，本程序访问的数据库名称是

(2)、完成划线处的代码填空：
Dim classname(1 To 8000) As String       '存储原始数据中的班级名称

Dim selectabc(1 To 8000) As String        '存储原始数据选项的值

Dim xiangmu(1 To 8000) As String         '存储原始数据选项的序号

Dim n As Integer

Private Sub Command2_Click()             '从数据库读取数据，并且按班级名称排序

Dim conn As New ADODB.Connection

conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source="&App.Path&"\pingjia.accdb"

conn.Open

Dim rs As New ADODB．Recordset

Set rs.ActiveConnection = conn

rs.Open "select * from data"

n = 0' 记录评价的总条数

'读取数据，并按班级排序，代码略

End Sub

Private Sub Command1_Click()

Dim cstart(1 To 50) As Integer       '存储每个班级在数组classname中的起始位置

Dim cend(1 To 50) As Integer       '存储每个班级在数组classname中的末尾位置

Dim k As Integer                   '存储班级数量

Dim testall(1 To 20) As Integer         '存储每一项总选择人数，例如testall（1）里存储这评价项目1里的总人数，testc（1）里存储评价项目1里选C的人数

Dim testc(1 To 20) As Integer          '存储每一题（项）选c的人数

'确定每个班级的起止位置，存储到cstart数组和cend数组

cstart(1) = 1

temp = classname(1)

k = 1

For i = 1 To n

   If classname(i) <> temp Then



      k = k + 1

      cstart(k) = i

      temp = classname(i)

   End If

Next i

cend(k) = n

For i = 1 To k             '每个班级分别统计评价项目



    For q = 1 To 20         '对testall和testc数组初始化

      testall(q) = 0

      testc(q) = 0

    Next q

   For j = cstart(i) To cend(i)           '对第i个班级进行统计

      testall(xiangmu(j)) = testall(xiangmu(j)) + 1\

      If selectabc(j) = "C" Then

   Next j

   For p = 1 To 20       '统计完成后输出这个班级的20个项目的A+B所占百分比

      s = s &""&Str(Round((testall(p) - testc(p)) / testall(p) * 100, 1))

   Next p

    List2.AddItem s

Next i

End Sub

查看解析
3、在“抗击疫情，‘宅’出精彩”征文活动中，每位选手可以提交一篇作品。活动以互评的形式展开：每位选手对m篇作品进行打分（本人作品回避），方法如下：
① 用1-n数字代表n个作品，打乱顺序后分配给n个选手。分配方案保存在数组a中，如图a存储了两组分配方案（n=5）。在第一个分配方案中把4号作品分配给1号参赛者，1号作品分配给2号参赛者（选手编号与序号错开）……。

②分配方案的形成方法：将1~n之间的随机数字依次放到第1个位置、第2个位置……，随机数不能与位置号相同，并且要防止分配冲突，如前三个分配序号是“2 3 4”，那么在第4位上只能放“5”（如放“1”会导致第5个位置没有符合要求的数字,因此位置n-1需要判断数“n”是否已经分配，如果未分配，位置n-1放置数“n”），最终方案“2 3 4 5 1”。

③评m个作品需要m个分配方案。方案间要避免同一个人拿到重复的作品。如第16题图a第3行上的数据“5 1 2 3 4”不符合要求，因为会使第2号选手重复拿到1号作品。

小明依据上述方法设计了VB程序，功能如下：在文本框Text1和Text2分别输入参赛人数和每人打分的作品数量，单击“分配”按钮Command1，在列表框List1中输出结果。程序运行效果如图b所示。

请回答下列问题：

(1)、n=5，m=3，a(1)~a(10)中的数据如图a所示，a(11)~a(15)的数据可能是（单选，填字母：A . 5 4 3 1 2/B . 5 4 1 3 2/C . 3 4 5 1 2）

(2)、请在划线处填入合适的代码。
Dim n As Integer   '总人数/总作品数

Dim m As Integer   '每人分配篇数

Dim a(1 To 500) As Integer '数组a大小满足处理要求

Dim c(1 To 100) As Integer '数组c大小满足处理要求

Private Sub Command1_Click()

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

n = Val(Text1.Text)： m = Val(Text2.Text)

  Randomize

i = 1

Do While i <= m

    For j = 1 To n

      c(j) = 0         '本轮分配方案中还没有数字j, c(j)=0，否则c(j)=1

    Next j

    For j = 1 To n

     If j = n - 1 And c(n) = 0 Then

            ①

      Else

        k = r(n, j)

      End If

      a((i - 1) * n + j) = k          '分配数字k到当前方案的第j个位置上

     c(k) = 1

    Next j

    If    ②    Then i = i + 1

Loop

s = ""

For i = 1 To n

   s = "参赛者" & i & "："

    For j = 1 To m

      s = s + Str(a((j - 1) * n + i))+ ","

    Next j

    List1.AddItem s

    s = ""

Next i

End Sub

Function r(x As Integer, y As Integer) As Integer

'生成一个取值在[1，x]之间，可以放在y位置上的随机数，满足条件r<>y andc(r)=0

End Function

Function check(c As Integer) As Boolean

'本轮方案和前面几次的分配方案比较，如果有人分到了重复作品，返回FALSE

Dim p As Integer, f As Boolean

f = True

p = 1

For i = 1 To c * n

   If   ③    Then

      f = False: Exit For

    End If

    p = p mod n +1

Next i

check = f

End Function

① ② ③

查看解析
4、小董编写了一个有关“筛选操作”的VB程序，实现如下功能：在文本框Text1中显示一组随机生成个位数为“9”的两位数（原始数据），在文本框Text2中输入筛选个数，单击“操作”按钮Command1后，在文本框Text3中按降序显示所筛选个数的不重复最大数据（以逗号分隔    并以数据结尾），若在文本框Text2中输入的数大于原始数据中不相同数的个数，则在文本框Text3中显示“筛选的个数太大，请重新输入!”。程序运行界面如图所示。

(1)、如图所示，该VB程序的窗体中共有类对象（填数字）。

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n = 10

Dim d(n) As Integer, c As Integer

Private Sub Form_Load()

Dim i As Integer, j As Integer, f As Boolean, s As String

Randomize

c = n

For i = 1 To n

    f = False

    d(i) =        ' 随机生成个位数为“9”的两位数

    For j = 1 To i - 1

      If Then f = True

    Next j

   If f Then c = c - 1

  Next i

'原始数据在文本框Text1中显示。代码略

End Sub

Private Sub Command1_Click()

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

Dim cnt As Integer，t As String, s As String

  d(0) = 100

cnt = Val(Text2.Text)

If cnt > c Then

    Text3.Text = "输入筛选的个数太大，请重新输入！"

    Exit Sub               'Exit Sub表示退出过程

End If

For i = 1 To cnt

    k = i

    For j = i + 1 To n

      If d(j) < d(i - 1) And( )Then k = j

    Next j

   If k <> i Then

     t = d(i): d(i) = d(k): d(k) = t

  End If

Next i

For i = 1 To cnt

    s = s + Str(d(i)) + "，"

Next i

Text3.Text =

End Sub

(3)、程序中加框处代码有错，请改正。

查看解析
5、小章想将a数组中n个元素排列成合唱队列形态，具体方法如下：
①如果n是奇数，选出所有数据中最大元素，将其放在a数组正中间位置。

②从剩下待处理数据中选出最大的两个元素，同时将较大元素放在已处理数据段的右侧，较小元素放在已处理数据段的左侧。

③反复执行操作②，直到所有数据处理完毕。按上述要求，小章编写一个VB程序，功能如下：

在文本框Text1中输入n，单击“生成”按钮Command1，并在文本框List1中显示排序前数据；单击“排序”按钮Command2，在列表框List2中输出处理后的结果。程序运行界面如下图所示。

(1)、下列哪个选项，可以将窗体Form1标题改为：“生成合唱队列”（单选，填字母：A . Form．Caption="生成合唱队列"/ B . Label1．Caption ="生成合唱队列"/ C . Form1．Caption="生成合唱队列")

(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。
Dim a(1 To 100) As Integer

Dim n As Integer

Private Sub Command1_Click()

'在文本框Text1中输入n(n<=100)

'排序前数据存储在数组a中，并在文本框List1中显示

'代码略

End Sub

Private Sub Command2_Click()

Dim i As Integer, j As Integer, t As Integer

Dim pMax1 As Integer, pMax2 As Integer pMax1 = n \ 2 + 1: pMax2 = n \ 2

If Then

    For i = 1 To n

      If a(i) > a(pMax1) Then t = a(pMax1): a(pMax1) = a(i): a(i) = t

    Next i

    pMax1 = pMax1 + 1

End If

For i = 1 To n \ 2

    If Then t = a(pMax1): a(pMax1) = a(pMax2): a(pMax2) = t j = pMax1 Mod n + 1

    Do While j <> pMax2

      If a(j) > a(pMax1) Then

        t = a(pMax1): a(pMax1) = a(j): a(j) = t

        t = a(pMax2): a(pMax2) = a(j): a(j) = t



        t = a(pMax2): a(pMax2) = a(j): a(j) = t

      End If



    Loop

    pMax1 = pMax1 + 1

    pMax2 = pMax2 - 1

Next i

For i = 1 To n

    List2.AddItem Str(a(i))

Next i

End Sub

(3)、程序加框处代码有错，请改正。

查看解析
6、小李编写VB程序，功能如下：单击“产生数组”按钮Command1，则随机生成10个取值范围是1～10的正整数，分别存储到数组a中，对数组a的元素进行升序排列，并在标签Label1中显示；再单击“重复数”按钮Command2，则在排序后的数组a中查找连续个数最多的一组重复数值，若有两组连续重复数个数一样多，则取数值小的一组，将重复数的数组元素下标显示在标签Label2中。运行界面如图所示。

(1)、已知窗体名称为Form1，要使程序加载时，窗体标题自动显示为“统计重复数”，则可在              (单选，填字母)事件过程中添加代码：Form1.Caption = “统计重复数”。

A、Form_Click() B、Form_Load() C、Form1_Click() D、Form1_Load()

(2)、实现上述功能的程序如下，请在划线处填写合适代码，使程序正常运行。
Dim a(1 To 10) As Integer

Dim n As Integer

Private Sub Command1_Click()

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

Dim s As String

Randomize

n = 10

For i = 1 To n

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

Next i

For i = 1 To n - 1

    k = i

    For j = i + 1 To n

      If a(j) < a(k) Then

    Next j

    If k <> i Then

      temp = a(i): a(i) = a(k): a(k) = temp

    End If

Next i

s = ""

For i = 1 To n

    s = s + Str(a(i))

    If i < n Then s = s + "，"

Next i

Label1.Caption = s

End Sub

Private Sub Command2_Click()

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

Dim length As Integer, origin As Integer

Dim s As String

k = 1:origin=1:length = 1

For i = 2 To n

    If a(i) = a(i - 1) Then

      k = k + 1

      If k > length Then

        length = k

        origin =

      End If

    Else

      k = 1

    End If

Next i

s = ""

For j = origin To

    s = s + Str(j)

Next j

Label2.Caption = s

End Sub

(3)、程序加框处代码有错，请改正。

查看解析
7、小王设计了一个利用矩阵“翻转法”实现矩阵逆序输出的程序，其功能为：运行程序时，在文本框 Text1 中输入矩阵大小n，点击“产生矩阵”按钮 Command1，在列表框 List1 中显示一个 n×n 的矩阵，该矩阵数据为随机两位正奇数。点击“翻转矩阵”按钮 Command2，该矩阵翻转(水平翻转和垂直翻转均要实现)后显示在列表框 List2 中，再点一次“翻转矩阵”按钮 Command2，列表框 List2 中显示的矩阵被还原为初始状态。程序运行界面如图所示。

实现上述功能的VB程序如下，请回答下列问题：

(1)、在上图的程序运行界面基础上，再连续两次单击Command2按钮，则列表框List2中第一行显示的内容是。

(2)、实现此程序的代码如下，请完成下划线程序填空。
Dim n As Integer

Dim L As String

Dim i as Integer

Dim j as Integer

Dim a(1 To 100) As Integer

Dim b(1 To 100) As Integer

Private Sub Command1_Click()

  n = Val(Text1.Text)

Randomize

For i = 1 To n * n

    a(i) = + 1

Next i

For i = 1 To n

    L = ""

    For j = 1 To n

      L = L + " " + Str(a((i - 1) * n + j))

    Next j

    List1.AddItem L

Next i

End Sub

Private Sub Command2_Click()

List2.Clear

For i = 1 To n

    L = ""

    For j = 1 To n

      b((i - 1) * n + j) =

      L = L + " " + Str(b((i - 1) * n + j))

    Next j

    List2.AddItem L

Next i

For i = 1 To n * n

    a(i) =

Next i

End Sub

查看解析
8、字符串s1中保存了一个单词，字符串s2中保存了一句以空格结尾的句子，字符串s1和s2均由小写字母组成且s2中各个单词之间仅用空格隔开，下列程序能够统计单词s1在句子s2中出现的次数：
i=1: j=1:cnt=0

Do While j<= Len(s2)

If Mid(s1,i,1)<> Mid(s2,j,1)Then



Else

    Do While i<=lens and j<=lens2

      If Mid(s1, i, 1) =Mid(s2, j, 1)Then



      Else



      End If

    Loop

    If i=len(s1)+1 And Mid(s2, j, 1)="" then

    cnt= cnt+1

    End If

    i=1

End If

Loop

方框中的代码分别是：①i=1：j=j+1 ②i=i+1：j=j+1 ③j=j+1

代码从上到下正确的顺序是（    ）

A、①②③ B、③②① C、③①② D、②①③

查看解析
9、有如下VB程序段：
For i=1 to 3

    For j=1 to 5-i

        If a(j)>a(j+1) Then

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

        End If

    Next j

    Text1.Text = Str(a(i))+Text1.Text

Next i

数组元素a(1)到a(5)的值依次为“2，9，7，8，5”。若该程序段执行后，文本框Text1显示的内容是（    ）

A、2 5 7 B、9 8 7 C、2 7 7 D、7 7 2

查看解析
10、有如下VB程序段：
For i = 1 To 6

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

If a(i) Mod 2 = i Mod 2 Then

    a(i) = a(i) + 1

Else

    a(i) = a(i) Mod 2

End If

Next i

执行该程序段后，在下列选项中，a(1)～a(6)各元素可能的值是（    ）

A、0，1，1，0，0，1 B、0，5，6，6，10，9 C、3，6，7，8，11 D、2，1，8，3，12，5

查看解析
11、有如下VB程序段：
For i=2 to 5

For j=i to 5

If j mod i=0 then a(j)=a(j)+1

Next j

Next i

For i=1 to 5

If a (i)<>1 then s=str(i)+s

Next i

若数组a 的初始值都为0，则运行该程序段后，s的值为（）

A、2 3 5 B、1 4 C、5 3 2 D、4 1

查看解析
12、有如下VB程序段：
Dim d(1 to 5)as integer, i as integer

Dim flag as Boolean, j as integer

‘给数组元素d(1)至d(5)赋初值为1，代码略

Randomize

For i=1 to 5

J = 1: flag = True

d(i) = int(Rnd*9)

Do while j< =i-1 and flag = True

    d(i) = int(Rnd*5+1)

    If d(i) = d(j) then i=i-1: flag = False

    j = j+1

Loop

Next i

运行程序后，数组中的数据值可能是（    ）

A、1 3 4 5 6 B、3 5 4 1 1 C、8 3 1 2 5 D、1 2 6 2 1

查看解析
13、有如下 VB 程序段：
Dim n As Integer

Dim sum As Integer

Dim i As Integer

Function fx(i As Integer) as Integer

If i = 1 Then

    fx = 5

Else

    fx = 5 * 2 ^ (i - 1) + fx(i - 1)

End if

End Function

Private Sub Command1_Click()

n = Val(Text1.Text): sum = 0

For i = 1 To n

   sum = sum + fx(i)

Next i

Label1.Caption = Str(sum)

End Sub

若在 Text1 中输入4，单击 Command1，则 Label1 中显示的内容为（    ）

A、55 B、75 C、80 D、130

查看解析
14、有如下 VB 程序段：
a(1) = 1: a(2) = 1:b(1) = 1: b(2) = 2

For i = 3 To 5

a(i) = a(i - 1) + a(i - 2)

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

Next i

执行该程序段后，数组元素b(5)的值为（）

A、5 B、8 C、12 D、15

查看解析
15、有如下VB程序段：
For i = 1 To Len(Text1.Text)

c = Mid(Text1.Text, i, 1)

If c >= "0" And c <= "9" Then

    x = Val(c)

    a((x + 1) Mod 10) = a((x + 1) Mod 10) + 1

End If

Next i

s = ""

For i = 0 To 9

s = s & a(i)

Next i

Text2.Text = s

数组元素a(0)到a(9)的值均为0，执行该程序段后，文本框Text2显示的内容为“1302000100”。则文本框Text1中输入的内容可能是（   ）

A、2020-6-09 B、2020-02-28 C、2020-6-01 D、2019-01-07

查看解析
16、小李基于选择排序算法编写了一个VB程序，功能如下：在文本框Text1中显示排序前的数据，单击“排序”按钮Command1，在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如下图所示。算法的思路：第i趟排序从a(i)….a(bottom)中查找最小值并记录其下标k，同时将后面的每个元素与a(i)比较是否重复，若发现重复数据，进行剔除处理；找到最小值与a(i)交换。

实现上述功能的VB程序如下，在划线处填入合适的代码。

Const n = 10

Dim a(1 To n) As Integer

Private Sub Command1_Click()

Dim i As Integer, j As Integer, t As Integer

Dim k As Integer, bottom As Integer

'获取排序前数据，依次存储在数组 a 中，并在文本框 Text1 中显示。代码略

bottom = n: i = 1

Do While i <= bottom - 1

    k = i: j = bottom

    Do While j > i

      If a(j) < a(k) Then

        k = j

      ElseIf a(j) = a(i) Then '若发现重复数据，进行剔除处理

        a(j) = a(bottom)

      IfThen k = j

        bottom = bottom - 1

      End If

      j = j - 1

    Loop

    If k <> i Then

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

    Else



    End If

Loop

For i = 1 To

    Text2.Text = Text2.Text + Str(a(i))

Next i

End Sub

查看解析
17、某加密算法的明文和密钥均由英文字母组成，且密钥循环使用，其加密规则如下：
①明文字符与对应密钥的ASCII码转化为二进制后求异或（对应位相同时结果为0，对应位不同时结果为 1，如二进制1001与二进制1100的异或值为0101），并将异或结果转换为十进制p；

②如果处在奇数位，则将明文字符循环后移p个位置，否则将明文前移p个位置。移动过程中保持大小写不变。

最后把所得到的字符连接起来就是密文。

例如，密钥是“abc”，明文“d”的加密过程是：字符“d”的ASCII码表示为二进制是1100100，密钥“a”的ASCII码表示为二进制是1100001，两数进行异或结果是：0000101，转化为十进制为5，因为是第1个位置，所以把明文后移5个位置，则密文是“i”。

该加密过程使用VB来实现。具体功能设计如下：在Text1中输入明文，Text2中输入密钥，单击“开始加密”按钮Command1后将密文显示在Text3中，界面设计如图所示。

请回答以下问题：

(1)、如果密钥为“bc”，字符“d”加密后的密文为：（字母“a”的 ASCII 码为97）

(2)、请完善以下程序代码。
Private Sub Command1_Click()

Dim s As String, sn As String

Dim i As Integer, t As Integer, u As Integer

Dim p As Integer, g As Integer

sn = ""

For i = 1 To Len(Text1.Text)

    t = Asc(Mid(Text1.Text, i, 1))

    If t >= Asc("a") Then

      g = Asc("a")

    Else

      g = Asc("A")

    End If

    u = Asc(Mid(Text2.Text, (i - 1) Mod Len(Text2.Text) + 1, 1))

    p =

    t = t - g

    If i Mod 2 = 1 Then

      t = (t + p) Mod 26

    Else

      t =

    End If

    sn = sn + Chr(t + g)

Next i

Text3.Text = sn

End Sub

Function txor(x As Integer, y As Integer) As Integer   'x、y求异或并返回十进制

Dim a As Integer, b As Integer, r As Integer, i As Integer

a = x: b = y

r = 1

For i = 1 To 7

    If a Mod 2 <> b Mod 2 Then

    a = a \ 2

    b = b \ 2

    r = r * 2

Next   i

End Function

查看解析
18、编写VB程序，实现如下功能：在文本框Text1中输入二进制数，单击“转换”命令按钮Command1，在文本框Text2中输出对应的十六进制数。程序运行界面如图所示，请回答下列问题：

(1)、如果输入的二进制数为“1101010”，则得到的结果为。

(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Function bw(x As Integer, y As String) As String

'函数bw功能：若二进制位数不足，通过在前面添"0"使得位数为4的倍数

Dim r As Integer, i As Integer

  r = x Mod 4

  If r <> 0 Then

    For i = 1 To 4 - r

      y = "0" + y

    Next i

    x = Len(y)

End If

bw =

End Function

Private Sub Command1_Click()

  Dim m As String, n As Integer, i As Integer, a As Integer

  Dim s As Integer, s1 As String, j As Integer

m = Text1.Text

n = Len(m)

Text2.Text = ""

m =       '调整m的位数为4的倍数

For i = 1 To n - 3 Step 4

   s = 0

    For j = i To i + 3

      a = Val(Mid(m, j, 1))

      s =

    Next j

    If s >= 10 Then

      s1 = Chr(Asc("A") + s - 10)

    Else

      s1 = CStr(s)      '函数CStr类似于Str，但无前导空格

    End If

    Text2.Text = Text2.Text + s1

Next i

End Sub

查看解析
19、小王基于选择排序算法编写了一个VB程序，功能如下：数组a有n*n个元素，按n行n列进行排列，按列进行升序排序。例如6*6的数组，第一列将a(1)，a(7)，a(13)，a(19)，a(25)，a(31)进行排序。运行程序，在列表框List1中显示n*n个数列单击“排序”按钮Command1，在列表框List2中显示排序后的结果，程序运行界面如图所示。请回答下列问题：

(1)、n=6时运行结果如图所示，图中1处“47”在数组a中下标是（填数字）。

(2)、为了实现上述功能，请在划线处填写合适的代码。
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))

    IfThen

      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

(3)、程序中加框处代码有错，请改正。

查看解析
20、若一个三位数abc满足，abc=a³+b³+c³则称abc为水仙花数。如三位数153满足1³+5³+3³=1+125+27=153，则153是水仙花数。以下是找出所有水仙花数的程序，请把程序补充完整。（a为百位数、b为十位数、c为个位数）
Dim i As Integer, a As Integer, b As Integer, c As Integer

For i=100 To

a=i\100

b=

c=i-100*a-10*b

If Then

Print i

End If

Next i

查看解析

上一页 1113 1114 1115 1116 1117 下一页跳转