相关试卷

1、某字符串s是由一个原始字符串反复重叠形成的，例如字符串" abcababcababcab"是由abcab"重叠而成。如下VB程序段用于查找输入字符串的原始字符串：
s="abcababcababcab" : n= Len(s)

For t=1 To n\ 2

    If n Mod t=0 Then

        For i=t+1To n

            If <>Mid(s, i, 1) Then Exit For

        Next i

        If i =n+1 Then ans = : Exit For

  End If

Next t

Text1.Text= ans

上述程序段2个方框处的表达式分别为(    )

A、①Mid(s, (i-1) Mod t+1, 1)②Mid(s, t, 1) B、①Mid(s, i Mod t, 1)②Mid(s, 1, t) C、①Mid(s, i Mod t, 1)②Mid(s, t, 1) D、①Mid(s, (i-1) Mod t+1, 1)②Mid(s, 1, t)

查看解析
2、有如下VB程序段：
Private Sub Command1_ Click()

Dim s As String, a As String, t As String

s=Text1.Text：t=" "

For i=1 To Len(s)

    a= Mid(s, i, 1)

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

      t=t+a

    ElseIf a="！" Then

      t=" "

    ElseIf t <> "" Then

      List1.AddItem t

    End If

Next i

End Sub

执行程序时，在文本框Text1中输人“12+ 34=46！ 789ok”(不包括双引号)，单击按钮Command1后，在列表框List1中显示的结果是(    )

A．12

1234

123446

123446789

B．12

34

46

789

C．12

1234

789789

D．12

1234

123446

789

789

A、A B、B C、C D、D

查看解析
3、字符串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<= Len(s1) And j<= Len(s2)

            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、②①③

查看解析
4、从文本框Text1输入一个序列，如果出现连续升序的几个数(或字符)，称为一个升序段。如字符串“1231223”中存在3个升序段，分别是“123”、“12”和“23”，下列VB程序的功能是统计序列中升序段的个数。
s= Text1． Text

i=2 ：k=0 ：t=0

Do While i <= Len(s)

    If Then



    Else

        k=0

    End If

    If k=1 Then t=t+1

    i=i+ 1

Loop

Label1.Caption= Str(t)

为实现上述功能，程序中加框①②处应该填入的代码是(    )

A、①Mid(s，i-1，1)<= Mid(s，i，1) ②k=1 B、①Mid(s，i-1，1)<= Mid(s，i，1) ②k=k+1 C、①Mid(s，i-1，1)< Mid(s，i，1)②k=1 D、①Mid(s，i-1，1)< Mid(s，i，1)②k=k+1

查看解析
5、袜子颜色配对问题。现有不同颜色的袜子若干(袜子的颜色用数字编号1~15表示)，颜色相同的袜子才能组成一双，其中有几只袜子是落单的，现要求找出落单袜子的颜色以及能够配对的袜子数量。编写VB程序解决该问题，程序运行时，在文本框Text1中依次输人袜子的颜色编号(数据都用逗号分隔并以逗号结尾)，单击“查找”按钮，在列表框List1中输出落单袜子的颜色编号，在标签Label1中显示能配对的袜子数量。运行界面如图所示，实现上述功能的VB程序如下。
请回答下列问题：

Const n=15

Private Sub Command1_ Click()

Dim a(1 To n) As Integer      '数组 a存放不同颜色袜子的数量,默认值为0

Dim s As String, ch As String

Dim c As Integer, i As Integer, t As Integer

    List1. Clear

    s= Text1. Text

    t=0：c=0：i=1

    Do While i <= Len(s)

        ch= Mid(s, i, 1)

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

            t=t * 10 + Val(ch)

        Else

            a(t)=   ①

           t=0

        End If

       i=i+ 1

  Loop

  For i=1 To n

        If   ②   Then List1. AddIt-em"落单袜子的颜色为" + Str(i)

        c=

  Next i

  Label1. Caption="能配对的袜子有"+ Str(c) + "双"

End Sub

(1)、写出VB代码中的方法名(只需填一个方法名)；

(2)、根据题意，请在划线处填入合适代码
① ②

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

查看解析
6、小明为了将十进制数转化为k进制数(k值范围在2到16之间)，设计如下界面程序：在文本框Text1中输入一个十进制数，在文本框Text2中输入整数k，单击“运行”按钮Command1，程序将十进制转化为k进制值，并在标签Label1中输出结果。请回答下列问题：

(1)、程序窗体中“运行”所用的控件是(选项A . ；B . ；C . ；D . )。

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

Dim d As Integer, k As Integer, r As Integer

Dim s As String, c As String

d= Val(Text1. Text)

k= Val(Text2. Text)

s=" "

