- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- + 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
下列语句使用正确的是( )
A.DIM A(6 TO 2) AS SINGLE |
B.LIST2.REMOVEITEM “北京” |
C.LIST2.CLS |
D.LIST2.LISTINDEX=0 |
编写VB程序代码,实现如下功能:在文本框Text1中输入金额(整数)后,点击“转换”按钮Command1,则在文本框Text2中显示该金额的大写,程序运行界面如下图所示:

(1)要使窗体标题上显示的文本改为“人民币大小写”,可在其属性窗口中将_______属性的属性值改为“人民币大小写”。
(2)为了实现以上程序功能,使程序正常运行,请完善以下两处代码。
Private Sub Command1_Click()
Dim dx As String, dw As String
Dim s As String, c As String
Dim ch As String
Dim i As Integer
dx = "零壹贰叁肆伍陆柒捌玖拾"
dw = "亿仟佰拾萬仟佰拾元"
s = Text1.Text
If ____ then
Text2.Text = "输入的数据超出所能转换的范围"
Else
For i = 1 To Len(s)
ch = ___
c = c + Mid(dx, Val(ch) + 1, 1) + Mid(dw, 9 - Len(s) + i, 1)
Next i
Text2.Text = c + "整"
End If
End Sub
(3)由上述算法可知,若在文本框Text1中输入“20”,则文本框Text3显示的结果为________。

(1)要使窗体标题上显示的文本改为“人民币大小写”,可在其属性窗口中将_______属性的属性值改为“人民币大小写”。
(2)为了实现以上程序功能,使程序正常运行,请完善以下两处代码。
Private Sub Command1_Click()
Dim dx As String, dw As String
Dim s As String, c As String
Dim ch As String
Dim i As Integer
dx = "零壹贰叁肆伍陆柒捌玖拾"
dw = "亿仟佰拾萬仟佰拾元"
s = Text1.Text
If ____ then
Text2.Text = "输入的数据超出所能转换的范围"
Else
For i = 1 To Len(s)
ch = ___
c = c + Mid(dx, Val(ch) + 1, 1) + Mid(dw, 9 - Len(s) + i, 1)
Next i
Text2.Text = c + "整"
End If
End Sub
(3)由上述算法可知,若在文本框Text1中输入“20”,则文本框Text3显示的结果为________。
在VB窗体中有一个对象,该对象的属性窗口如图所示。下列说法中不正确的是( )


A.Left为属性名 |
B.1560为属性值 |
C.该对象是可用的 |
D.根据“Timer1 Timer”可判断窗体名为Timer |
观察下图,下列说法正确的是( )


A.“第一个 VB 小程序”是窗体的 Name 属性值 |
B.“Label4”是当前选中对象的名称 |
C.“VB01.vbp”是工程文件名 |
D.该窗体中共有 3 个对象 |
编程找出四位整数abcd 中满足下述关系的数:(ab+cd)(ab+cd)=abcd。小明编写了一个此问题求解的 VB程序,单击“求解” 命令按钮 Command1,在列表框List1中显示结果,如(20+25)*(20+25)=2025,则在列表框显示“2025”(注:双引号不显示)。程序设计界面如图所示:

(1)如图所示,小明通过设置“ 求解” 命令按钮 Command1 的____________ (单选,填字母:
(2)为实现上述功能,请在划线处填入合适代码或选项。
Private Sub Commandl_Click()
Dim i As Integer
Dim k As Long, m As Long, n As Long
For i = 1000 To 9999
m = i \ 100
n =___________________
k = (m + n) * (m + n)
If k = i Then
_______________________
End If
Next i
End Sub
(3) 由上述算法可知,“3025”这个四位数__________(选填:会/不会)在列表框 List1 中显示。

(1)如图所示,小明通过设置“ 求解” 命令按钮 Command1 的____________ (单选,填字母:
A.Caption | B.Font | C.Height )属性设置文字“求解” 为斜体。 |
Private Sub Commandl_Click()
Dim i As Integer
Dim k As Long, m As Long, n As Long
For i = 1000 To 9999
m = i \ 100
n =___________________
k = (m + n) * (m + n)
If k = i Then
_______________________
End If
Next i
End Sub
(3) 由上述算法可知,“3025”这个四位数__________(选填:会/不会)在列表框 List1 中显示。
有一个对象属性面板如图所示,能将其中的属性名 caption 获得赋值为“正确“的是( )


A.Command1.Text=“转换” | B.Lable.Caption=“转换” |
C.Command1.Caption=“转换” | D.Lable.Text=“转换” |