- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- + 面向对象程序设计 VB开发工具
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
某算法流程图如图所示, 执行该算法,当i的值为3时,下列说法正确的是( )


A.输出s的值 |
B.程序出错 |
C.执行语句s=s+s*i和i=i+1 |
D.语句s=s+s*i已经执行了1次 |
下列VB程序运行时,单击命令按钮Command1后,文本框Text1中显示的内容是______,文本框Text2中显示的内容是_______。
Private Sub Command1_click( )
Dim a(1 to 3) as integer,k as integer,t as integer,s as integer
a(1)="15:" a(2)="36:" a(3)=7
s=0
For k="2" to 3
if a(k)>a(1) then
t=a(1):a(1)=a(k):a(k)=t
s=s+1
End if
Next k
text1.text=str(a(1))
text2.text=str(s)
End sub
Private Sub Command1_click( )
Dim a(1 to 3) as integer,k as integer,t as integer,s as integer
a(1)="15:" a(2)="36:" a(3)=7
s=0
For k="2" to 3
if a(k)>a(1) then
t=a(1):a(1)=a(k):a(k)=t
s=s+1
End if
Next k
text1.text=str(a(1))
text2.text=str(s)
End sub
已知t=55.8,s=64,m=-81,则下列Visual Basic表达式的值为False的是( )
A.t < abs(m)and int(t)+8 >= s | B.int(m)> s or t < abs(m) |
C.sqr(s)+ t < abs(m) | D.t > s + m |
小刚的支付宝账户密码忘记了,但他急用支付宝进行转账,请你帮他尽可能找回密码。他只记得自己密码的一些零星信息:
①密码是六位数字,前面两位为59;
②最后两位数字相同;
③能被12和38整除。
程序界面如1图所示,单击 “帮助找回密码”按钮(Command1)后,可能的密码显示在列表框List1中。

(1)应用程序界面设计时,为添加“可能的密码有:”对象,应使用2图所示的“控件工具箱”中的______________(填写相应编号),并在3图所示的“属性窗口”中,将____________属性值设置为“可能的密码有:”。

(2)解决此问题的相应程序如下,请根据题意将程序补充完整。
Private Sub Command1_click ( )
Dim x As Integer, s As Long, y As Integer, i As Integer
For i =" 0" To 9999
S =" 590000" + i
If ____________ Then
x=" s" mod 10
y =" (s" Mod 100) \ 10
If x =" y" Then
List1.AddItem Str(s)
End If
End If
Next i
End Sub
①密码是六位数字,前面两位为59;
②最后两位数字相同;
③能被12和38整除。
程序界面如1图所示,单击 “帮助找回密码”按钮(Command1)后,可能的密码显示在列表框List1中。

(1)应用程序界面设计时,为添加“可能的密码有:”对象,应使用2图所示的“控件工具箱”中的______________(填写相应编号),并在3图所示的“属性窗口”中,将____________属性值设置为“可能的密码有:”。

(2)解决此问题的相应程序如下,请根据题意将程序补充完整。
Private Sub Command1_click ( )
Dim x As Integer, s As Long, y As Integer, i As Integer
For i =" 0" To 9999
S =" 590000" + i
If ____________ Then
x=" s" mod 10
y =" (s" Mod 100) \ 10
If x =" y" Then
List1.AddItem Str(s)
End If
End If
Next i
End Sub
某餐厅在团购网站上推出了98元享原价198元的套餐团购活动,但规定每天接受团购券数量是有限制的,表示此餐厅是否接受团购券的算法如下:
①number=0 ′团购券数量用变量number表示。
②Do While number<=29
③读入用餐顾客的情况
④If 使用团购券顾客 then
变量number增加1
允许使用团购券进行消费
End If
⑤Loop
对于上述算法,下列说法错误的是( )
①number=0 ′团购券数量用变量number表示。
②Do While number<=29
③读入用餐顾客的情况
④If 使用团购券顾客 then
变量number增加1
允许使用团购券进行消费
End If
⑤Loop
对于上述算法,下列说法错误的是( )
A.每天允许使用团购券数量最多是30 |
B.代码“变量number增加1”和“允许使用团购券进行消费”互换位置是可行的 |
C.此算法的循环结构可以用For语句来实现 |
D.此算法是用自然语言来描述的 |
萧明申请了一个网银账号,登录网银账号时要输入密码。如果密码输入的错误次数超过3次,那么当日网银账号将被锁定,次日自动解锁。下图是登陆网银的流程图,萧明不小心输入密码错误了2次,第3次才正确,那么他的操作流程应该是( )


A.①![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
B.①![]() ![]() ![]() ![]() ![]() ![]() ![]() |
C.①![]() ![]() ![]() ![]() |
D.①![]() ![]() ![]() ![]() ![]() |
小李想用vb制作一个分钟倒计时器,界面如图所示。先在文本框text1中输入分钟数,然后在文本框text2中输入秒钟数,再点击“开始倒计时”按钮开始倒计时。Vb程序如下:


Private Sub Command1_Click()
Timer1.Enabled = ①
End Sub
Private Sub Timer1_Timer()
sec = Val(Text2.Text)
min = Val(Text1.Text)
If sec> 0 Then
sec =" sec" - 1
Else
sec =" 59"
If min > 0 Then
min =" min" - 1
Else
Text1 = 0
Text2 = 0
MsgBox "倒计时时间到"
End If
End If
Text1 = min
Text2 = sec
End Sub
程序中①处应该填
计时器timer1的inteval属性应该设置为


Private Sub Command1_Click()
Timer1.Enabled = ①
End Sub
Private Sub Timer1_Timer()
sec = Val(Text2.Text)
min = Val(Text1.Text)
If sec> 0 Then
sec =" sec" - 1
Else
sec =" 59"
If min > 0 Then
min =" min" - 1
Else
Text1 = 0
Text2 = 0
MsgBox "倒计时时间到"
End If
End If
Text1 = min
Text2 = sec
End Sub
程序中①处应该填
计时器timer1的inteval属性应该设置为
小明编写一个模拟qq登录的VB程序。当输入用户名、密码和验证码,点击登录按钮后,会跳出信息框提示是否验证成功。部分程序与流程图如下所示:

uname = Text1.Text '输入用户名
psd = Text2.Text '输入密码
vcode = Val(Text3.Text) '输入验证码
If vcode <> Val(Label3.Caption) Then
MsgBox “
” 'Label3显示的是随机验证码
ElseIf uname <> "admin" Or psd <> "123456" Then
MsgBox “
”
Else
MsgBox “
”
方框中正确的语句是( )

uname = Text1.Text '输入用户名
psd = Text2.Text '输入密码
vcode = Val(Text3.Text) '输入验证码
If vcode <> Val(Label3.Caption) Then
MsgBox “

ElseIf uname <> "admin" Or psd <> "123456" Then
MsgBox “

Else
MsgBox “

方框中正确的语句是( )
A.①中“验证成功” | B.②中“输出用户名或密码有误” |
C.②中“验证成功” | D.③中“输出验证码错误” |
有Visual Basic程序如下:
Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim c As String
a = Text1.Text
b = Text2.Text
c =" a" + b
Label1.capton = c
End Sub
程序运行时,单击命令按钮command1,弹出如图所示的出错信息提示,此时程序正执行的语句是( )

Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim c As String
a = Text1.Text
b = Text2.Text
c =" a" + b
Label1.capton = c
End Sub
程序运行时,单击命令按钮command1,弹出如图所示的出错信息提示,此时程序正执行的语句是( )

A.a = Text1.Text | B.b = Text2.Text |
C.c =" a" + b | D.Label1.capton = c |