相关试卷

1、有如下VB程序段：
For i=1 To 6

    a（i）=Int（Rnd*10）+1

Next i

For i=1 To 5

    If i Mod 2=1 And a（i）>a（i+1）Then

      T=a（i）：a（i）=a（i+1）：a（i+1）=t

    Else

        a（i）=a（i）+1

    End If

Next i

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

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

查看解析
2、有如下程序段：
a（1）=1：a（2）=2

i=3：flag=True

Do While i<=10 and flag=True

    a（i）=a（i-1）+a（i-2）

    If a（i）>4*i then flag=False

    i=i+1

Loop

Text1.Text=a（i-1）

该程序段运行后，文本框Text1中显示的是（）

A、21 B、32 C、34 D、55

查看解析
3、有如下程序段：
Dim i As Integer，Sum As Integer

Dim a（1 To 11）As Integer

i=10：a（11）=49

Do While i>=1

    a（i）=a（i+1）-1

    If a（i）Mod 3=0 Then Sum=Sum+a（i）

    i=i-1

Loop

Text1.Text=Str（Sum）

该程序段运行后，文本框Text1中显示的内容是（）

A、174 B、180 C、36 D、42

查看解析
4、求两个整数的最大公约数可以使用递归算法实现，程序运行界面如图所示。在文本框Text1中输入两个数字中较大的数字m，在Text2中输入较小的数字n，单击Command1按钮，在Text3中显示数字m和n的最大公约数。可实现该目的的VB程序如下，请在画线处填入合适的代码。

Private Sub Command1_Click( )

  Dim m，n As Integer

  m=Val（Text1.Text）

  n=Val（Text2.Text）

  Text3.Text=   ①

End Sub

Function gcd（x, y As Integer）As Integer

  Dim z As Integer

  z=x Mod y

  If z=0 Then

    gcd=   ②

  Else

    gcd=gcd（y, z）

  End If

End Function

以上程序段运行时，为了实现上述功能，画线处应填入的代码分别为：①；②。

查看解析
5、有如下VB程序段：
Private Sub Command1_Click( )

  Dimi As Integer, s As Integer

  s=0

  For i=1 To 3 Step 2

    s=s+f(i)

  Next i

  Text1. Text=Str(s)

End Sub

Function f(n As Integer) As Integer

  If n=1 Then

      f=2

  Else

      f=f(n-1)+n

  End If

End Function

执行该程序段后，s的值为（）

A、2 B、7 C、9 D、13

查看解析
6、有如下VB程序段：
Private Function f（x As Single, n As Integer）As Single

  If n=0 then

    f=1

  Else

    If n Mod 2=1 then

      f=x*f（x，n\2）

    Else

        f=f（x，n\2）\x

    End If

  End If

End Function

Private Sub Command1_Click( )

  Label1.Caption=Str（f（4，6））

End Sub

程序运行时，单击按钮Command1，标签Label1显示的内容是（）

A、1 B、4 C、27 D、64

查看解析
7、有如下VB程序段，执行该程序段后，Text1中显示的值为（）
Function f（n As Integer）As Integer

  If n<=1 Then

      f=1

  Else

      f=n*f（n-1）

  End If

End Function

Private Sub Command1_Click( )

  Text1.Text=Str（f（5））

End Sub

A、10 B、60 C、120 D、140

查看解析
8、数列1，4，7，10，13，…的递推公式为（）

A、f（1）=1：f（n）=n+3 B、f（1）=1：f（n）=n*2-1 C、f（1）=1：f（n）=n*2+1 D、f（1）=1：f（n）=f（n-1）+3

查看解析
9、将数组逆序输出：数组a中有n个元素，将元素顺序颠倒，即a（1）和a（n）交换位置，a（2）和a（n-1）交换位置，依次下去，然后在List1中显示数组中的元素值。程序调用了一个自定义过程来实现目的。
代码如下，但加框处代码有误，请改正。

Dim a（1 To 10）As Integer

Private Sub Form_Load( )

  For i=1 To10

    a（i）=2*i-1

  Next i

