- 二一组卷

题型：单选题题类：常考题难易度：普通

浙江省湖州市练市中学2020-2021学年高二下学期信息技术第一次质量检测试卷

Private Sub Command1_Click( )

Dim a AsString

Dim c AsString

a = “lianshizhongxue”

c = Mid (a , Len( a) \2 +1, 8)

Text1.Text = c

End Sub

该程序段运行后，在文本框Text1上显示的是（）

A、”lianshi” B、”zhongxue” C、lianshi D、zhongxue

举一反三

Visual Basic中窗体文件的扩展名为（）

下列VB程序中，f是一个递归函数：( )

Private Sub Command1_Click()

Dim y As Integer

y = Val(Text1.Text)

Label1.Caption = Str(f(y))

End Sub

Function f(n As Integer) As Integer

If (n = 1) Or (n = 2) Then

f = 1

Else

f = f(n - 1) + f(n - 2)

End If

End Function

程序运行时，在文本框中输入8，单击命令按钮Command1后，Label1中显示的内容是：

有一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程序,功能如下：某班有50个学生，从中选择10个身高最高的同学，要求被选的任何两个人不能身高一样（所给的数据保证能选10个）。

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Const n = 50

Dim d(0 To n) As single , name(1 to n) as string

'读入50个学生的身高，依次存入d(1)…d(50),姓名存入name(1)…name(50) '代码略

Private Sub Command1_Click()

Dim i As Integer, j As Integer, temp As single, k As Integer,r as string

d(0) = 2

For i = 1 To 10

①

For j = i To n

If d(j) < d(i - 1) Then

If ② Then

k = j

End If

Next j

If k <> i Then

temp = d(k): d(k) = d(i): d(i) = temp

r=name(k) : name(k)=name(i) : name(i)=r

End If

Next i

For i = 1 To 10 ‘输出被选的10个人的名字和身高。

List2．AddItem name(i) & d(i)

Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

下列VB程序运行时，在文本框Text1中输入字符串“while”，在文本框Text2和Text3中分别输入2和5，单击命令按钮Command1后，在文本框Text4中显示的内容是{#blank#}1{#/blank#}。

Private Sub Command1_click ( )

Dim n As Integer , m As Integer , k As Integer

n = Len ( Text1．Text )

m = Val ( Text2．Text )

k = Val ( Text3．Text )

If m + k -1 > n Then

Text4．Text = Mid ( Text1．Text , 1 , m – 1 )

Else

Text4．Text = Mid ( Text1．Text , 1 , m–1 ) + Mid ( Text1．Text , m+k , n–m–k +1 )

End If

End Sub

有VB程序段如下：

Randomize

For i = 1 To 6

a(i) = Int(Rnd * 20) + 1

If a(i) Mod 2 = i Mod 2 Then a(i) = a(i) - 1

Else

a(i) = a(i) + 2 End If

Next i

执行该程序段后，a（1）~ a（6）各元素可能的是（）

相关试卷

公司介绍

服务介绍

帮助中心