如右图所示的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、

举一反三

2016年10月学考成绩揭晓后，信息技术老师要统计各班学考技术A等级人数，但教务处为了保护学生成绩隐私，只给他提供了各班学生本次学考的等级信息，其中技术学科等级排在每位学生的第一科。若某班学生大部分参加技术、地理、历史三门学考，小部分参加其中的两门，则教务处提供的等级信息为每位学生连续三个字符（如：ABAB-B，表示第一个学生的成绩技术为A，地理为B ，历史为A，第二个学生技术为B，地理没考，历史为B，其他依此类推）。于是他编写了一个VB程序，很快统计出各班技术学科的A等级人数。程序设计界面如图所示，其中各班学考等级信息来自文本框Text1，科目数来自文本框Text2，统计结果输出到文本框Text3中。实现上述功能的VB程序代码如下：

Private Sub Commandl_Click( )

Dim s, p As String

Dim a, n As Integer

Dim kms As Integer

s= ①

n = Len ( s )：a = 0 ：kms = Val(Text2.Text)

If n Mod kms = 0 Then

For i= ②_______

p = Mid(s，i，1)

If p= "A" or p= "a" Then a = a+l

Next i

Text3.Text = Str(a)

Else

Text3.Text="学生等级信息不正确"

End If

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中显示的内容是（）

小丁想买几张6+1彩票，选号时，他希望前4位用自己的生日：11月8日，即1108，特别号码他选了买彩票日子的个位数5，并且他希望前六个数字组成的数能被他的幸运数字9整除。他的好朋友小杰帮他设计了一个VB程序，可以提供一份符合这些要求的号码清单供他挑选。相应的界面如图1所示。阅读程序并完成后面的问题。

图1

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

在VB中，下列程序段执行后，变量a、b的值分别是（）

a=5

b=3

If a>b Then

a=b

End lf

有 VB 程序段如下：

s = "2019appreciate": sum = 0

For i = 1 To Len(s)

ch = Mid(s, i, 1)

If ch >= "a" And ch <= "z"

Then m = Asc(ch) - Asc("a") + 1 a(m) = a(m) + 1

End If Next i

For i = 1 To 10

If a(i) > 0

Then sum = sum + 1

Next i

数组 a 各元素的初始值都为 0，执行该程序段后，则变量 sum 的值为（）

相关试卷

公司介绍

服务介绍

帮助中心