试题

试题 试卷

logo

题型:综合题 题类:常考题 难易度:普通

浙江省高中信息技术——VB基础知识

一个十进制整数的二进制表示中,如果数字“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

 ② 

举一反三
【加试题】任意一个英文单词都由若干字母组成,记录单词中每个字母出现的次数,其中maxn为最多次数,minn为最少次数,如果maxn与minn的差是一个素数,这个单词就是一个幸运单词。

例如:单词banana由b,a,n三个字母组成,其中a字母出现了3次,n字母出现了2次,b字母出现了1次,得到maxn为3,minn为1,maxn与minn的差为2,是一个素数,那么banana就是一个幸运单词。

编写一个判断幸运单词的VB程序,在文本框Text1中输入一个单词(注:仅输入小写字母,且长度小于100),单击“判断”按钮Command1,标签Labal1输出运行结果。

程序运行界面如图所示,实现上述功能的VB代码如下,但加框处代码有错,请改正。

Private Sub Command1_Click()

    Dim maxn As Integer

    Dim minn As Integer

    Dim a(1 To 26)As Integer

    maxn=0

    minn=100

s= Text1.Text

n=Len(s)

For i=1 To n

        dz=Mid(s,i,1)

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

          p=                 ‘(1)

           a(p)=a(p)+1

        End If

Next i

For j=1 To 26

        If a(j)>0 Then

         If a(j)>maxn Then maxn=a(j)

          If a(i)<minn Then minn=a(j)

        End If

       Next j

    If(maxn-minn>=1)And  Then       ‘(2)

        Label1.Caption=“幸运单词!”

      Else

        Label1.Caption=“无!”

      End If

    End Sub

‘自定义函数iszs(x)用于判断整数x是否为素数,如果x是素数返回True

  Function iszs(x As Integer)As Boolean

      ‘代码略

End Fuction

返回首页

试题篮