4.1 程序设计语言的基础知识 知识点题库

编写“鞋码换算”程序，实现如下功能：在文本框 Text1 中输入脚长 n(单位：厘米)，单击“换算”按钮 Command1，在标签 Label1 中显示相应鞋码，同时在列表框 List1 中显示与脚长对应的标准鞋码表。程序运行界面如图所示。

编写VB程序，实现如下功能：单击“启动”按钮Command1，在列表框List1内每隔2秒输出一个由30个大、小写字母组合成的字符串，运行界面如图所示，程序代码如下。(字母A和字母a的ASCII码值分别为65、97)

【加试题】小王同学为了研究浙江省湖州地区空气质量与天气、气温、风向等的关联性问题，通过网络获取了2016-06-01至2017-05-31这365天的有关信息，并将数据整理至数据文件data.accdb中。其中huzhou数据表视图及设计视图部分界面如图所示。

小王编写了VB程序，具体功能：点击“执行”按钮Command1，在文本框Text1中显示空气质量为优（AQI空气质量指数≤50）的最长持续天数（连续为优），并在列表List1中依次显示对应天数的各项数据。

实现上述功能的VB程序如下：

  Dim rq(1 To 365)As String       ‘存放日期

  Dim aqi(1 To 365)As Integer     ‘存放AQl空气质量指数

  Dim tq(1 To 365)As String       ‘存放天气

  Dim qw(1 To 365)As String      ‘存放气温

  Dim fxfl(1 To 365)As String      ‘存放风向及风力

  Private Sub Form_Load( )

    ‘本过程从数据中按2016-06-01至2017-05-31依次读取各项数据，并分别存储在对应的数组中。代码略 。

  Private Sub Command1_Click( )

       Dim n As Integer，m As Integer，i As Integer，k As Integer

  Dim s As String

       n=0：m=0：k=0

       For i=1 To 365

           If aqi(i)<=50 Then

               n=n+1

          Else

               If n>m Then

                  m=n

                  k=i-1

               End If

               n=0

          End If

      Next i

      If n>m Then

         m=n

             ①                

      End If

      For i=      ②        To k    

         s=rq(i)                       ‘日期长度均为10

         s=s&Space(7-Len(Str(aqi(i)))) ＆ Str(aqi(i))    ‘AQI为1～3个数字

         s=s&Space(4)&tq(i)                  ‘天气为1-4个中文字符

         s=s&Space(2*(6-Len(tq(i))))＆qw(i)    ‘气温长度均为9

         s=s&Space(4)&fxfl(i)        ‘风向及风力长度不等

List1.AddItem s

      Next i

      Text1．Text=Str(m)

End Sub

有VB编写的程序如下：

Dim a(0 To 9) As Integer, t as Long

t=Val(Text1.Text)

Do While t<>0

 a(t Mod 10) = 1

 t = t \ 10

Loop

For i = 0 To 9

 x = x + a(i)

Next i

Text1中输入10242048，则程序执行后x的值为（  ）

有如下VB程序段：

For i=1 To 6

    x=Int(Rnd*10)+1

    If i Mod 2 = 1 Then

        a(i)=2*x+1

    Elself x Mod 2 = 0 Then

        a(i)=x/2

    Else

        a(i)=x-1

    End If

Next i

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

小明用VB编写了查找第二小的数的程序界面如图所示，程序随机产生50个范围在1~1000之间的随机整数，单击“查找”按钮能够在标签 Label1中显示第二小的数字。

Private Sub Command1_ Click( )

  Dim n As Integer, i As Integer

  Dim a(1 To 50) As Integer

  Randomize

  For i=1 To 5

        ①      

    List1 AddItem Str(a(i))

  Next i

  If a(1) < a(2) Then

    firstmin=a(1)

    secondmin =a(2)

  Else

    firstmin=a(2)

    secondmin=a(1)

  End if

  For i=3 To 50

    If a(i) < secondmin Then

      If        ②        then

        Secondmin = firstmin

        firstmin = a (i)

      Else

                 ③         

      End If

    End If

  Next i

  Label1. Caption = "第二小的数是" str(secondmin)

End Sub

