相关试卷

1、生物学家将DNA表示成关于“A、C、G、T”4个字符的字符串，为方便存储与传输，通常将字符“A、C、G、T”分别用“0、100、101、11”来代替编码，如：“CTAG”编码为“100110101”，小李编写了以下程序，界面如图所示将接收到的代码输入到文本框，点击“转换”按钮后，在标签Label1上显示由“A、C、G、T”字符组成的DNA序列，若转换时出现非“A、C、G、T”4个字符，则显示“接收有误”。请回答下列问题：

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

Dim i As Integer, a As String, p As string

s=Text1.Text

n=Len (s)

p= “”

i=1

f =True

Do While i < = n

    If Mid(s, i, 1)= “0” Then

        p= p + “A”

        i=i+1

    ElseIf Mid(s, i+1, 1)= “1” Then

        p = p + “T”

              ①

    ElseIf Mid(s, i+2, 1) = “1” Then

        p = p+ “G”

        i=i+3

    ElseIf Mid(s,      ②     , 1)= “0” Then

        p = p + “C”

        i=1+3

    Else

        f=False

        i=i+n

    End If

Loop

If f Then Label1. Caption Else. Caption = “接收有误”

End Sub

① ②

(2)、若接收到的代码是：000111，则显示的是。

查看解析
2、小明编写一个“数字序列和”程序，实现如下功能在文本框Text中输入多个正整数（以空格为分割符，点号为结束符），单击“算”按钮Command1，程序将这些整数累加起来，最后这些数据的和显示标签Label1中。程序运行界面如图所示。

(1)、要使窗体Form1标题显示“计算数据序列和”，可修改该对象的属性。

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

Dim s As string, c As string

Dim sum As Integer, i As Integer, t As Integer

sum=0

     ①

For i =1 To Len(s)

    c= Mid(s, i, 1)

    If Not (c > = “0” And c < “9”) Then

        sum = sum + t

        t =0

    Else

        t=      ②

    End If

Next i

Label1. Caption = “该数据序列的和为:”+Str(sum)

End Sub

① ②

(3)、若文本框Text中输入的内容以逗号为分割符（即输入内容为“12，520，123，1000，5，68.”），单击“计算”按钮后，标签 Label1中显示的内容是。

查看解析
3、小明编写了一个程序，功能如下：在文本框Text1中输入字符串，在文本框Text2中输入一个指定字符。单击按钮 Command1后在标签Label2上显示删除指定字符后的字符串结果。程序运行界面如图a所示。

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

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

Dim s As String, ans As String, i As Integer

Dim key As String, ch As String

s=Text1.Text

key Text2.Text

ans = “”

i=1

Do While i < = Len(s)

    ch =Mid(s, i, 1)

        If      ①       Then

            ans = ans + ch

        End If

              ②

Loop

Label2. Caption= “删除后的字符为:”+ans

End Sub

① ②

(3)、运行时，在文本框Text中输入“fthanfksf”，在文本框Text2中输入“f”，单击“处理”按钮后，对语句ans=ans+ch执行次数是（单选，填字母：A .5次B .6次/C .7次/D .8次）。

查看解析
4、编写“数字提取”程序，实现如下功能：在文本框Text中输入包含数字和其他非数字字符混合的原始数据，点击“数字提取”按钮 Command1，将数据中的数字以“.”间隔输出到文本框Text2中。程序运行界面如图所示，VB代码如下。请回答以下问题：

(1)、要使程序运行后，窗体 Form1标题立即自动显示为“数字提取”，可在（单选，填字母：A .Form Load/B .Form_Click/C .Command1_Click）事件过程中添加语句 Form1. Caption= “数字提取”。

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

Dim s As String, ch As String, flag As Boolean

Dim tmp As String, ans As String

s= Text1.Text

tmp = “.” Ans= “.”

Flag= False

For i =1 To Len(s)

    ch=Mid (s, i, 1)

    If ch > = “0” And ch < = “9” Then

        tmp=   ①

        flag = True

    ElseIf flag = True Then

        ans = ans +tmp + “.”

            ②

        flag =False

    End If

Next i

Text2.Text ans

End Sub

① ②

(3)、如上图所示，若删除程序中加框处语句“s=s+ “.”，输不变，则提取后的数字信息为。

查看解析
5、编写“字符提取”程序，实现如下功能：分别在文本框Text1中输入起始位置L文本框Text2中输入结束位置R（L≤R），单击“提取”按钮，若提取的字符串长度不足10个，则在文本框Text3中依次提取从起始位置至结束位置上的字符，并显示在标签 Label5中。若提取的字符串长度超过10个（包括10个），则标签Label5中只显示从起始位置开始的前10个字符，如提取的字符串为“abedefghijklm”，则显示结果为“abcdefghij”。程序运行界面如图所示。