Do While d>0

    r=d Mod k

    If r>=10 Then

      c= Mid(“ABCDEF”,,1)

    Else

      c=str(r)

    End If

    s=

    d=d\ k

Loop

Label1. Caption=“结果为：”+s

End Sub

(3)、运行该程序，在文本框Text1中输入“28”，文本框Text2 中输入“16”，单击“运行”按钮，则Label1显示的内容为是。

查看解析
7、找英文单词并统计每个单词的字母数量设计一个VB程序，程序实现功能如下：在文本框Text1中输入文章信息，点击“统计”按钮Command1，依次在列表框List1 中显示连续的字符，最后一行显示每个连续字母的数量，数字之间用“，”隔开。

程序界面如图所示，实现上述功能的VB代码如下，请回答下列问题：

(1)、代码中的AddItem属于( 单选，填字母：A .属性名/B .方法名/C .对象名)。

(2)、请在划线处填上合适的代码。
Private Sub Command1_Click()

    Dim s As String, ans As String

    Dim ch As String, n As Integer

    Dim i As Integer

    s= Text1.Text

    ans =““: n=0

    For i=1 To Len(s)



        If ch>= "A" And ch<= "Z" Or ch>>="a" And ch<=" z" Then

            n=n+1

        ElseIf n > 0 Then

            ans=ans+Str(n) + ","

            List1.AddItem

            n=0

        End If

  Next i

   List1.AddItem"连续字母的数量依次为:"+ans

End Sub

(3)、若在文本框Text1中输入的内容为“Summer vacation is comming”(不带双引号)，运行程序后，ans的值为。

查看解析
8、小王写了一个单词接龙的VB程序，功能如下：分别在Text1和Text2中输人单词s1和s2，单击“接龙”命令按钮，在Label3中显示s1与s2“接龙”之后的结果。接龙时，若前后单词拼接处有重合部分，其重合部分会合为一个部分，若无重叠部分，则直接将两个单词接在一起。例如单词“touch”和“cheat”接龙，重叠部分为“ch”，因此连接之后的结果为“toucheat”；而单词“cheat"和at”接龙，重叠部分为“at”，因此连接之后的结果为“cheat”，程序运行界面如图所示。

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

