- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- + 选择语句
- 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
下列程序在调试时提示①处出现语法错误,修改相关错误使得程序能够正常运行,则①处所在行的语句修改之后应为 。
Dim api As Integer
api = Val(Text1.Text)
If api <=" 50" Then
Label2.Caption = "优"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-1.jpg")
End If
If 50 < api ≤ 100 Then ①
Label2.Caption = "良"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-2.jpg")
End If
If api > 100 And api <=" 150" Then
Label2.Caption = "轻微污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-3.jpg")
End If
If api > 150 And api <=" 200" Then
Label2.Caption = "轻度污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-4.jpg")
End If
If api > 200 And api <=" 250" Then
Label2.Caption = "中度污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-5.jpg")
End If
If api > 250 And api <=" 300" Then[ZXXK]
Label2.Caption = "中度重污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-6.jpg")
End If
If api > 300 Then
Label2.Caption = "重污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-7.jpg")
End If
Dim api As Integer
api = Val(Text1.Text)
If api <=" 50" Then
Label2.Caption = "优"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-1.jpg")
End If
If 50 < api ≤ 100 Then ①
Label2.Caption = "良"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-2.jpg")
End If
If api > 100 And api <=" 150" Then
Label2.Caption = "轻微污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-3.jpg")
End If
If api > 150 And api <=" 200" Then
Label2.Caption = "轻度污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-4.jpg")
End If
If api > 200 And api <=" 250" Then
Label2.Caption = "中度污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-5.jpg")
End If
If api > 250 And api <=" 300" Then[ZXXK]
Label2.Caption = "中度重污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-6.jpg")
End If
If api > 300 Then
Label2.Caption = "重污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-7.jpg")
End If
在算法执行过程中,关于“选择语句”,下列说法正确的是( )
A.顺序执行各语句 |
B.在预定的两个处理步骤中,按顺序各执行一次 |
C.根据不同的情况,在预定的两个处理步骤中,选择一个合适的处理步骤执行 |
D.对某个情况进行判断,当结果为真时重复执行步骤一,否则重复执行步骤二 |
下列四段程序中,主要控制结构属于循环结构的是( )
PRINT "偶数"
ELSE
PRINT "奇数"
END IF
A.A= 5 B= A A=" A" + B |
B.IF X > K THEN PRINT "Big" END IF |
C.S="0" DO WHILE I<=10 J =" I" * I S="S" + J I="I" + 1 LOOP |
D.IF INT(X/2) = X/2 THEN |
ELSE
PRINT "奇数"
END IF
“某商场的店庆促销活动之一:店庆日购物满500元可在5折优惠后再减100元,否则只打5折”。用算法描述这一问题,可采用的算法结构是( )
A.顺序结构 | B.选择结构 | C.循环结构 | D.树形结构 |
读下列程序段,运行该段程序之后,变量a的值是( )。
a=3:b=4
if a<b then a=0
else a=1
end if
a=3:b=4
if a<b then a=0
else a=1
end if
A.3 | B.4 | C.0 | D.1 |
程序的三种基本结构是 ( )
A.选择结构、循环结构、树型结构 |
B.顺序结构、选择结构、循环结构 |
C.顺序结构、循环结构、树型结构 |
D.树型结构、顺序结构、选择结构 |
下列VB程序运行时,单击命令按钮Command1后,文本框Text1中显示的内容是(1) ,文本框Text2中显示的内容是____(2) 。
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c =" 0:" n = 10
For i =" 1" To n
If n Mod i =" 0" Then c =" c" + 1
Next i
Text1.Text = Str(n)
Text2.Text = Str(c)
End Sub
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c =" 0:" n = 10
For i =" 1" To n
If n Mod i =" 0" Then c =" c" + 1
Next i
Text1.Text = Str(n)
Text2.Text = Str(c)
End Sub
在VB中,如果要在标签Lab上显示文字“高中信息技术考试”,则下列语句正确的是( )
A.Label.Caption=“高中信息技术考试” |
B.Lab.Text=“高中信息技术考试” |
C.Lab.Caption=“高中信息技术考试” |
D.Label.Width=“高中信息技术考试” |
小明设计了如下所示累乘器程序,以完成式子:1×2×3×4×5×6的累乘计算。
Private Sub form_load()
Dim k As Long, i As Integer
k = 0 ……… ①
For i =" 1" To 6
k =" k" * i ……… ②
Next i
MsgBox Str(k)
End Sub
为了完成小明的计算,程序中标有①、②的两处语句,哪个语句应作相应的修改,修改后其正确的语句为(写出标号和正确的语句)_____________。
Private Sub form_load()
Dim k As Long, i As Integer
k = 0 ……… ①
For i =" 1" To 6
k =" k" * i ……… ②
Next i
MsgBox Str(k)
End Sub
为了完成小明的计算,程序中标有①、②的两处语句,哪个语句应作相应的修改,修改后其正确的语句为(写出标号和正确的语句)_____________。