(1)、根据程序运行界面及程序代码可知，当前窗体中添加的按钮对象的名称为。

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

Dim As Integer, As Integer, temp As Integer i As Integer Dim c As String, s As String

L= Val (Text1. Text)

R= Val(Text2.Text)

If R-L <10 Then

    temp =R

Else

    temp=   ①

End If

      ②

Do While i < = temp

    c=   ③

    s=+c

    i=1+1

Loop

Label5.Caption =s

End Sub

① ② ③

(3)、若在上图所示运行界面（原始内容含32个字符）的文本框Text1中输入30，文本框Text2中输入45，点击“提取”按钮后，标签Label5中显示的内容为。

查看解析
6、小李编写了一个“查找小写字母并逆序输出”的程序，实现如下功能：在文本框Text1中输入由字母、数字等组成的字符串，单击“查找”命令按钮 Command1后，查找出所有小写字母并在文本框Text2中逆序输出。程序运行界面如图所示。请回答下列问题：

(1)、要使程序运行时，命令按钮 Command1上显示“查找输出”，可在 Form_Load( )事件过程中添加语句（单选，填字母：A .Command1 = “查找输出”/B .Command1.Text= “查找输出”/C .Command1 Caption= “查找输出”）

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

Dim s As String, t As String

Dim i As Integer, ch As String

S = Text1.Text

For i = To Len(s)

    Ch=   ①

    If ch > = “a” And ch < = “z” Then

        t=   ②

    End If

Next i

Text2. Text = t

End Sub

① ②

(3)、如果将加框处的代码t改为Str(t)，则运行程序时将（选填：出错/不出错）。

查看解析

7、小王用VB编写了一个能自动识别浙江省固定电话号码所属地区的程序，在文本框Text1中输入固定电话全号（“0”+区号+电话号码）单击命令按钮 Command1，程序自动在标签 Label2中输出电话号码所属地区浙江省地市），程序运行界面如图所示。

浙江省电话区号和地区对应关系如下表：

地区	衢州	杭州	湖州	嘉兴	宁波	绍兴	台州	温州	丽水	金华	舟山
电话区号	570	571	572	573	574	575	576	577	578	579	580

(1)、要使程序运行后，命令按钮 Command1的Caption属性值自动变为“识别”，可在（单选，填字母：A .Label2_Click( )/B .Form_Load( )/C .Command1_Click( )）事件过程中添加语句Command. Caption= “识别”。

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

Private Sub Command1_Click( )

Dim s As String, DH As String, qh As Integer

DH= “衢州杭州湖州嘉兴宁波绍兴台州温州丽水金华舟山”

s=Text1. Text

qh=Val (Mid (s,2,3))

If gh > = 570 And gh < = 580 Then

Label2. Caption= “该电话号码属于:”+

①

Else

Label2.Caption= “该电话号码不属于浙江省！”

②

End Sub

① ②

(3)、若在文本框Text1中输入的内容为“5720-30875121”，单击“识别”按钮，则标签Label2中显示的内容是。

查看解析

8、用VB编写十六进制转换为十进制的程序运行界面如图所示，程序功能如下：在文本框Text1中输入待转换的十六进制值（字母必须大写），单击按钮 Command1，进行转换，并将结果显示在文本框Text2中。

(1)、观察程序的运行界面，当前窗体标题文字“进制转换”是Form1对象的属性的属性值。

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

Dimi As Integer, n As Integer, dec As Integer

Dim ch As String, s As String

dec=0

       ①

For i= 1 To Len(s)

    ch= Mid(s, i, 1)

    If   ②   Then

        n Asc (ch)-Asc (“A”) +10

    Else

        n Val(Mid(s, i, 1))

    End If

        dec = dec +n * 16 ^ (Len (s)-i)

Next i

Text2. Text = Str(dec)

End Sub

① ②

(3)、若在文本框Text中输入“31”，则文本框Text2输出的值是。

查看解析
9、将一个二进制数转化为十进制数可以采用“按位权展开”法。程序功能如下：在文本框Text1中输入一个二进制数，单击“开始转换”按钮Command1后，对应的十进制数在文本框Text2中显示。程序界面如图所示。

进转为进制程序

(1)、该程序窗体中共有个对象（不包含窗体本身）。

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

Dim s As String, st As Long, ch As Integer

Dim i As Integer, n As Integer

   ①

n=Len(s)

st=0

For i=1 To n

    ch=   ②

    st=st+ch*2^(i- 1)

Next i

Text 2. Text = Str(st)

End Sub

① ②

(3)、运行该程序，当输入的二进制数为“10101”时，得到的十进制结果是。

