相关试卷

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

f=x<y

End Function

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

查看解析
2、合数指自然数中除了能被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中显示的内容为。

查看解析
3、小明编写了一个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

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

查看解析
4、小明编写了一个进制转换程序。程序运行时在文本框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

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

查看解析
5、下列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

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

查看解析
6、铁路托运行李是根据行李的质量收费的，标准如下：若不超过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

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

查看解析
7、编写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显示的结果为。

查看解析
8、小明编写了一个程序，运行时在文本框Text1中输入一个字符串，单击“去除数字”按钮Command1后，去除字符串中的数字字符，并在标签Lable2上输出结果。如图所示。

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

  Dim zfc As String '用于存储输入的字符串

  Dim ans As String '用于存储处理后的字符串

  Dim i As Integer，ch As String

  Dim n As Intege r'用于存储输入的字符串的长度

     ①

  n=Len（zfc）

  i=1

  Do While i<=n

         ②

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

        i=i+1

      Else

           ③

        i=i+1

      End If

  Loop

  Label2.Caption="结果为："+   ④

End Sub

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

查看解析
9、下列程序段执行后，x的值为（）
x=0

For i=1 To 3

  For j=1 To i

    For k=j To 3

      x=x+1

    Next k

  Next j

Next i

A、16 B、14 C、9 D、8

查看解析
10、已知s的初值为0，下列程序段执行后，s的值为（）
a=1：b=2

For i=1 To 6

    c=a+b

    a=b:b=c

    k=2

    Do While k<c

        If c Mod k=0 Then Exit Do

        k=k+1

    Loop

    If k=c Then s=s+1

Next i

A、6 B、5 C、3 D、1

查看解析
11、已知s的初值为0，下列程序段执行后，s的值为（）
For i=3 To 10

    f=1：k=2

    Do While k<i And f=1

        If i Mod k=0 Then f=0

        k=k+1

    Loop

    s=s+f

Next i

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

查看解析
12、下列程序段执行后，k的值为（）
k=0

For i=0 To 6 Step 2

  For j=1 To 8

     If j>5 Then k=k+2：Exit For

     k=k+1

    Next j

Next i

A、30 B、28 C、25 D、11

查看解析
13、下列程序段执行后，n的值为（）
For i=1 To 5

    k=i：s=0

    Do While s<10

        n=n+1

        s=s+k

        k=k+1

    Loop

Next i

A、30 B、25 C、16 D、10

查看解析
14、已知s和i的初值为0，下列程序段执行后，s的值为（）
Do While i<10

    k=1

    i=i+1

    Do While k<10

        s=s+1

        k=k+i

    Loop

Loop

A、30 B、28 C、10 D、5

查看解析
15、下列程序段执行后，s的值为（）
t=1：s=0

For i=1To 4

    m=1：t=-t

    For j=1 To i

      m=m*j

    Next j

    s=s+m*t

Next i

A、35 B、21 C、19 D、15

查看解析
16、下列程序段执行后，a的值为（）
For i=1To 9

    For j=i To 9

        a=i*j

        List1.AddItem i&"*"&j&"="&a

    Next j

Next i

A、81 B、45 C、9 D、1

查看解析
17、已知s的初值为0，下列程序段执行后，s的值为（）
s=0

For i=1 To 2

    For j=6 To 1 Step-2.

      s=s+1

    Nextj

Next i

A、12 B、8 C、6 D、4

查看解析
18、已知x的初值为0，下列程序段执行后，x的值为（）
For i=1 To 4

  For j=i To 5

    x=x+1

  Nextj

Next i

A、20 B、15 C、14 D、9

查看解析
19、有如下VB程序段：
n=45：m=25

Do While m<>0

    r=n Mod m

    n=m

    m=r

Loop

Label1.Caption =Str（n）

该程序段运行后，标签Label1上显示的内容是（）

A、20 B、15 C、10 D、5

查看解析
20、有如下VB程序段：
n=20：s=""

Do While n<>0

    r=n Mod 2

    s=Str（r）+s

    n=n\2

Loop

Label1.Caption=s

该程序段运行后，标签Label1上显示的内容是（）

A、10010 B、00101 C、10100 D、01001

查看解析

上一页 1077 1078 1079 1080 1081 下一页跳转