常量、变量及变量的赋值 知识点题库

在VB中，若要把窗体对象form1的标题文字改为“hello”，以下语句能实现的是（  ）

编写VB程序代码，实现如下功能：在文本框Text1中输入金额(整数)后，点击“转换”按钮Command1，则在文本框Text2中显示该金额的大写，程序运行界面如下图所示：

有如下程序：

Private Sub Command1_Click()

  Dim a(5) as Integer

  Dim n as Integer, i as Integer

  n = Val(Text1.Text)

  i = 0

  a(1) = 1

  a(2) = 1

  For i = 3 To n

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

  Next i

  Label1.Caption = a(i)

End Sub

若在Text1中输入5，则点击按钮后的运行结果为（  ）

编写VB趣味程序“计算厚道指数”，实现如下功能：在文本框Text1中输入姓名，单击“试一试”按钮Command1，在列表框List1依次求解并显示姓名中的每一个字符的ASCII码，并按程序中给定方式进行运算，得出厚道指数。运行界面如图所示，程序代码如下。

火柴游戏：有n根火柴，第1次取1根，第2次取2根，第i次取i根，当剩余火柴数为0时，不用添加火柴（即k=0），游戏结束。如果剩余火柴数不为0，但不够下一次取，此时添加k（k≥1）根火柴，在剩余火柴中再从1根开始取，直到能取完为止，求k的最小值。

例如：n=3时，第1次取1根，第2次取2根，此时正好取完，无须添加火柴，k=0；

例如：n=8时，第1次取1根，第2次取2根，第3次取3根，第4次要取4根，但剩余2根不够取。则加上1根，剩余3根，再从1根开始取，即第4次取1根，第5次取2根，剩余火柴为0，游戏结束，得k=1。

又如：n=4时，第1次取1根，第2次取2根，第3次不够取，若加上1根，剩余2根，再从1根开始取，第3次取1根，剩余1根不够第4次取，再加1根，又是剩余2根，显然加1根永远不可能取完。所以改用每次加2根，第1次取1根，第2次取2根，第3次不够取，添加2根，第3次取1根，第4次取2根，恰好能取完，得k=2。

编写一个VB程序可实现上述功能：在文本框Text1中输入火柴数量，单击“计算”按钮，在文本框Text2中显示最少添加数量，程序运行界面如下图所示：

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

Private Sub ok_Click()

Dim a(1 To 100) As Boolean, n As Integer, k As Integer, i As Integer

n = Val(Text1.Text)

For i = 1 To 100

    a(i) = False

Next i

a(n) = True

Do While n <> 0

    i = 1

    Do While i <= n

             ①      

        i = i + 1

    Loop

    If n = 0 Then

        Text2.Text = Str(k)

    Else

        If k = 0 Then k = 1

        n = n + k

        If       ②      Then

            k = k + 1

            n = Val(Text1.Text)

        Else

            a(n) = True

        End If

    End If

Loop

End Sub

小李在探究将两段已按从小到大排序的数据连接后用冒泡排序思想再进行从小到大排序的情况，编写了一个VB程序，功能如下：在列表框List1中显示排序前数据（存储在数组c中），单击“排序”按钮Command1后，在列表框List2中显示排序后的数据。

小张为了处理2015年中国主要城市的GDP数据，他把2015年中国主要城市的GDP数据存储在数据库文件gdp. accdb中。他设计了一个 Visual Basic程序，程序运行效果如图所示。

在界面的左侧列表框List1中显示各城市GDP数值，单击“按人均GDP排序”按钮Command1，在右侧列表框List2中显示排序完成后的结果（按人均GDP值从高到低排序）。

实现上述功能的VB代码如下:

生成0~9组成的10位随机密码，无重复数字出现的VB程序段如下：

s1=“0123456789”

n=Len（s1）

For i=1 To 10

    

    n=n-1

Next i

Text1.Text=s

方框中的代码由以下三部分组成：

①s=s+Mid（s1，x，1）

②x=Int（Rnd*n）+1

③s1=Mid（s1，1，x-1）+Mid（s1，x+1）

代码顺序正确的选项是（  ）

有如下VB程序段：

Private Sub Command1_Click()

Dim a( 1 To 6) As Integer， i As Integer

For i= 1 To 6 

  a(i) =Int(Rnd*5) *2+ 1

Next i

For i=2 To 6 Step 2

    a(i) =cha(a(i-1) ， a(i) )

  Next i

End Sub

Function cha(x As Integer， y As Integer) As Integer

  Dim t As Integer

  If x<y Then

    t=x：x=y：y=t

    cha=y

  Else

  cha=x-1

  End If

EndFunction

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

有如下程序段：

Key = Val(Text1.Text)

i = 1：j = 9

Do While i <= j

 m = (i + j) \ 2

 If  Key <= a(m) Then j = m - 1 Else i = m + 1

Loop

数组元素a(1)到a(9)的值依次是“10，13，13，18，18，18，18，25，30”，文本框Text1中的内容为“18”。执行程序段后，变量j的值是（  ）

有如下程序段:

s=”ABCDEFGH”
i=1

Do While i<=Len(s)

  If i Mod 2=0 then  

    s=Mid(s, i+1, len(s)-i) & Mid(s, 1, i-1)

  End if

   i=i+1

Loop

Text1.text=s

有如下VB程序段：

i=6

Do While i>= 1

  t= Int(Rnd * 10)+ 1

  If t Mod 2=i Mod 2 Then a(i)=t: i=i-1

Loop

For i=1 To 2

  k=-1

  For j=1 To 5-i

    If a(j) * k>a(j+2) *k Then

      temp= a(i): a(j)=a(j+2): a(j+2)= temp

    End If

    k=-k

  Next j

Next i

执行该程序段后，数组元素a(1)到a(6)值可能是（    ）

有如下 VB 程序段：

bottom = 7

i = 2

Do While i <= bottom - 1

  If i Mod 2=0 And a(i)=a(i-1)+a(i+1) Then

    For j = i To bottom - 1

      a(j) = a(j + 1)

    Next j

    bottom = bottom - 1

  End If

  i = i + 1

Loop

For i = 1 To bottom

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

Next i

数组元素a(1)到a(7)的值依次为“26，94，68，42，69，27，132”。若该程序段执行后，文本框Text1中显示的内容是(  )

在python中，运行下列程序，正确的结果是（    ）

s=0

for i in range (1,5):

    s=s+i

print("i=",i,"s=",s)

有如下VB程序段：

Dim a As Integer, b As Integer

a=Len（"China"）

b=a-2

If a Mod b=2 Then a=a^2 Else a=b^2

该程序段运行后，a的值为（  ）

Python 定义私有变量的方法为。（    ）

Python表达式a=b中“=”表示。

执行下列语句，输出的结果是（    ）。

x，y = 1，2

x， y = y，x

print(x，y)

如果一个变量N未经定义就直接赋值即N＝3.1415，则该变量的类型为（    ）

在Python程序中，已知X=2，Y=4，当执行语句Y+=X**3后，Y的值是（      ）。