- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- + 算法实例的程序实现
- 过程和自定义函数
- 枚举算法及程序实现
- 解析算法及程序实现
- 递归算法及程序实现
- 排序算法及程序实现
- 查找算法及程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
下面VB程序的功能为：在文本框Text1和Text2中输入两个整数，单击按钮对象Command1，在标签对象Label1中显示这两个数的差。
Function lsc(x，y) As Integer
If x＞y Then
lsc＝x－y
Else
lsc＝y－x
End If
End Function
Private Sub Command1_Click( )
Dim a1 As Integer，a2 As Integer
a1＝Val(Text1.Text)
a2＝Val(Text2.Text)
Label1.Caption＝________
End Sub
要实现上述功能，程序画线处应填入的语句为( )
Function lsc(x，y) As Integer
If x＞y Then
lsc＝x－y
Else
lsc＝y－x
End If
End Function
Private Sub Command1_Click( )
Dim a1 As Integer，a2 As Integer
a1＝Val(Text1.Text)
a2＝Val(Text2.Text)
Label1.Caption＝________
End Sub
要实现上述功能，程序画线处应填入的语句为( )
| A．lsc(x，y) | B．lsc(Text1.Text，Text2.Text) |
| C．lsc | D．lsc(a1，a2) |
有如下Visual Basic程序段：
m = a(1)
i =" 2"
Do While i <= 10
If m < a(i) Then m = a(i)
i =" i" + 1
Loop
该程序段执行后，变量m中存储的是（ ）
m = a(1)
i =" 2"
Do While i <= 10
If m < a(i) Then m = a(i)
i =" i" + 1
Loop
该程序段执行后，变量m中存储的是（ ）
| A．a(1)至a(10)中的最大值 |
| B．a(1)至a(10)中的最小值 |
| C．a(2)至a(10)中的最大值 |
| D．a(2)至a(10)中的最小值 |
有下列 VB 程序段：
Dim strA As String, strB As String strA = "hongda"：strB = ""
For i = 1 To Len(strA) * 2 If i / 2 = Int(i / 2) Then
该程序段运行后，变量 strB 的值是（ ）
Dim strA As String, strB As String strA = "hongda"：strB = ""
For i = 1 To Len(strA) * 2 If i / 2 = Int(i / 2) Then
strB = strB + Chr(Asc(Mid(strA, (i - 1) Mod Len(strA) + 1, 1)) + 2) End If
Next i该程序段运行后，变量 strB 的值是（ ）
| A．"jpfqic " | B．"qicqic" | C．"phbqic" | D．"qicoga" |
有如下 VB 程序段：
Function fact(n As Integer) As String If n = 1 Then
fact = fact & 1
Else
fact = fact(n \ 2) & n Mod 2
End If
End Function
Private Sub Command1_Click()
Dim x As String, i As Integer, r As Integer x = Text1.Text
For i = 1 To Len(Text1.Text)
End Sub
在文本框Text1 中输入 2019.70,则执行程序段，在文本框 Text2 中显示的内容是（ ）
Function fact(n As Integer) As String If n = 1 Then
fact = fact & 1
Else
fact = fact(n \ 2) & n Mod 2
End If
End Function
Private Sub Command1_Click()
Dim x As String, i As Integer, r As Integer x = Text1.Text
For i = 1 To Len(Text1.Text)
If Mid(x, i, 1) = "." Then Exit For Next i
r = Val(Mid(x, i + 1, Len(Text1.Text) - i)) Text2.Text = fact(r)End Sub
在文本框Text1 中输入 2019.70,则执行程序段，在文本框 Text2 中显示的内容是（ ）
| A．1000110 | B．70 | C．350 | D．100011 |
下图是通过 VB 程序读取“GDP2018.accdb”文件中的 GDP 总量，显示在列表框中，部分代码实现如下：
Private Sub Command1_Click() ’列表框中
输出 b(i)，代码略End Sub
Private Sub Form_Load()
conn.ConnectionString="Provider=Microsoft.AC
Private Sub Command1_Click() ’列表框中
输出 b(i)，代码略End Sub
Private Sub Form_Load()
conn.ConnectionString="Provider=Microsoft.AC
| A．OLEDB.12.0;DATASource="& App.Path & "\GDP2018.accdb" conn.Open：Set myrecord.ActiveConnection = conn：myrecord.Open "GDP" n = 0 Do While Not myrecord.EOF n = n + 1 a(n) = myrecord.Fields("2018") b(n) = Left(myrecord.Fields("Area"), 5) & " " & myrecord.Fields("2018") myrecord.MoveNext Loopconn.Close: myrecord.Close: Set myrecord = Nothing: Set conn = Nothing End Sub 下列说法不正确的是（ ） |
| B．ConnectionString 是实例 conn 的属性 B.myrecord.Fields("2018")返回当前记录中“2018”字段的值 |
| C．a(1)读取后执行myrecord.MoveNext 将读取下一条记录，即 a(2)=“中国” |
| D．myrecord.Fields("2018")也可以写成 myrecord.Fields(3) |