注册

题型：综合题题类：常考题难易度：普通

浙江省宁波市北仑中学2018-2019学年高一上学期信息技术期中考试试卷

模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算，并输出运算结果。程序界面如下图所示，在文本框Text1输入第一个数a，在文本框Text2输入第二个数b，在文本框Text3输入运算符ch，在文本框Text4中输出结果。当输入的运算符不是加、减、乘、除四种运算符时，则输出“运算符不正确”；当进行除法运算时，如果除数为0，提示输出“除数不能为零”。相应的Visual Basic程序如下，

（1）、观察程序设计界面，共有类对象具有Caption属性。

（2）、实现上述功能的VB程序如下在划线处，填入合适的语句或表达式，把程序补充完整。

Private Sub Command1_Click（）

Dim a As Single, b As Single, ch As String

a = Val(Text1.Text)

b = Val(Text2.Text)

If ch = "+" Then

Text4.Text = Str(a + b)

ElseIf ch = "*" Then

Text4.Text = Str(a * b)

ElseIf ch = "-" Then

Text4.Text = Str(a - b)

ElseIf ch = "/" Then

If Then Text4.Text = Str(a / b) Else Text4.Text = "除数不能是零"

Else

End If

End Sub

举一反三

字符串中任意个连续的字符组成的子序列称为该字符串的子串，如字符串“123” 的子串有“1”、“2”、“3”、“12”、“23”、“123”。输出字符串s所有子串的VB程序段如下：

s = Text1.Text

List1.Clear

len1 = Len(s) ‘①

For i = 1 To len1 ‘②

For j = 1 To len1- i ‘③

List1.AddItem Mid(s, j, i) ‘④

Next j

Next i

运行时发现未输出所有子串，则修改（）

某地区公共自行车收费信息如下：“60分钟内免费；60分钟以上至120分钟（含），收费1元；120分钟以上至180分钟（含），收费2元；租用超过180分钟（含）以上的时间，按每小时3元计费（不足一小时的按一小时计）”。现按要求编写VB程序，界面如图1所示，程序功能如下：在文本框Text1中输入租车时间，单击“计费”按钮Command1，在标签Label5中输出对应的租车费用。

图1

图2

图3

下面有关属性的说法正确的是：（）

若单选按钮被选中，其VALUE属性的值是（）

小李利用所学的VB知识，编写了一个简单计算器：在文本框Text1中输入一个加减算式（只包含数字和“+”“一”符号，以“=”结束），点击“计算”按钮 Command1，计算结果在标签 Label上显示，程序运行界面如图所示。

运行如下程序代码，出现了如图所示错误提示，则出错的语句是（）

Private Sub Command1_Click()

Dim a As Integer, b As Integer

Dim c As Integer '①

a= Val(Text1. Text) '②

b = Val(Text2. Text)

c=a + b '③

Label1. Caption ="a + b="+c '④

End Sub

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

周一至周五 8:30-17:30

在线咨询客服