查看解析
10、一个十进制整数的二进制表示中，如果数字“1”的个数多于数字“0”的个数，则称该整数为A类数。如十进制整数26的二进制表示为11010，26是一个A类数。下列VB程序的功能是寻找前1000个自然数中所有A类数，在List1中输出，并将统计个数在Text1中输出。

(1)、十进制数37（选填：是/不是）A类数。

(2)、请在划线处填入合适的代码。
Private Sub Command1_Click( )
Dim i As Integer, n As Integer
Dim s As Integer     ‘s为A类数的个数
Dim t As Integer     ‘t为二进制数中 “1”的个数
Dim k As Integer     ‘k为二进制数中 “0”的个数
s=0
For=1 To 1000
    n=i:t=0:k=0
    Do While n>0
        If     ①     Then t = t+1
        Else k = k+1
           ②
    Loop
    If t > k Then
        List1. Additem Str(i)
        s=s+1
    End If
Next i
Text1.Text=str(s)
End Sub
① ②

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

(1)、程序窗体中“运行”所用的控件是（A . /B . /C . /D . ）

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

Dim 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显示的内容是。

查看解析
12、编写VB程序，实现如下功能：在文本框Text1输入一个字符串，单击命令按钮Command1，判断这个字符串是不是回文字符串（回文字符串就是一个对称的字符串，如“abcba”和“abccba”都是回文字符串，“abc”不是回文字符串）。在文本框Text2中显示结果，是回文字符串显示“yes”，否则显示“no”。程序运行效果如图所示。

(1)、要使命令按钮 Command1的标题变为“判断”，则应该修改该对象的属性。

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

Dim st As String

Dim i As Integer, j As Integer

Dim flag As Boolean

   ①

J= Len (st)

i=1

flag=True

Do While flag And (i < = j)

    If Mid(st,i,1)= mid (st,j,1) Then

        i=i+1

           ②

    Else

        flag=False

    End If

Loop

If   ③ then

    Text2. Text = “yes”

Else

    Text2. Text = “no”

End If

End Sub

① ② ③

查看解析
13、小李用VB编写了一个程序，在文本框Text1输入任意字符串s单击命令按钮 Command1，统计s中以各连续数字字符串为因子的数字之和。如输入字符串“ast23bcde567fg8”，则输出598，即23+567+8，在Text2中输出结果。程序运行界面如图所示。

(1)、若要将文本框的默认值设为空，则应设置文本框的属性为空。

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

Dim s As String, a As String, b As String

Dim p As Integer, sum As Integer

s= Text1. Text+ “e”    ‘加一个结尾非数字字符

i=1

P=0

sum=0

Do While i< Len(s)

   a=Mid(s, i, 1)

    b =Mid(s,+1, 1)

    If(a > = “0” And a < = “9”) And (b > = “0” And b < = “9” ) Then

        p=p*10+Val(a)

       ①

        p=p*10+Val(a)

        sum=sum+p

        p=0

        i=i+1

    Eed If

       ②

Loop

Text2. Text= str(sum)

End Sub

① ②

(3)、若输入的字符串是“a2b056789bc8”，则程序运行后显示的结果是。

查看解析
14、小明编写了一个简单算式计算器程序，功能如下：在文本框Text1中输入一个加法的算式，形式为a+b，a和b都为正整数，单击按钮 Command1后，在标签 Label1上显示算式的计算结果。程序运行界面如图所示。

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

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

Dim key As String

Dim a As Integer, b As Integer, ans As Integer, ch As String

key =Text1.Text

i=1

Do While i <= Len (key)

    ch Mid(key, i, 1)

    If ch>= “0” And ch < = “9” Then

           ①

    Else

        Exit Do   ‘退出循环

    End If

Loop

a=   ②

b= Val (Mid（key,+1, Len (key)-i）)

ans =a +b

Label1. Caption= “算式计算结果为: “+str(ans)

End Sub

① ②

(3)、程序运行时，在文本框中输入“123+10”，单击“计算”按钮后，对语句ch=Mid(key, i, 1)执行的次数是。

查看解析
15、用VB编写“单词查询”程序，实现如下功能：在文本框Text中输入一段英文文本（以“.”为结束符），在文本框Text2中输入一个英文字母，单击“获取单词”按钮Command1，在列表框 List中依次显示Text1中包含该英文字母的所有单词。程序运行界面如图所示。

(1)、程序运行时，文本框 Text1显示“请输入英文短句”，可在 Form_Load事件过程中添加代码（单选，填字母：A .Text1. Caption=”请输入英文短句”/B .Text1.Text= “请输入英文短句”/C .Text. AddItem “请输入英文短句”）

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