End Sub

Private Sub Command1_Click（）

              ‘①

  For i=1 To 10

    List1.Addltem Str（a（i））

  Next i

End Sub

Sub swap（b（i） As Integer）

  n=UBound（b）                  ‘函数返回数组b的上界

  For                         ‘②

    t=b（i）：b（i）=b（n）：b（n）=t

    n=n-1

  Next i

End Sub

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

查看解析
10、完全数又称完美数，是指所有的真因子（除了自身以外的约数）之和恰好等于它本身的数。例如：6的真因子有1，2，3，相加等于其本身（1+2+3=6），所以6是一个完全数。现编写一个VB程序，求完全数。其功能如下：输入一个正整数n，点击“查找”按钮，在列表框List1中输入小于n的所有完全数。界面如图所示，请将程序补充完整。

该程序的代码如下：

Private Sub Command1_Click（）

  Dim n，r，j，i As Integer

  n=Val（Text1.Text）

  For i=1 Ton-1

    If   ①   Then

      List1.AddItem Str（i）

    End If

  Next i

End Sub

Function Div（n As Integer）As Integer

  Dim sum As Integer

    For i=1 Ton-1

      If     ②    Then

        sum=sum+i

      End If

  Next i

  Div=sum

End Function

以上程序段运行时，为了实现上述功能，画线处应填入的代码分别为：①；②。

查看解析
11、某VB应用程序的代码如下：
Function res（x As Integer，y As Integer，z As Integer）As Integer

  Dim temp As Integer

  If x>y Then temp=y Else temp=x

  If temp>z Then temp=z

  res=temp

End Function

Private Sub Command1_Click（）

  Dim a As Integer，b As Integer，c As Integer

  a=5：b=3：c=7

  Text1.Text=Str（res（a，b，c））

End Sub

程序运行时，单击命令按钮Command1后，在文本框Text1中显示的内容是（）

A、0 B、3 C、5 D、7

查看解析
12、有如下VB自定义函数，则下列参数值中，使函数返回值为1的是（）
Function Leap（y As Integer）As Integer

  If y Mod 100=0 Then

    If y Mod 400=0 Then Leap=1 Else Leap=0

  Else

    If y Mod 4=0 Then Leap=1 Else Leap=0

  End If

End Function

A、1900 B、1951 C、2006 D、2020

查看解析
13、在VB中，设已定义函数过程f，它有三个整型参数。设a，b，c为整型变量，则下列能调用该函数的正确语句是（）

A、f B、f（a，b+c） C、f（a，b+c，c-a） D、f a，b+c，c-a

查看解析
14、有如下VB自定义函数，该函数返回值的数据类型是（）
Function f（x As Integer，y As Single）As Boolean

f=x<y

End Function

A、逻辑型 B、整数型 C、单精度实数型 D、双精度实数型

查看解析
15、合数指自然数中除了能被1和本身整除外，还能被其他数（0除外）整除的数。与之相对的是质数，而1既不属于质数也不属于合数，最小的合数是4。编写合数“寻找质因子”的程序，程序功能：在文本框Text1中输入一个整型的合数，单击“计算”按钮Command1后，在文本框Text2中显示该整数可分解出的所有质因子。程序运行界面如图所示。

(1)、观察程序界面，不具有Caption属性的对象的控件类名是。

(2)、实现上述功能的VB程序如下，请在画线处填入合适的代码。
Private Sub Command1_Click( )

  Dim n, k As Integer

  Dims As String

     ①

  k=2

  Do While n>1

      If n Mod k=0 Then

           ②

        s=s+Str（k）

      Else

        k=k+1

      End If

  Loop

  Text2.Text=s

End Sub

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

(3)、运行上述程序，若在文本框Text1中输入1024，单击“计算”按钮后，文本框Text2中显示的内容为。

查看解析
16、小明编写了一个VB程序，可实现如下功能：在100至999之间的自然数中，找出能被3整除，且至少有一位数字为5的所有整数，并统计个数。程序运行界面如图a所示。

