- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- + 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
学习了VB之后,小明编写了一个三角形面积计算器的程序,其窗体界面如图1所示,代码部分如图2所示:

图1

图2
(1)在图1中当前选定的对象属于_____________________________________类。
(2)根据图2中的代码,可以确定图1中唯一一个按钮的对象名是________。
(3)图2中①所在位置的代码应该是:_________________________。
(4)程序正常运行时,如果输入三角形的三条边长分别为11、25、12,则点击“计算”后,Label5的Caption值将是: ____________________________。

图1

图2
(1)在图1中当前选定的对象属于_____________________________________类。
(2)根据图2中的代码,可以确定图1中唯一一个按钮的对象名是________。
(3)图2中①所在位置的代码应该是:_________________________。
(4)程序正常运行时,如果输入三角形的三条边长分别为11、25、12,则点击“计算”后,Label5的Caption值将是: ____________________________。
如下VB代码要实现的功能是:求
。请在下列10条语句中选取5条拼接成一段完整的程序。(注意:每条语句最多使用一次;答题时只要将选取语句的标号按执行先后排列即可)
Dim s as single, i as integer
(1) For i="2" to 256 step 2
(2) For i="1" to 8 step 1
(3) S=0
(4) S=3
(5) i=i+1
(6) next i
(7) loop
(8) s=s+1/i
(9) s=s+1/2^i
(10) print s
选取的语句标号序列是:____、____、____、____、____。

Dim s as single, i as integer
(1) For i="2" to 256 step 2
(2) For i="1" to 8 step 1
(3) S=0
(4) S=3
(5) i=i+1
(6) next i
(7) loop
(8) s=s+1/i
(9) s=s+1/2^i
(10) print s
选取的语句标号序列是:____、____、____、____、____。
下图是当循环、直到循环两种循环结构,请结合下图选择下列说法中正确的是 ( )


A.当循环是当条件成立退出循环 |
B.当循环不可能出现不执行循环步骤的情况 |
C.直到循环是条件成立时执行循环步骤 |
D.直到循环至少执行一次循环步骤 |
在如下VisualBasic程序段中,要使循环体t=t*j执行5次,循环变量的终值可以是( )
For j=1 To __________ Step 2
t=t*j
Next j
For j=1 To __________ Step 2
t=t*j
Next j
A.-5 | B.0 | C.5 | D.10 |
求两数之和的算法是:输入两数a和b的值,计算c=a+b,输出c的值。该算法的基本结构属于( )。
A.顺序结构 | B.选择结构 | C.循环结构 | D.框架结构 |
在 VB 中,下列程序段执行后,变量 s 的值是( )。
s=1
For k="1" To 3
s=s+1
Next k
s=1
For k="1" To 3
s=s+1
Next k
A.1 | B.3 | C.4 | D.6 |
这是一个可以计算十六进制各位数之和的VB程序,功能如下:在文本框Text1中输入一个十六进制数n,将计算结果显示在Label1上。程序界面如下图所示:

实现上述功能的VB程序如下:
Private Sub Command1_Click()
Dim n As String, m as string
Dim s As Integer, i As Integer
n=Text1.Text
n=ucase(n) ’n中的字母转为大写
①
m = Mid(n, i, 1)
If m >= "0" And m <= "9" Then
s = s + Val(m)
ElseIf m>=”A” And m<=”F” Then
s = s + ②
Else
Msgbox(“输入数据有误,请输入一个十六进制数!”)
Exit Sub
End If
Next i
Label2.Caption = "各位数和为:" + Str(s)
End Sub
(1)代码“Private Sub Command1_Click()”中的Command1_Click()是________ (选填:
(2)请在划线处填入合适代码①____________________ ②____________________;
(3)程序运行,在Text1中无论输入“5A0D”,在label1中显示的内容为______________。

实现上述功能的VB程序如下:
Private Sub Command1_Click()
Dim n As String, m as string
Dim s As Integer, i As Integer
n=Text1.Text
n=ucase(n) ’n中的字母转为大写
①
m = Mid(n, i, 1)
If m >= "0" And m <= "9" Then
s = s + Val(m)
ElseIf m>=”A” And m<=”F” Then
s = s + ②
Else
Msgbox(“输入数据有误,请输入一个十六进制数!”)
Exit Sub
End If
Next i
Label2.Caption = "各位数和为:" + Str(s)
End Sub
(1)代码“Private Sub Command1_Click()”中的Command1_Click()是________ (选填:
A.属性名 | B.对象名 | C.事件处理过程名 ); |
(3)程序运行,在Text1中无论输入“5A0D”,在label1中显示的内容为______________。
《庄子.天下篇》中写道:“一尺之棰,日取其半,万世不竭”意思是:一根一尺的木棍,如果每天截取它的一半,永远也取不完。根据题意,第一天木棍剩下0.5尺,第二天木棍剩下0.25尺……
(1)在VB中处理0.25这样的小数时,应采用哪种数据类型________________ )
(2)编程求解,到第几天时,木棍长度小于0.01尺,写出VB代码。
(1)在VB中处理0.25这样的小数时,应采用哪种数据类型________________ )
(2)编程求解,到第几天时,木棍长度小于0.01尺,写出VB代码。