Dim s As String, tmp As String, As String

Dim n As Integer, i As Integer

Dim flag As Boolean

Dim cnt As Integer     ‘存储符合条件的单词数

s=Text1.Text

n=Len(s)

flag False

List1.Clear

For i =1 Ton

    c= Mid(s, i, 1)

    If c >= “a” And < “z” Or c > = “A” And c < = “z” Then

           ①

        If= Text2. Text Then flag True: cnt= cnt +1

    Else

        If flag Then List1. AddItem tmp

        tmp = “”

           ②

    End If

Next i

    If cnt = 0 Then

        List1.AddItem “找不到符合条件的单词.”

    End If

End Sub

① ②

(3)、若在文本框Text2中输入“M”，则单击“获取单词”按钮后，列表框List1中显示的单词个数是。

查看解析
16、如果一个正整数从高位到低位上的数字依次递减，则称其为降序数（如92、4772是降序数，而7524不是降序数）。现编写VB程序实现如下功能：在文本框Text1中输入一个正整数，单击“判断”按钮 Command1，在标签Label2中显示出该数是不是降序数。程序运行界面如图所示。

(1)、代码Private Sub Command1_Click( )中 Command1是。（单选，填字母：A .对象名/B .事件/C .事件处理过程/D .方法）。

(2)、请完善下列程序代码：
Private Sub Command1_Click( )

Dim i As Integer, s As String, flag As Boolean

    ①

flag True: i=2

Do While i <= Len (s) And flag

       ②

        i=i+1

   ③

If flag Then

    Label2. Caption=s+ “是降序数！”

Else

    Label2.Caption=s+ “不是降序数！”

End If

End Sub

① ② ③

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

(1)、代码“Private Sub Command1_Click( )”中的 Command1Click( )是（单选，填字母：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

① ② ③

查看解析
18、奇偶校验是一种校验数据传输正确性的方法。其中奇校验方法为：统计二进制数据的数位中“1”的个数，若个数为奇数，则校验位值为0，否则校验位值为1小李编写了一个计算奇校验位值的VB程序，功能如下：文本框Text中输入1～255的十进制待校验数，单击“计算”按钮Command1后，文本框Text2中显示该数对应的二进制值，并在标签 Label3中显示该数的校验位值。程序运行界面如图所示。

(1)、在设计程序界面时，要清空文本框中的显示内容，应修改该文本框的属性。

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

Dim a As Integer, s As String

Dim. n As Integer, t As Integer, v As Integer

n= Val(Text1. Text)

t=0

s= “”

Do While n >0

    a= n Mod 2

    n=n\2

    t= ①

    s=Str(a)+ s

Loop

v=t Mod 2

Text2. Text =s

Label3. Caption=校验位值: “+ ②

End Sub

① ②

(3)、运行该程序，在文本框Text1中输入22，击“计算”按钮，则显示的校验位值是。

查看解析
19、在平面坐标系中，给定一组有序的点。从原点出发，依次用线段连接这些点，构成一条折线。要求编写一个“计算折线长度”的程序，功能如下：在文本框Text1中依次输入这些点的坐标值（数据都用逗号分隔并以逗号结尾），单击“计算”按钮Cmd后，程序计算这条折线的长度，结果显示在 Label1中。例如，三个点的坐标（5，10）、（8，12）、（6，17）输入格式如图所示。

(1)、Cmd对象属于类。（单选，填字母:A .form/B . Label/C . Text Box/D .com mandButton）

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

Dim i As Integer, j As Integer, k As Integer

Dim As Single, yl As Single,x2 As Single, y2 As Single

Dim As Single, Totald As Single, v As Single, s As String

s=   ①

x1=0:y1=0        ‘出发点为坐标原点

k=1:j=1: Totald=0

For i=1 To Len(s)

  If Mid(s, i, 1) =”,” Then

    v=Val(mid(s,j,i-j))       ‘提取坐标值,保存在变量v中

    j=1+1

    If ②   Then

        x2=v

    Else

        y2=v

        d=Sqr((x2-x1)＾2+(y2-y1)＾2)

        Totald=Totald+d

        x1=x2:y1=y2

    End If

    k=k+1

End If

Next i

Label1.Caption=Str(Totald)

End Sub

① ②

(3)、运行该程序，输入如上图所示的数据，程序执行到循环结束时，变量k的值为。

查看解析
20、某算法的部分流程图如图所示，执行这部分流程后，下列说法正确的是（）

A、变量i的值为4 B、变量f的值为True C、语句“i mod 3=0？”执行的次数为2次 D、语句“i←i+1”和“f←Not f”执行的次数为3次

查看解析

上一页 1399 1400 1401 1402 1403 下一页跳转