(1)、若要使程序运行时，窗体的标题处自动显示“单词接龙”，应该在窗体加载事件中，添加语句(单选，填字母：A .Form1.Labe1=“单词接龙”/B .Form1.Text="单词接龙”/C .Form1.Caption=“单词接龙”)。

(2)、请在划线处填入合适的代码。
Private Sub Command1_Click()

    Dim s1 As String, s2 As String

    Dim i As Integer, p As Integer, n1 As Integer, n2 As Integer

    s1= Text1.Text: s2= Text2.Text

    n1= Len(Text1.Text) : n2= Len(Text2. Text)

    p=0：i=1

    Do While      '改错

        If Mid(s1, n1-i+1, i)= Mid(s2, 1, i) Then

            p= i

        End If

        i=i+1

    Loop

    If p=0 Then

        Label3.Caption=s1+s2

    ElseIf Then

        Label3. Caption= s1

    Else

        Label3.Caption=s1+

    End If

End Sub

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

查看解析
9、简易加法器：小王用VB编写了一个简易加法器，其功能如下：在文本框Text1中输入数字，中间用“，”隔开，单击“计算”命令按钮Command1后，其计算结果输出在标签框label1中。运行界面如图所示，VB程序代码如下，请回答以下问题。

(1)、观察代码，可知“计算”命令按钮的对象名为。

(2)、请在画线处填入合适的代码。
Private Sub Com_ Click()

    Dimi As Integer, j As Integer, ans As Integer

    Dim ch As String, s As String

    s= Text1.Text

    ans=0: j= 1

    For i=1 To Len(s)



        If ch=“，”Then

            ans=ans+Val(Mid(s， j， i-j))

            j=

        End If

    Next i

    Label1.Caption=“计算结果是：”+Str( ans)

End Sub

(3)、运行该程序，在文本框中输入“21，5，3”，则计算结果(值)是。

查看解析
10、有如下VB程序段：
i=1: n=0: Max=0: Sum=0: c=0

Do While i<=5

    n=Int(Rnd*5+1)

    If n> Max Then Max= n: Sum= Sum+Max: c=c+1

    i=i+ 1

Loop

执行该程序段后，以下变量的值可能为(     )

A、i=5 B、max=6 C、sum= 12 D、c=0

查看解析
11、编写VB程序，实现如下功能：在文本框text1中输入自然数n，单击“产生n个随机数并求和与最大数”按钮Command1，则在列表框List1中输出n个小于100的随机整数，并输出n个随机数的和与最大值，界面如图所示。

(1)、观察运行界面，选项中没有用到的控件是(选项A . .；B . ；C . ；D . )。

(2)、设计该窗体界面时，需要将窗体Form1的属性设置为“最大随机数”。

(3)、请完善下列程序横线处代码
Private Sub Command1_ Click()

    Dim a(1 To 10) As Integer ．

    Dim i As Integer, n As Integer

    Dim s As Integer, max As Integer

    n= Val(Text1. Text)

    i=1：s=0

    Randomize     '随机函数的初始化语句

    Do While i <=n

        a(i)= Int(Rnd * 100)

        List1. AddItem Str(a(i))

        s= s+ a(i)



    Loop

    max=a(1)

    For i=2 To n

       If a(i)> max Then

    Next i

    List1. AddItem“和为：”+

    List1. AddItem“最大值为：”+Str( max)

End Sub

查看解析
12、编写VB程序，寻找左边第1位为2，第5位为5，数字长度为5的完全平方数，并统计个数。要求：单击“寻找”按钮Command1，将符合要求的五位数显示在列表框List1中，统计个数显示在标签Label2中，界面如图所示。

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

Private Sub Command1_ Click( )

    Dim i As Integer， n As Integer

    Dim x As Integer

    n=0

    For i=0 To 999

        x= ①

        If Int(Sqr(x))= Sqr(x) Then

          List1． AddItem    ②

             ③

    End If

    Next i

    Label2．Caption=“共有：”+Str(n)+“个”

End Sub

(1)、在设计应用程序界面时，能在窗体上添加标签Label2的操作是(填编号：①单击工具箱中的标签控件②双击工具箱中的标签控件)

(2)、为实现上述功能，在划线处应填入合适的代码
① ② ③

查看解析
13、用VB编写求句子中最长单词的程序。输入要求：句子以‘．’结束；单词之间用空格分隔，单词没有缩写形式和其他特殊形式。运行界面如图所示，程序功能：在文本框Text1中输入待统计的句子，单击“统计”按钮Command1，将结果显示在文本框Text2和Text3中。

(1)、代码“Private Sub Command1_ Click”中的Command1_ Click ()是(单选，填字母：A .对象名；B .事件；C .事件处理过程；D .方法)。

(2)、根据题意将下列程序补充完整。
Private Sub Command1_ Click()

    Dim i As Integer， k As Integer

    Dim s As String， ch As String

    Dim max As Integer    '存储句子中最长单词的长度

    Dim ss As String    '存储句子中最长的单词

    s= Text1.Text

    i=1 ：k=0：max=0

    ch=“”

    Do While ch<>“.“ Or i <= Len(s)

        ch= Mid(s， i， 1)

        If ch <>“”And ch<>“.”Then



        Else

            k=0

        End If

        If Then

           max= k

           ss=

        End If

        i=i+1

    Loop

    Text2.Text= Str( max)

    Text3.Text= ss

End Sub

查看解析
14、有如下VB程序段：
Dim i As Integer, s As String

Dim a(1 To 10) As Integer

a(1)=1 : a(2)=2

For i=3 To 10

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

s=s+a(i)

Next i

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

运行该段程序后，出现的错误提示为( )

A、下标越界 B、子程序或函数未定义 C、溢出 D、类型不匹配

查看解析
15、下列VB表达式的值为True的是( )

A、8\4*4+ Int(8.4)=16 B、"56">"527" C、a> b And a<= b D、Not(a> b Or a<= b)

查看解析
16、下列选项中，与语句“If Not x> 0 Then ans=1 Else ans= 2”功能相同的是( )

A、ans=1
If x<0 Then ans=2
B、ans=2
If x<0 Then ans= 1
C、ans=1
If Not x<0 Then ans=2
D、ans=2
If x<= 0 Then ans=1

查看解析
17、已知a=1，b=2，c=3，下列表达式中值为True的是( )

A、Not(a<b) B、a>b And b>c C、a<b Or a>c D、a>c

查看解析
18、只能产生大于等于10且小于100随机整数的VB表达式是（）

A、Int(Rnd * 100) B、Int(Rnd* 90+10) C、Int(Rnd* 91)+ 10 D、Int(Rnd * 99)+1

查看解析
19、某算法的部分流程图如图所示。执行这部分流程，依次输人5，6，7，则输出s时，s和a的值分别是( )

A、-1，1 B、1，1 C、5，-1 D、6，-1

查看解析
20、某算法的部分流程图如图所示。执行这部分流程后，变量a和s的值分别为( )

A、3和3 B、3和5 C、5和3 D、5和15

查看解析

上一页 419 420 421 422 423 下一页跳转