编写VB程序，实现如下功能:在文本框Textl和Text2中分别输入一个整数，单击命令按钮Command1,在列表框List1中显示结果，运行效果如图1所示。结果包含两列数据，第1列为两数之间的摄氏温度值（间隔1度、升序），第2列为对应的华氏温度值。

题型：综合题题类：常考题难易度：困难

浙江省东阳中学2015-2016学年高一下学期信息技术期中考试试卷

（1）、要使命令按钮Command1上显示的文本改为“转换”，可在其属性窗口（图2）中将属性的属性值修改为“转换”。

（2）、为实现上述功能，请在划线处填入合适代码或选项。

Private Sub Command1_Click()

Dim t1 As Integer, t2 As Integer

Dim i As Integer, t As Integer

Dim f As Single

List1.Clear

t1 = Val(Text1.Text)

t2 = Val(Text2.Text)

If①Then ' (选填字母,从下列ⅰ、Ⅱ、Ⅲ、Ⅳ中选取一项）

t = t1: t1 = t2: t2 = t

End If

i = t1

Do While②'(选填字母,从下列ⅰ、Ⅱ、Ⅲ、Ⅳ中选取一项）

f = i * 9 / 5 + 32 '摄氏温度转换为华氏温度

List1.AddItem Str(i) + " " + Str(f)

'（填程序代码）

Loop

End Sub

划线①、②处的选项: Ⅰ.i <= t2 Ⅱ.f <= t2 Ⅲ.t1 > t2 Ⅳ.i < f

举一反三

【加试题】小张设计了一个“加减运算测试”程序。程序启动时运行界面如右图所示。在文本框Text1中输人计算结果后单击“下一题”按钮Command1，如计算结果正确，则得分加10分，否则不加分，同时显示下一试题内容并计数，直至完成10题测试。实现上述功能的VB程序如下，但加下划线代码有错，请改正。

   Dim n As Integer    '为试题计数器
   Dim s As Integer    's为测试得分
   Dim a As Integer, b As Integer 'a，b 为运箅数
   Dim c As String 'c为运算符："+ "表示加运算，"一"表示减运算
   Private Sub Command1Click()
   If c ="+" Then
      If a + b = Val(Text1.Text) Then
         s = s + 10
      End If
   Else
      If c ="-" Then       ①
         s = s + 10
      End If
   End If
   Label2.Caption = "得分:" + Str(s)
   DispTest
   End Sub
   Private Sub FormLoad()
Randomize
n = 0
s = 0
DispTest
End Sub
Private Sub DispTest()
n = n + 10       ②
If n < 11 Then
    Label1.Caption = "试题" + Str(n)    'a，b为运算数，且要求a不小于b
    a = Int(Rnd() * 100)
    b = Int(Rnd() * 100)
      If Rnd() > 0.5 Then c = "+" Else c = "-"
      Label3.Caption = Str(a) + c + Str(b) + "="
     Text1.Text = ""
Else
   Command1.Caption = "完成测试"
End If
End Sub
①处正确的代码是{#blank#}1{#/blank#}。
②处正确的代码是{#blank#}2{#/blank#}。

【加试题】有如下VB程序段，程序运行结果如图所示。

Private Sub Command1_Click()

For i=1 To 4

s=””

For j=1 To 7

If Then

s=s+“*“

Else

s=s+” ” ‘双引号内为1个空格

End If

Next j

List1．AddItem s

Next i

End Sub

则方框中的语句是（）

小王喜中新股，为了能预估自己的收益情况，编写“新股收益预期”程序，实现如下功能：在文本框Text1中输入该股票的发行价，在文本框Text2中输入预期涨停个数，在文本框Text3中输入股数，单击“计算”按钮Command1，在列表框List1中依次显示各个交易日的结果信息，并在标签Label4中显示总收益信息。

新股首个交易日的涨停上限为44%，其余的交易日涨停上限为10%，并将相应股票价格四舍五入到分。公式提示：日收益=（本交易日股价-前一交易日股价)×股数

程序运行界面如图所示：

在VB6中,要使程序启动时自动运行语句form1.caption=″hello″,该语句应被放在下列哪个事件处理过程中（）

观察图2所示的流程图(计算100以内自然数的和),回答以下问题。

在文本框Text1中输入一个字符串，统计其中大写字母、小写字母、阿拉伯数字的个数。

相关试卷

公司介绍

服务介绍

帮助中心