[加试题]如右图所示的VB程序中，输入以下程序代码，运行后单击命令按钮Command1，出现错误的提示图是：（） Private Sub Command1Click() Dim a(1 To 4) As Integer Dim i As Integer a(1) = 1 For i = 2 To 4 a(i) = 2 * a(i - 1) + 1 Nex...

题型：单选题题类：模拟题难易度：普通

浙江省杭州市2016年信息技术高考模拟卷四

[加试题]如图所示的VB程序中，输入以下程序代码，运行后单击命令按钮Command1，出现错误的提示图是：（）

Private Sub Command1Click()

Dim a(1 To 4) As Integer

Dim i As Integer

a(1) = 1

For i = 2 To 4

a(i) = 2 * a(i - 1) + 1

Next i

List1.AddItem Str(a(i))

End Sub

A、

B、

C、

D、

举一反三

程序运行后，单击Command1命令按钮，变量x的值为

Private Sub Command1_Click()

n = 6

x = 1

For i =1 To n

x = x * i

End Sub（）

用蒙特卡洛法求圆周率PI的近似值，其算法如下：使用随机函数Rnd,随机生成两个[0,1）之间的随机数，由此构成一个投点坐标（x,y），然后根据x²+y²<=1投点是否在圆内来求PI的近似值。其中总共随机投点n次，统计落点在单位圆内的点数为s,则4s/n即为所求PI的近似值。程序界面如图所示，在Text1中输入投点的个数，单机“计算”按钮，PI的近似值结果显示在Text2中。）

某VB程序段如下:

Dim a(1 To 5) As Integer, i As Integer

a(1)=1: a(2)=1

For i=3 To 5

a(i)=a(i-1)+a(i-2)

Next i

Text1.Text=Str(a(i-1))

该程序段运行后，文本框Textl中显示的内容是（）

在text1文本框内输入字符串，单击去重按钮，将字符串后面相同的字符删除，并在text2中输出经过删除的字符串。程序界面如图所示。请在下面划线处填入合适的代码。

Private Sub Command1_Click()

Dim s As String, s1 As String, c As String

s = Text1.Text

For i = 1 To Len(s)

c = Mid(s, i, 1)

s1 = ⑴

For j = ⑵

If c <> Mid(s, j, 1) Then

s1 = s1 + Mid(s, j, 1)

End If

Next j

⑶

Next i

Text2.Text = s

End Sub

某算法的部分流程图如图所示，以下运算结果正确的是（）

运行如下程序段时，出现了如图所示的错误提示框：

Private Sub Command1_Click()

Dim r As Single, s As Single '①

r="10米" '②

s=3.14159*r*r '③

Text2.Text ="某个半径为"+ Str(r)+"米的圆,其面积为"+ Str(s)+"平方米." '④

End Sub

则程序中出错的语句是（）

相关试卷

公司介绍

服务介绍

帮助中心