高中信息技术:

高中 信息技术

在VB中,能够正确表示代数式 的是 (   )
A . x^3+1/abs(x)+sqr(x) B . (x^3+1)/abs(x)+sqr(x) C . x^3+1/(abs(x)+sqr(x)) D . (x^3+1)/(abs(x)+sqr(x))
使用UltraEdit软件查看字符内码,部分界面如图所示。

下列说法正确的是(  )

A . 图中内码所对应的字符串包含9个ASCII字符 B . 图中内码所对应的字符串是“2020温州happy!” C . 图中内码所对应的字符串包含6个GB2312字符 D . 图中内码“30”是字符“0”的十六进制内码,则字符“-1”的十六进制内码为“2F”
编写一个VB程序,实现如下功能:在文本框Text1中输入一个偶数n,判断该数在10步之内通过以下计算过程后能否回到初始值。计算步骤如下:

1)将n乘以3后加1产生一个新的数

2)对产生的新数循环执行如下操作:新数是偶数时,用新数除以2;新数是奇数时,用新数乘以3后加1

譬如,以2为初始值,则计算过程如下。2→7→22→11→34→17→52→26→13→40→20→ 10→5→16→8→4→2。数字2不能在10步之内回到初始值。

界面如图所示,回答下列问题:

  1. (1) 若要把窗体的标题名称由“Form1”改为“数值猜想”,应改变窗体的属性。
  2. (2) 完成上述功能的程序代码如下,请在划线处填入合适的代码

    Private Sub Command1_Click()

        Dim n As Integer, t as Integer ,m as Integer ,s as String

       

        t = n * 3 + 1

        m = 1

        s = ""

        Do While

            s = s + Str(t)

            If t Mod 2 = 0 Then

                t = t \ 2

            Else

                t = t * 3 + 1

            End If

            m = m + 1

        Loop

        If n = t Then

            Label1.Caption = s + Str(n)

        Else

            Label1.Caption = "该数10步之内无法实现!"

        End If

    End Sub

  3. (3) 按照以上VB程序的计算方法,若在文本框Text1中输入4,能否在10步之内回到初始数。(选填:能/否)
在多媒体合成软件Flash中,可承担交互作用的对象是(  )。
A . 图形 B . 按钮 C . 声音 D . 文字
下列网络连接设备中,起将信号复制再生作用的设备是(     )。
A . 路由器 B . 集线器 C . 交换机 D . 中继器
下列说法中正确的是(     )。
A . 无线局城网的结构只采用“点对点”形式。 B . 无线局域网只采用无线电波作为传输介质。  C . 无线局域网标准为IEEE802.5 D . 无线局域网中使用最广泛的是扩展频谱技术
根据文件的命名规则,下列字符串中是合法文件名的是(    )
A . *ASDF.ini B . AB_F@!.rm C . C/N.com D . CD?.TXT
下列哪种接入互联网方式必须使用调制解调器?(   )
A . 局域网上网     B . 广域网上网     C . 专线上网     D . 电话线上网   
有如下Visual basic程序段:

a=2

b=5

If a<b Then

    m=a

Else

    m=b

End If

该程序段运行后,变量m的值为(   )。

A . “a” B . “b” C . 2 D . 5
Photoshop里Shift+Ctrl+I组合键代表什么?(     )
A . 变换大小 B . 羽化 C . 反向 D . 反选
在中文WORD2003中,按钮的功能是将选定的格式复制到指定的位置(   )
A . 复制 B . 粘贴 C . 格式 D . 格式刷
生成10个不重复的随机整数,保存在数组a中,并升序排列,实现算法的VB程序如下。

Dim a(1 To 10) As Integer, f(1 To 10) As Boolean

'f 数组各元素的初值设为 False,代码略

For i = 1 To 10

    t = Int(Rnd() * 20 + 1)

    If Not f(t) Then

        a(i) = t

                 ⑴       

    Else

               ⑵      

    End If

Next i

For i = 1 To 20

If flag(i) Then List2.AddItem       ⑶       

Next i

上述程序中 3 处下划线应填入的程序代码是

A . ⑴ f(i) = True    ⑵i=i-1               ⑶Str(a(i)) B . ⑴ f(a(i)) = True  ⑵i=i-1               ⑶Str(i) C . ⑴ f(a(i)) = True  ⑵t =int(Rnd()*20+1)  ⑶Str(i) D . ⑴ f(i) = False    ⑵t =int(Rnd()*20+1)  ⑶Str(a(i))
使用UltraEdit软件观察字符“2018,好运!”的内码,部分界面如图所示。

下列说法正确的是(  )

A . 字符“,”的内码占用1个字节 B . 字符“3”的二进制内码是110010B C . 字符“!”的十进制内码值是33D D . 全部字符中只有2个字符采用GB2312编码
关于图中无线路由器下列说法不正确的是(       )

A . 图中无线路由器接入点通过电缆连线或网线连接交换机,通过无线电波与无线终端连接 B . 图中无线路由器上的WAN用于连接交换机 C . 图中无线路由器上的WAN口用来连接笔记本 D . 图中的无线路由器的拓扑结构是星型
下列关于图像的说法中不正确的是(  )
A . 制作网页时,图片通常采用GIF或JPEG格式 B . 图像的特色主要体现在信息丰富,形象直观,并且可以跨越语言的障碍 C . Photoshop可以对老照片进行旋转、裁切、色彩调校、滤镜调整等加工 D . 将一幅BMP格式的图片转换为JPEG格式,图片的质量会变得更高
在Excel中,如果某单元格事先设置的数字格式为2位小数,当向该单元格输入数值1.245时,单元格中将显示
小林父亲接到了一个陌生联系人的电话,告诉他中了万元大奖,并请他将中国银行发给他的短信验证码告知对方,才可以给他转账。随即,他收到了一条中国银行发来的含有验证码的短信。他正确的做法是(  )
A . 立刻将验证码告知对方 B . 和家人分享中奖喜悦 C . 判断其为诈骗电话,并向公安机关举报 D . 和对方交流,并将自己的身份证号码和住址等信息告知对方
从网络覆盖范围上讲,因特网是一种(   )
A . 互联网 B . 局域网 C . 远程网 D . 广域网
【加试题】运行下列VB程序,在文本框Text1中输入30,界面如图所示。

单击“计算”按钮Command1后,则在文本框Text2中显示的内容是,在文本框Text3中显示的内容是

  Private Sub Command1Click()

Dim s As Integer, t As Integer, n As Integer

n = Val(Text1.Text)

t = 0

s = 0

For i = 1 To n

     If Int(Sqr(i)) = Sqr(i) Then

        s = s + i

        t = t + 1

     End If

Next i

Text2.Text = Str(t)

Text3.Text = Str(s)

End Sub

下列VB程序运行时,单击命令按钮Command1后,文本框Text1中显示的内容是

Private Sub Command1_Click()

Dim i As Integer, c As Integer, n As Integer

c = 0: n = 10

For i = 1 To 10 Step 2

    If n Mod i = 0 Then

       c = c * i

    Else

       c = c + i

    End If

Next i

Text1.Text = Str(c)

End Sub

最近更新