下列程序的功能是从键盘上任意输入一个数，判断这个数是正数，负数，还是零，并输出判断结果。程序中横线处有错误，请改正。【根据2011年高考总复习填空题改编】 Private sub Command1_Click() Dim a As Single Dim py As String a= Val (Text1) （1） ...

题型：综合题题类：模拟题难易度：普通

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

下列程序的功能是从键盘上任意输入一个数，判断这个数是正数，负数，还是零，并输出判断结果。程序中横线处有错误，请改正。【根据2011年高考总复习填空题改编】

Private sub Command1_Click()

Dim a As Single

Dim py As String

a= Val (Text1) （1）

If a>0 Then py =”正数”

If a=0 Then py=”零”

If a<0 Then py=”负数”

Label3.Caption=a（2）

End Sub

（1）、

（2）、

举一反三

下面是用于实现S=1*2+3*4+5*6+7*8+9*10的算法的流程图，则划线处分别应填写：（）

有如下Visual Basic程序段：

Dim i As Integer, s As Integer

s = 0

For i = 1 To 20

If i Mod 3 = 2 And i Mod 5 = 3 Then s = s + i

Next i

Label1.Caption = str(s)

执行以上程序后，标签Label1中显示的内容为（）

下列流程图中那个是选择结构（）

编写VB程序，实现如下功能:在文本框Text1中输入一个整数，单击“查找”按钮，找出该整数的全部的连续整数固定和，并将它们显示在列表框List1中。所谓一个数n的连续整数固定和，就是指存在a₁ ， a₂ ， …， a_n ，其中a_i+1比a_i大1，使得a₁+a₂+…+a_n。这样a₁ ， a₂ ， …，a_n称为n的一个连续整数固定和。例如27的全部的连续整数固定和有3组，运行界面如图所示，实现上述功能的程序如下，请在划线处填写合适代码。

Private Sub Command1_Click()

Dim i As Integer, j As Integer, sum As Integer

Dim n As Integer, k As Integer, tmp As String

n = Val (Text1.Text)

sum = 0:List1.Clear

For i = 1 To n-1

j=i

Do While sum < n

{#blank#}1{#/blank#}

j = j + 1

Loop

If sum = n Then

{#blank#}2{#/blank#}

For k=i+1 To j-1

tmp = tmp + “+” + Str(k)

Next k

List1.AddItem tmp +“=”+ Str(n)

End If

{#blank#}3{#/blank#}

Next i

End Sub

某算法的部分流程图如图所示，执行这部分流程后，下列分析正确的是（）

VB提供了结构化程序设计的三种基本结构，三种基本结构是（）。

相关试卷

公司介绍

服务介绍

帮助中心