- 二一组卷

题型：综合题题类：常考题难易度：困难

浙江省嘉兴市2018-2019学年高三信息技术3月嘉丽联考试卷

八进制采用了0~7八个数字，逢八进一。每个数字在不同的数位上对应不同的权值，如(123)₈=1×8²+2×8¹+3X8⁰=(83)₁₀。小明编写了一个将把8位以内八进制正整数转换为十进制数的VB程序，实现如下功能：在文本框Text1中输入八进制数，单击“转换”按钮Command1，在文本框Text2中输出转换后十进制数。程序运行界面如图所示。

（1）、程序编写调试后，生成如下相关文件：

A ．oct．frm／B ．oct．vbp／C ．oct．vbw／D ．oct．exe，其中属于Windows系统可执行文件的是(单选，填字母)。

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

Private Sub Command1_Click()

Dim i As Integer，n As Integer，oct As Strin9，dec As Long, flag As Boolean

i=1：dec=0：flag=True

oct= ①

Do While i<=Len(oct)And flag

n=Val(Mid(oct，i，1))

If n>=0 And n<8 Then

dec= ②

Else

Text1．Text=”输入有误!”

③

End If

i=i+1

Loop

Text2．Text=Str(dec)

End Sub

① ②

（3）、如将③处方框内的语句省略，程序执行时，在文本框Text1中输入2019，单击“转换"按钮后，文本框Text2中显示的内容是。

举一反三

有一Access数据库“school.accdb” 存放在f:\2015mt\vb文件夹中，其中的“student”数据表用来存储学生的基本情况信息，包括学号(num)、姓名(name)、性别(sex)、分数(score)，括号内的为对应字段名。下列VB程序用来实现根据学号查询并显示学生信息，运行界面如下图所示。在文本框Text1中输入学生的学号，单击“查询”，在文本框Text2、Text3 、Text4中分别显示学生姓名、性别、分数。

Private Sub Command1 Click()

Dim adocn As New adodb.Connection

Dim adors As New adodb.Recordset

Dim str2 As String, str1 As String

str1 = "Provider=Microsoft.ACE.OLEDB.12.0;data source=f:\2015mt\vb\{#blank#}1{#/blank#} "

adocn.Open str1

str2 = "select * from students where num=" + Text1.Text

adors.Open str2, adocn, adOpenDynamic, adLockOptimistic

If adors.EOF = True Then

MsgBox "你输入的学号不存在"

Else

Text2.Text = adors.Fields("name").Value

Text3.Text = adors.Fields("sex").Value

{#blank#}2{#/blank#}

End If

adors.Close

adocn.Close

End Sub

执行如下VB程序段时出现下图所示的错误，则引发此错误的语句不可能是（）

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a =5

b = Val(Text1.Text)

b = a + b

label1.Caption = Str(b)

End Sub

某VB程序代码如下：

Dim n As Integer，s As String

n = 64 :s = ""

Do While n > 0

s = Str(n Mod 7) + s

n = n \ 7

Loop

执行该程序段后，变量s的值是（）

有如下VB程序段：

Dim c As String, i As Integer

Dim s As String, s1 As String

s = "Jishu_Xuankao_2020"

s1 =""

For i = 1 To Len(s) Step 2

c = Mid(s, i, l)

If c >= "a" And c <= "z" Then s1=c+s1

Next i

Text1. Text = s1

执行该程序段后，文本框Text1显示的内容是（）

某VB程序的一个事件处理过程如下：

Private Sub Command1_Click()

Dim a As Integer

a = Val(Text1.Text)

Text1.Text = Str(Sqr(a))

End Sub

程序运行时，单击命令按钮Command1后弹出如图所示的错误信息提示。出现错误的原因可能是（）

有如下程序段，运行时程序出现如下错误提示，出错语句的位置是（）

Private Sub Command1_Click()

Dim i As Integer

Dim a(10)As Integer ‘①

For i=1 To 10 ‘②

a(i)=Rnd* 100 ‘③

Next i

Label1.Caption=Str(a(i)) ‘④

End Sub

相关试卷

公司介绍

服务介绍

帮助中心