有如下Ｖisual Basic程序： Private Sub Command1_Click() Dim sum As Double, x As Double sum = 0 n = 0 For i = 1 To 5 x = n / i n = n + 1 sum = sum + x Next i End Sub 该程序通过For循环计算一个表达式的值，这个表达式是（）...

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

浙江省诸暨市牌头中学2017-2018学年高二下学期信息技术第一次月考试题

有如下Ｖisual Basic程序：

Private Sub Command1_Click()

Dim sum As Double, x As Double

sum = 0

n = 0

For i = 1 To 5

x = n / i

n = n + 1

sum = sum + x

Next i

End Sub

该程序通过For循环计算一个表达式的值，这个表达式是（）

A、1+1/2+2/3+3/4+4/5 B、1+1/2+2/3+3/4 C、1/2+2/3+3/4+4/5 D、1+1/2+1/3+1/4+1/5

举一反三

某学校开设多样化选修课程，学生可以根据个人兴趣和特长选择选修课。假设每门选修课的选课人数不超过40，学生选课的相关信息存放在数据库文件“student.accdb”的data表中，选课查询程序运行时界面如第16题图所示。

程序功能：在文本框Text1中输入课程号，单击“查询”按钮Command1,在列表框List1中显示选修本课程的学生信息。如果没有找到，在列表框中显示“该课程当前无人报名”。按此要求将程序补充完整。

Private Sub command1_click()

Dim xh(1 to 40),xm(1 to 40) As String '学号和姓名的数组

Dim i,num as integer

Dim conn As New ADODB.Connection, rs As New ADODB.Recordset

Dim strSQL As String

conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\student.accdb" '打开到数据库的链接

conn.Open

strSQL ="select xh,xm from data where '课程=&(Text1.Text) & '" '设置查询的SQL语句

Set rs.ActiveConnection = conn '设置rs的ActiveConnection属性，指定与其关联的数据库链接

rs.Open strSQL '打开记录集，将从表student中读取的结果集保存到记录集rs中

List1.Clear

num=0

Do while not rs.EOF

①

xh(num)=rs.Fields("xh")

xm(num)=rs.Fields("xm")

rs.MoveNext

loop

rs.Close

conn.close

set rs=nothing

set conn=nothing

For i=1 to num

②

Next i

if num=0 then list1.additem("该课程当前无人报名")

End Sub

有如下VB程序：

Private Sub Command1_C1ick ( )

Dim a(0 to 5) As Integer

a(5)=Val(Text1.text)

For I=4 to 1 step -1

a(I)=a(I+1)/2

Next I

Text2.text=str(a(I))

End sub

在文本框Text1中输入“96”，单击命令按钮Command1后，文本框Text2中显示的内容是（）

执行如下Visual Basic程序段时，出现了如下图所示的错误：

Private Sub Command1 Click()

Dim a As Integer, b As Integer

a = 5: b = 8

b = a + b

label1.Caption = Str(b)

End Sub

引发此错误的语句可能为（）

编“字符串缩写”程序，实现如下功能:在文本框Text1中输入Ascii字符串，字符串中如果有由Ascii表中相邻字符（升序）组成的子串，则把该子串缩写成由第一个字符、“-”和最后一个字符组成，比如“abcdfpxcba”则缩写成“a-dfpxcba”。程序运行界面如下图所示。

以下Visual Basic程序的功能是：在文本框Text1中输入一个两位数x，将个位上的数和十位上的数互换组合成新的两位数y，并在文本框Text_2中输出新数。

Private Sub Command1_Click()

Dim x As Integer, y As Integer

Dim i As Integer, j As Integer

x=val(text1.text)

i=x \ 10

_____________ ①

y=j*10+i

Text1.Text = y ②

End Sub

在平面坐标系中，A点坐标为(25,35)，编写VB程序，计算一组给定点中，距离A点的最小距离。在文本框Text1中依次输入一组给定的坐标值，如3个点的坐标(10,15)、(45,18)、(32,40)输入示例如图所示，坐标值以逗号分隔、逗号结尾，单击“计算”按钮Command1后，程序运行结果显示在Label3中。

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

Private Sub Command1_Click()

Dim i As Integer, n As Integer

Dim x As Single, y As Single, x1 As Single, y1 As Single

Dim d As Single, min As Single

Dim s As String, t As String

s = Text1.Text: x = 25: y = 35 'A点坐标

n = 0: min = -1: t = ""

For i = 1 To {#blank#}1{#/blank#}

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

n = n + 1

If {#blank#}2{#/blank#} Then

x1 = Val(t)

Else

y1 = Val(t)

d = {#blank#}3{#/blank#}

If min = -1 Then min = d

If d < min Then min = d

End If

t = ""

Else

t = t + Mid(s, i, 1)

End If

Next i

Label3.Caption = Str(min)

End Sub

相关试卷

公司介绍

服务介绍

帮助中心