如右图所示的VB程序中，输入以下程序代码，运行后单击命令按钮Command1，出现错误的提示图是：( ) Private Sub Command1_Click() 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...

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

浙江省杭州市2015年高考模拟命题比赛信息技术(1)

如图所示的VB程序中，输入以下程序代码，运行后单击命令按钮Command1，出现错误的提示图是：( )

Private Sub Command1_Click()

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、

举一反三

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

【加试题】小郭编写一个最大数查找的VB程序，功能如下：程序运行时，在文本框Text1中输入一个数字字符串，单击命令按钮Command1，在文本框Text2中输出最大3位整数(每个数字字符不可重复使用)。程序运行界面如图所示。

实现上述功能的VB程序如下。请在画线处填入适当的语句和代码，把程序补充完整。

Dim w As Integer ‘变量w用于存储每次最大数字字符的位置

Private Sub Command1_Click()

Dim t As String

Dim i As Integer，j As Integer

Dim max As Integer，S As Integer

t=Text1．Text

s=0

For i=3 To 1 Step-1

max=0

For j=1 To Len(t)

If Val(Mid(t，j，1))>max Then

max=Val(Mid(t，j，1))

①

End If

Next j

s=s+ ②

t=delmax(t)

Next i

Text2．Text=Str(s)

End Sub

‘自定义函数功能是去除当前最大数字字符

Function delmax(t As String)As String

delmax= ③

End Function

下列是关于某数字的加密解密算法。其加密规则如下：计算某位数字与其位置相加得到的结果除以 11 的余数即为编号（其中若余数为 0，编号为 11），编号与字符对照表如下：

编号	1	2	3	4	5	6	7	8	9	10	11
字符	V	i	s	u	a	l	B	A	S	I	C

从对照表中找出与编号对应的字符完成加密，如下表显示了数字“2018”的加密过程：

数字	2	0	1	8
位置	1	2	3	4
编号	3	2	4	1
加密字符	s	i	u	V

小张按照上述原理，设计了一个解密的VB程序，功能如下:单击“解密”按钮Command1,将文本框Text1中的密文(字符数不超过11个)进行解密，并将解密后的明文在文本框Text2中输出。程序运行效果如图a所示。

若已知当前的人均GDP水平和GDP年增长率，可以计算达到某个GDP水平所需年份。在文本框Text1、Text2、Text3中分别输入人均GDP、年增长率和达到的GDP水平，单击计算按钮Command1，在文本框Text4中输出所需年数。程序运行界面如下：

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

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

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

程序执行到有语法错误的语句时( )

相关试卷

公司介绍

服务介绍

帮助中心