刷题首页
题库
高中信息
题干
将文本框 Text1 内输入的数据送到字符型变量 n 中,则应使用的语句是( )
A.n=Text1
B.n=Text1.Text
C.n=Val(Text1.name)
D.n=Val(Text1.Text)
上一题
下一题
0.99难度 选择题 更新时间:2017-02-24 08:54:39
答案(点此获取答案解析)
同类题1
如下VB程序段“a=13 b=32 a=b”关于语句“a=b”的含义,下列叙述中正确的是( )。
A.把变量a的值赋给变量b
B.判断变量a的值是否等于变量b的值
C.把变量b的值赋给变量a
D.把变量a的值与变量b的值交换
同类题2
下列VB程序的功能是:程序运行时,单击命令按钮Commandl后,产生10个1,999范围内互不相同的随机整数,依次显示在列表框List1中,然后将它们按从小到大的顺序排序,排序结果显示在列表框List2中。
数组a用于存储产生的10个随机整数,函数f(x)用于判断随机整数x与已生成的整数是否有重复,若有重复则返回True,否则返回False。
(1)虚线框内程序段所采用的排序算法名称是
。(填:冒泡排序/选择排序)
(2)在程序(1)和(2)划线处,填入适当的语句或表达式,把程序补充完整。
Dim a(1 To 10) As Integer
Function f(x As Integer) As Boolean
′代码略
End Function
Private Sub Commandl_Click()
Dim n As Integer ′n用于统计已经产生的随机整数个数
Dim i As Integer.j As Integer
Dim x As Integer.k As Integer
Randomize ′初始化Rnd函数
n=0
List1.Clear ′清除列表框中内容
List2.Clear
Do While n<10
x=Int(Rnd*999)+1 ′产生1,999范围内的随机整数
If Not f(x) Then
n=n+1
a(n)=x
List1.AddItem Str(
(1)
)
End If
Loop
For i="1" To 9 ′进行排序
For j="10" To i+1
(2)
If a(j)<a(j-1) Then
k=a(j):a(j)=a(j-1):a(j-1)=k
End If
Next j
Next i
For i="1" To 10
List2.AddItem Str(a(i))
Next i
End Sub
同类题3
下列赋值语句正确的是( )
A.x+3=y-2
B.d=d+2
C.0=a
D.x-y=1
同类题4
VB工程在调试中出现如图所示的错误提示,产生此错误的语句是( )
同类题5
小明设计了如下所示累乘器程序,以完成式子:1×2×3×4×5×6的累乘计算。
Private Sub form_load()
Dim k As Long, i As Integer
k = 0 ……… ①
For i =" 1" To 6
k =" k" * i ……… ②
Next i
MsgBox Str(k)
End Sub
为了完成小明的计算,程序中标有①、②的两处语句,哪个语句应作相应的修改,修改后其正确的语句为(写出标号和正确的语句)_____________。
相关知识点
算法理论
面向对象程序设计 VB开发工具
赋值语句