- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- + 面向对象程序设计 VB开发工具
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
在包含20 个元素的数组a 中,寻找最小值的VB 程序段如下。其中变量min 用于储最小值:
For i=2 To 20
If a(i)<min Then min=a(i)
Next i
则方框中最合适的语句是: ( )
For i=2 To 20
If a(i)<min Then min=a(i)
Next i
则方框中最合适的语句是: ( )
A.a(i)=min | B.min=a(i) | C.a(1)=min | D.min=a(1) |
在条件语句If x=1 Then y=2中,下列说法正确是( )
A.x=1和y=2均为赋值语句 | B.x=1和y=2均为关系表达式 |
C.x=1为关系表达式,y=2为赋值语句 | D.x=1为赋值语句,y=2为关系表达式 |
在text1中输入一串字符,单击命令按钮command1,统计字符串中字母、数字、下划线的个数,并在标签label2上输出。
(1)结合界面与代码,可知当前窗体(不包含窗体本身)中共有①__类,②__个对象,若要让文本框text1显示为空,应该修改文本框text1的③___属性。
(2)对代码进行填空。

Private Sub Command1_Click(___)
Dim s,ch as string
Dim a,b,c as integer
a=0:b=0:c=0
_____________________④
For i=1 to_______⑤
_________________⑥ ‘取第i个字符ch
If ______________________________⑦then ‘如果ch是字母则a计数器加1
a=a+1
Elseif ch>=”0” and ch<=”9 ” then ‘若是数字则数字计数器b加1
b=b+1
Else
c=c+1
End if
_______________⑧
Text2.text=str(a)
Text3.text=str(b)
Text4.text=str(c)
End sub
(1)结合界面与代码,可知当前窗体(不包含窗体本身)中共有①__类,②__个对象,若要让文本框text1显示为空,应该修改文本框text1的③___属性。
(2)对代码进行填空。

Private Sub Command1_Click(___)
Dim s,ch as string
Dim a,b,c as integer
a=0:b=0:c=0
_____________________④
For i=1 to_______⑤
_________________⑥ ‘取第i个字符ch
If ______________________________⑦then ‘如果ch是字母则a计数器加1
a=a+1
Elseif ch>=”0” and ch<=”9 ” then ‘若是数字则数字计数器b加1
b=b+1
Else
c=c+1
End if
_______________⑧
Text2.text=str(a)
Text3.text=str(b)
Text4.text=str(c)
End sub
编写VB程序,实现如下功能:在文本框Text1里输入一个字符串,单击“判断”按钮Command1,判断这个字符串是不是回文字符串(回文字符串就是一个对称的字符串,如"abcba"或"abccba"都是回文字符串,"abc"不是回文字符串)。在文本框Text2里显示结果,回文字符串显示"yes",否则显示"no"。运行效果如左图所示。

(1)要使窗体Form1的标题改为“判断回文字符串”,可在其属性窗口(上方右图)中将_____________①属性的属性值修改为“判断回文字符串”。
(2)为实现上述功能,请在划线处填入合适代码或选项
Private Sub Command1_Click()
Dim st As String
Dim i As Integer, j As Integer
Dim flag As Boolean
________② ' (填程序代码)
j = Len(st)
i = 1
flag = True
Do While flag And (i <= j)
If Mid(st, i, 1) = Mid(st, j, 1) Then
i = i + 1
______________③
Else
flag = False
End If
Loop
If __________④ Then
Text2.Text = "yes"
Else
Text2.Text = "no"
End If
End Sub


(1)要使窗体Form1的标题改为“判断回文字符串”,可在其属性窗口(上方右图)中将_____________①属性的属性值修改为“判断回文字符串”。
(2)为实现上述功能,请在划线处填入合适代码或选项
Private Sub Command1_Click()
Dim st As String
Dim i As Integer, j As Integer
Dim flag As Boolean
________② ' (填程序代码)
j = Len(st)
i = 1
flag = True
Do While flag And (i <= j)
If Mid(st, i, 1) = Mid(st, j, 1) Then
i = i + 1
______________③
Else
flag = False
End If
Loop
If __________④ Then
Text2.Text = "yes"
Else
Text2.Text = "no"
End If
End Sub
在VB窗体中有一个对象,该对象的属性窗口如图所示,下列说法不正确的是( )


A.Interval为属性名 |
B.1680为属性值 |
C.该对象的名称为Timer1 |
D.根据“Timer1 Timer”可判断窗体名为Timer |
对实数型变量x,保留一位小数,第二位四舍五入的表达式为:( )
A.int(x) | B.int(x*10)/10 | C.int(x*10+0.5)/10 | D.int(x*10) |
在Visual Basic中,下列能产生一个[1,60]之间随机正整数的表达式是( )
A.Rnd*60 | B.1+Rnd*59 | C.Int(Rnd*60) | D.1+Int(Rnd*60) |
下列Visual Basic表达式中计算结果为4的是( )
A.Abs(-4.2) | B.Len("a123") | C.Sqr(4) | D.Int(3.5) |
在Visual Basic中,用变量code存储学生的借阅卡编码(如“CH20130036”),则变量code的数据类型应说明为( )
A.Integer | B.Single | C.String | D.Date |