注册

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

浙江省杭州市西湖高级中学2018-2019学年高二下学期信息技术4月月考试卷

下列VB程序的功能是：程序运行时，单击按钮Command1随机产生20个范围在1－1000（包括1和100）的整数，并在列表框List1中显示，然后单击按钮Command2，计算随机产生的20个整数中的最大值、最小值和平均值，并分别在Text1、Text2和Text3中显示，程序的运行界面如图所示。请在划线上填入合适的代码:

Const n = 20

Dim a(1 To n) As Integer

Private Sub Command1_Click()

Dim i As Integer

Randomize

For i = 1 To n

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

List1.AddItem Str(a(i))

Next i

End Sub

Private Sub Command2_Click()

Dim i As Integer, max As Integer

Dim min As Integer, sum As Single

max = a(1): min = a(1)

sum = 0

For i = 2 To n

If Then max = a(i)

If a(i) < min Then min = a(i)

sum = sum + a(i)

Next i

Text1.Text = Str(max)

Text2.Text = Str(min)

Text3.Text = Str(sum)

End Sub

举一反三

有如下Visual Basic程序，输入n的值为11。在调试时程序首先出现的错误是.：

Private Sub Command1Click( )

Dim n As Integer

Dim a(1 To 10) As Integer

n = Val(Text1.Text)

s = 1

For i = 1 To n

s = s * i

a(i) = s

List1.AddItem Str(a(i))

Next i

End Sub

某Visual Basic程序如下：

Private Sub Command1_Click()

Dim s As String, i As Integer

s = ""

For i = 1 To 10 Step 2

s = Str(i) + s

Next i

Text1.Text = s

End Sub

运行程序，单击命令按钮Command1后，在文本框Text1中显示的内容为（）

删除字符串中的非字母字符，并查找出ASCII码值最大的字母。程序功能如下: 在文本框Text1中输入一个字符串，单击命令按钮Command1，在文本框Text2中显示删除非字母字符后的字符串，在文本框Text3中显示ASCII码值最大的字母，运行界面如图所示。

对称字符串从左读到右和从右读到左完全一样，如“1221”“12321”。编写VB程序，判断输入字符串是否对称，程序运行界面如图a所示，在文本框Text1中输入字符串，单击Command1按钮，在标签Label2上显示判断结果。

图a

图b

下列VB程序段：

Function s(n As Integer) As Integer

If n=1 Then

s=1

Else

s=s(n-1)+n

End If

End Function

Private Sub Form_Click()

Dim x As Integer

x=s(4)

Print x

End Sub

程序运行时,单击窗体后,变量x的值为（）

运行如下程序代码，出现了如图所示错误提示，则出错的语句是（）

Private Sub Command1_Click()

Dim a As Integer, b As Integer

Dim c As Integer '①

a= Val(Text1. Text) '②

b = Val(Text2. Text)

c=a + b '③

Label1. Caption ="a + b="+c '④

End Sub

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

周一至周五 8:30-17:30

在线咨询客服