【加试题】有如下VB程序： Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = Val(text1.Text) b = Val(text2.Text) c = (a + b + Abs(a - b)) \ 3 Text3.Text = Str(c) End Sub 运行该程序，分...

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

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

【加试题】有如下VB程序：

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

a = Val(text1.Text)

b = Val(text2.Text)

c = (a + b + Abs(a - b)) \ 3

Text3.Text = Str(c)

End Sub

运行该程序，分别在文本框Text1、Text2中输入5、9，单击命令按钮Command1后，文本框Text3中显示的内容是（）

A、6 B、5 C、4 D、7

举一反三

在Visual Basic中，设x=18，y=96，则关系表达式x<y的值是（）

数学关系表达式9≤x ＜20,vb的正确表达式是（）

编写VB程序，实现如下功能：单击“启动”按钮Command1，在列表框List1内每隔2秒输出一个由30个大、小写字母组合成的字符串，运行界面如图所示，程序代码如下。(字母A和字母a的ASCII码值分别为65、97)

编写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

运行以下程序代码，输入5和3，输出的结果是（）。

a =int(input("请输入自然数:"))

b=int(input("请输入自然数:"))

c=int(a/b)

print( c)

在平面坐标系中，给定一组有序的点。依次用线段连接这些点，构成一条折线。其中字符串a为输入的坐标系中的各点坐标，以逗号为界从a中取出存入b列表中，列表b的第1、2个元素为第一个点的x坐标和y坐标（即x1,y1），第3、4个元素为第二个点的x坐标和y坐标(即x2，y2)，依次类推。编写Python程序段如下，用于计算折线的长度。

from math import *

def dist(x1, y1, x2, y2):

length = sqrt((int(x1) - int(x2))**2 + ① )

return length

a = input("请输入各点的坐标：") # 如“2,3,4,5”则表示坐标点（2,3）和（4,5）

b = a.split(",")

if len(b) % 2 != 0:

print("输入的坐标有误！")

else:

s = 0

for i in range(0, ② , 2):

s = s + ③

print("折线的长度为：", s)

相关试卷

公司介绍

服务介绍

帮助中心