题库 高中信息

题干

“如果a,b中任意一个为0,那么y=y+l”。能实现该功能的VB语句是(   )
A.If a="0" And b="0" Then y=y+1
B.If a*b="0" Then y=y+1
C.If a="0,b=0" Then y=y+1
D.If a,b="0" Then y=y+1
上一题 下一题 0.99难度 选择题 更新时间:2016-02-19 03:06:37

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

同类题2

小明用 VB编写了一个连续高温天数的统计软件。小明采集了金华市 7-8 月的每日最高气温,并存放在 ACCESS数据库中。程序运行时,读取日期和最高气温并显示在列表框 List1 中,在文本框 Text1 中输入温度值,单击“统计”按钮 Command1,程序自动统计运行在该温度值及以上的最长连续天数,并显示在 Text3 中,同时在 Text2 中显示日期区间,运行界面如下图所示。

实现上述功能的 VB 代码如 下,在划线处填入合适代码。
Dim rq(1 To 100) As String ‘ 存放日期
Dim qw(1 To 100) As Integer ‘ 存放最高气温值
Dim n As Integer '总天数
Private Sub Form_Load()
' 读取数据库内容,其中日期数据存放在数组 rq 中,最高气温数据存放在 qw 中,第 i 个日期保存在 rq(i)中,对应的气温保存在 qw(i)中,并显示在列表框 List1 中,代码略
End Sub
Private Sub Command1_Click()
Dim ntempend As Integer ‘ 记录当前结束日期的下标
Dim max As Integer   ‘ 记录最大连续天数
Dim nend As Integer ‘ 记录最大连续天数下的结束日期的下标
Dim ncount As Integer ‘ 统计连续天数
Dim tjqw As Integer   ‘ 存放输入的温度
tjqw = Val(Text1.Text)
ncount = 0
max = 0
For i = 1 To n
If  ___________①___________ Then
ncount = ncount + 1
ntempend =i
Else
ncount = 0
End If
If max < ncount Then
max = ncount
___________②___________
End If
Next
If max <> 0 Then Text2.Text = ___________③___________ & "-" & rq(nend)

同类题5

小明的爸爸在今年初为公司购买一台价值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)用计算机编程解决问题,大致分为五个过程:①设计算法、②调试运行、③编写程序、④检测结果、⑤分析问题