某算法的部分流程图如图所示。执行这部分流程，若输入x的值分别为16、9、8、7、6、5、4、1，则输出的结果是（  ）

 

下列属于正确的VB赋值语句的是（  ）。

某程序功能如下：将自然数从1到100按某种方式排列起来，单击“输出”按钮Command1，在列表框List1中显示排列后的数表，运行结果如图所示。

下列VB表达式中，可取到的最小值中，最小的为（    ）

分析完善程序。

假设银行的年存储利率为3%，如果现在存储10000元钱，问多少年后连本带利超过12000元。设定：连本带利=本金*（1+利率）^∧年数。

假设n年后连本带息超过12000，根据题意得出数学关系式：10000*（1+3%）^∧n>12000，求最小的n。

Dim s as single

Dim r as single

Dim n as integer

s=10000

r=0.03

n=0

Do while            

   n=n+1

s=s*(1+r)

Loop

Print n;”年后”:”连本带利超过”；s

根据上述回答下列问题

程序代码如下：

n = 0

x = 1

while x < 20：

 x = x*3

 n = n+1

print（x，n）

屏幕显示结果是（    ）。

下列VB表达式的值等于2020的是(    )

Python表达式中，可以使用（   ）控制运算的优先顺序。

小王编写了一个实现文字查找及替换功能的VB程序，运行界面如图所示。文本框Text1中显示原文内容，在Text2中输入查找内容，Text3中输入替换内容，单击“全部替换”按钮Commiand1后，Text4中显示替换的结果，Text5中显示替换次数，Text6中显示“查找内容”在原文中的起始位置。

实现上述功能的VB程序如下，但加框处代码有误，请改正。

Private Sub Command1_Click( )

  Dim s As String，result As String，pos As String

  Dim count As Integer，i As Integer

  i=1：count=0

  result=""：pos=""

  Do While i<=Len（Text1.Text）

    s=Mid（Text1.Text，i，Len（Text2.Text））

    If s=Text2.Text Then

      result=result+Text3.Text

      count=count+1

      pos=     ‘①

      i=i+Len（Text2.Text）

    Else

             ‘②

      i=i+1

    End If

  Loop

  Text4.Text=result

  Text5.Text=Str（count）

  Text6.Text=pos

End Sub

以上程序段运行时，为了实现上述功能，加框处代码应改正为：①；②。

编写一个VB程序，功能如下：单击“随机数”按钮Command1，随机产生n个[10，50]范围的偶数。单击“计算”按钮Command2，在这n个随机数中找出四个数a，b，c，d，满足d=a+b+c，且d为所有满足条件组合中的最大值，如果存在符合要求的d，则在Text2中显示d的值，否则显示“no solution"。

例如：42、50、14、16、22、10、34、10、12、38这10个数中，最大的d为50，50=12+16+22。请回答下列问题：

小吉编制了一个python程序如下，但程序无法执行，你帮他找出程序中一共有几处错误（     ）

1a=3

b=input()

c=a+b

print(“c”)

完善以下程序代码完成下列小题。

程序描述：计算两个浮点数a和b的相除的余数，a和b都是正数。这里余数（r）的定义是：a = k * b + r，其中k是整数， 0 <= r < b。代码如下：

a=                    ①     (input("请输入："))

b=                    ①     (input("请输入："))

k=                    ② 

r=                    ③

print(r)

①处的语句是，②处的语句是，③处的语句是。

①A．int              B．float            C．a%b           D．a/b

②A．a**b              B．a//b            C．a%b           D．a/b

③A．a//b              B．a-kb            C．a-k*b            D．a+kb

程序中的变量是计算过程中要用的数据的。

某学校开展了艺术节活动，数组a中存储了n个节目的编号和得分数据，数组存储结构如下图所示：

小明使用选择排序思想对上述n个节目按得分进行降序排序(得分相同的按编号升序排列)，并依据得分插入各个节目的排名信息，处理后数组a的存储结构如下图所示：

程序运行时，单击命令按钮Command1后读取数据到数组a中并显示在列表框List1中，单击命令按钮Command2后将节目按照上述规则进行排序，并将排名结果显示在列表框List2中。实现上述功能的VB程序如下，请回答下列问题：