题库 高中信息

题干

小明的爸爸在今年初为公司购买一台价值50万的商务汽车,汽车价值在使用过程中逐年减少,从明天到第5年,每年初的价值比上年初减少4万元,从第6年开始,每年初的价值为上年初的85%。爸爸让小明算一下第n年初这辆汽车的价值是多少?小明为此设计了下面Visual Basic程序,运行程序,在文本框Text1中输入年数n,单击“计算”按钮Command1,则在标签Label1中显示此年初的价值a。程序运行界面如图所示:

Private  Sub Command1_click ( )
Dim n as single, a as single
n="Val" (text1.text)
If n = Int(n) And n >=" 1" Then
If n<="5" then
a=  ① 
Else
a=30*0.85^(n-5)
End if
Label3.caption=“第”+Str(n)+“年初价值”+  ② +“万元”
Else
Label3.caption=“输入的年数不符合要求!”
Else if
End Sub
(1)用计算机编程解决问题,最核心的过程是
(2)本程序窗体中使用的控件类型有命令按钮、文本框和
(3)流程图是一种直观的、用图形来描述算法的方法。流程图中“选择分支”和“数据输出”分别用 图形来表示。
(4)程序中的语句Dim n As single 将变量n的数据类型定义为
(5)在设计用户界面时,要使本程序中command1命令按钮上显示文字“计算”,需设置此控件的  属性(选填“caption”、“font”或 “text”)
(6)程序中①处应填入的表达式为
(7)程序中②处应填入   
(8)语句n="Val" (text1.text)中函数Val (text1.text)的作用是
(9)Text1的控件类型是  
(10)用计算机编程解决问题,大致分为五个过程:①设计算法、②调试运行、③编写程序、④检测结果、⑤分析问题    
上一题 下一题 0.99难度 填空题 更新时间:2017-03-08 07:59:55

答案(点此获取答案解析)

同类题1

小刘在玩一个数字游戏,给定一个n位正整数(n<=20),根据设定的保留位数,舍去一部分数字,剩下的数字按原次序组成一个最大的新数。例如原数34625803,保留4位,最大数为6803。算法是:先确定最高位的数字,在第1位至最后3位数字前的34625中找到最大的数6,从而确定最高位是6,再确定次高位的数字,从6后面的数开始到最后2位数字前的258中找到最大数8,确定次高位是8,依次找下去得到最大新数。他设计了一个VB程序来进行验证,在文本框Text1中输入一个n位正整数,在文本框Text2中输入保留的位数,点击“确定”按钮,在文本框Text3中输出保留的最大新数。程序运行界面如图所示。

(1)如果输入的原数是3635132,保留4位数字,则输出的新数是  。
(2)实现上述功能的VB代码如下,请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a(1 To 20) As String
Dim ys As String, xs As String 'xs记录最大的新数
Dim k As Integer, h As Integer, n As Integer
Dim i As Integer, j As Integer
Dim F As Boolean
xs = ""
ys = Text1.Text
n = Len(ys)
k = Val(Text2.Text)
F = True
If ys = "" Or n > 20 Or k =" 0" Or k > n Then
Label4.Caption = "输入的原数或保留位数不符,请重输!"
F = False
End If
For i =" 1" To n
①    
If a(i) < "0" Or a(i) > "9" Then
Label4.Caption = "输入的原数不是数字,请重输!"
Text1.Text = ""
F = False
End If
Next i
If F =" True" Then
h = 1
For i =" 1" To k
For j =" h" To     ②   
If a(j) > a(h) Then h = j
Next j
xs =" xs" + a(h)
h =" h" + 1
Next i
Text3.Text = xs
End If
End Sub