- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- + 面向对象程序设计 VB开发工具
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
下列VB程序运行时,在文本框Text1中输入1234,单击命令按钮Command1后,文本框Text1中显示的内容是________。该程序使用了________结构(填:顺序 / 选择 / 循环)。
n = Val ( Text1.Text )
x = n Mod 10
n = x * 1000 + n \ 10
Text1.Text = Str ( n )
Private Sub Command1_click ( )
Dim n As Integer , x As Integern = Val ( Text1.Text )
x = n Mod 10
n = x * 1000 + n \ 10
Text1.Text = Str ( n )
End Sub
有如下Visual Basic程序段:
a = "360"
b = Val(a)
c = Len(a)
If b > c Then
Label1.Caption = "取数值"
Else
Label1.Caption = "取字符"
End If
该程序段运行后,在标签Label1上显示的是____________。
a = "360"
b = Val(a)
c = Len(a)
If b > c Then
Label1.Caption = "取数值"
Else
Label1.Caption = "取字符"
End If
该程序段运行后,在标签Label1上显示的是____________。
下列VB程序运行时,单击命令按钮Command1后,文本框Text1中显示的内容是:____________________ 。
Private Sub Command1 Click
Dim x As Integer, m As Integer
m = 3
For x = 1 To 5
If m > 3 Then m = m + 2 Else m = m - 1
Next x
Text1.Text = Str(m)
End Sub
Private Sub Command1 Click
Dim x As Integer, m As Integer
m = 3
For x = 1 To 5
If m > 3 Then m = m + 2 Else m = m - 1
Next x
Text1.Text = Str(m)
End Sub
某算法的部分流程图如图所示,以下说法正确的是( )


A.该流程执行后,变量k的值是-1 |
B.该流程执行后,变量a的值是16 |
C.该流程用于计算并输出1+8-16的值 |
D.该流程完整执行1次,“a<32?”共执行了3次 |
对称字符串从左读到右和从右读到左完全一样,如“1221”“12321”。编写VB程序,判断输入字符串是否对称,程序运行界面如图a所示,在文本框Text1中输入字符串,单击Command1按钮,在标签Label2上显示判断结果。

图a

图b
(1)实现上述功能的VB程序如下,请在画线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, c1 As String, c2 As Integer
Dim n As Integer, i As Integer
Dim f As Boolean
s = Text1.Text
n = Len(s)
f = True
For i = 1 To n \ 2
c1 = _______①______
c2 = Mid(s, n - i + 1, 1)
If c1 <> c2 Then
f = False
Exit For
End If
Next i
If ② Then
Label2.Caption = "对称"
Else
Label2.Caption = "不对称"
End If
End Sub
划线处代码应为
①________________
②________________
(2)运行该程序,在文本框中输入aba,单击“判断”按钮后,出现图b所示错误提示,引起该错误的原因是________________(单选,填字母:

图a

图b
(1)实现上述功能的VB程序如下,请在画线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, c1 As String, c2 As Integer
Dim n As Integer, i As Integer
Dim f As Boolean
s = Text1.Text
n = Len(s)
f = True
For i = 1 To n \ 2
c1 = _______①______
c2 = Mid(s, n - i + 1, 1)
If c1 <> c2 Then
f = False
Exit For
End If
Next i
If ② Then
Label2.Caption = "对称"
Else
Label2.Caption = "不对称"
End If
End Sub
划线处代码应为
①________________
②________________
(2)运行该程序,在文本框中输入aba,单击“判断”按钮后,出现图b所示错误提示,引起该错误的原因是________________(单选,填字母:
A.变量s的数据类型错误; | B.变量c2的数据类型错误; | C.变量f的数据类型错误)。 |