(1)、在设计程序界面时，应使用图b所示的“控件工具箱”中的（填写相应编号）添加“List1”列表框。

(2)、实现上述功能的VB程序如下，请在画线处填入合适的代码。
Private Sub Command1_Click（）

  Dims As Integer，n As Integer

  Dim a As Integer，b As Integer，c As Integer

  n=0

  s=102

  List1.Clear

  Do Whiles<=999

    a=   ①

    b=s\10 Mod 10

    c=s Mod 10

    If ②   Then

      List1.Addltem Str（s）

         ③

    End If

    s=s+3

  Loop

  Label1.Caption="共有"+Str（n）+"个"

End Sub

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

查看解析
17、小明编写了一个进制转换程序。程序运行时在文本框Text1中输入十进制数，单击“计算”按钮Command1后，结果在文本框Label1中显示。程序运行界面如图a所示。

(1)、要使命令按钮上显示的“计算”改为“转换”，可在其属性窗口（图b）中将属性的属性值修改为“转换”。

(2)、实现上述功能的VB程序如下，请在画线处填入合适的代码。
Private Sub Command1_Click( )

  Dim ch As String

  Dim n As Integer, x As Integer

  Dim ans As String

  ch="0123456789ABCDEF"

  n=    ①

  Do While n>0

    x=n Mod 16

       ②

    ans=   ③

  Loop

  Label2.Caption="16进制："+ans

End Sub

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

查看解析
18、下列VB程序的功能是：程序运行时，在文本框Text1中输入正整数n，单击“计算”按钮Command1后，计算n中各位数之和，并在文本框Text2中输出结果，例如：2012的各位数之和是2+0+1+2=5，则在Text2中输出5。程序运行界面如图所示。请在画线处填入合适的代码。

Private Sub Command1_Click（）

  Dim i As Integer，sum As Integer

  Dim r As Integer

  Dim n As Long

  n=Val（Text1.Text）：sum=0

  Do While n>0

       ①

    sum=sum+r

       ②

     ③

  Text2.Text=Str（sum）

End Sub

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

查看解析
19、铁路托运行李是根据行李的质量收费的，标准如下：若不超过50千克，按每千克0.35元收费；若超过50千克，超过部分则按每千克0.5元收费，但行李质量不得超过150千克。
设计一个VB程序，通过在文本框Text1输入托运行李的质量，计算并输出托运行李的费用，行李质量超过150千克，则显示“行李超重！”。结果在文本框Label1中显示。程序运行界面如图a所示。

(1)、在设计程序界面时，应使用图b所示的“控件工具箱”中的（填写相应编号）添加“Label1”对象。

(2)、解决铁路托运行李费用计算问题采用的算法是（填字母：A .解析算法/B .枚举算法）。

(3)、实现上述功能的VB程序如下，请在画线处填入合适的代码。
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

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

查看解析
20、编写VB程序，实现如下功能：在文本框Text1和Text2中分别输入体重（单位：kg）和身高（单位：m），单击命令按钮Command1，计算BMI（体重指数）（体重指数等于体重（kg）除以身高（m）的平方）。
如果BMI<18.5，则在标签Label5中显示“体重过轻！”；如果18.5≤BMI≤25，则在标签Label5中显示“体重正常！”；如果BMI>25，则在标签Label5中显示“体重过重！”。运行效果如图所示。

(1)、若要删除标签Label5中显示的内容“Label5”，可在其属性窗口中将属性的属性值删除。

(2)、为实现上述功能，请在画线处填入合适的代码。
Private Sub Command1_Click( )

  Dim h As Single, m As Single, bmi As Single

  Dim x As String

  m=Val（Text 1.Text）

  h=Val（Text2.Text）

      ①

  If bmi<18.5Then

    x="体重过轻！"

  Else

    If    ②    Then x="体重正常！"Else x="体重过重！"

  End If

  Label5.Caption=x

End Sub

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

(3)、若某同学的身高为160cm，体重为110斤，则Label5显示的结果为。

查看解析

上一页 1071 1072 1073 1074 1075 下一页跳转