永发信息网

请问这个vb语句中的searchn=-1是什么含义

答案:2  悬赏:70  手机版
解决时间 2021-03-05 23:21
Private Sub Form_click()
Dim a(1 To 6) As Integer, i As Integer, key As Integer, searchn As Integer
For i = 1 To 6
a(i) = Val(InputBox("输入第" + Str(i) + "个数"))
Next i
searchn = -1
key = InputBox("输入要查找的数据")
For i = LBound(a) To UBound(a)
If key = a(i) Then
searchn = i
Exit For
End If
Next i
If searchn = -1 Then
Print "数据未找到"
Else
Print "找到的数据为:"; a(searchn)
End If
End Sub
最佳答案
赋初值,当以下标跟踪方式搜索到数组a()中所查找的数据时,便被赋值为当前下标值。
说白了,赋值-1只是为了验证有没有搜索到数据,只要不与a()数组的下标冲突赋值什么数都无所谓。这个程序完全可以将该语句省略,因为0和1 to 6不冲突。
Private Sub Form_click()
Dim a(1 To 6) As Integer, i As Integer, key As Integer, searchn As Integer
For i = 1 To 6
a(i) = Val(InputBox("输入第" + Str(i) + "个数"))
Next i
key = InputBox("输入要查找的数据")
For i = LBound(a) To UBound(a)
If key = a(i) Then
searchn = i
Exit For
End If
Next i
If searchn Then
Print "数据未找到"
Else
Print "找到的数据为:"; a(searchn)
End If
End Sub
全部回答
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
在工厂维修技术员属于哪个部门?
谁知道何曼婷你yy直播的时间段还有是哪个YY频
信阳凯旋建筑劳务有限公司地址在哪,我要去那
现在的自动挡汽车,脚刹慢慢往左边移了么?
男女同学交往要互相尊重,下列哪些行为是不尊
tplink455c密码多少
歌词中有“如果你会想起我曾给你的承诺”是什
物体做平抛运动,在相等的时间内动量变化是否
S5健身俱乐部卡维亚店这个地址在什么地方,我
女人对男人说我们做朋友更好是什么意思
建设工期是从开工建设时算起,到(  )时停
just keep my way是什么意思中文翻译
整修一新的意思是什么
中国平安人寿保险安宁营销部在什么地方啊,我
家用压面机要最好的推荐哪款呢?
推荐资讯
上个月刷了1260,招商银行最低还款为790,我
怎么用sed -e替换文本中的内容
PVC树脂粉型号B-85
X战警3琴小时候教授己经光头那天启被谁杀
周公解梦梦见自己嘴里有一个硬疙瘩
中国国际标准舞考级证书怎样查
C语言,题目如下。跪求啊。 CT操作系统的,编
美丽人生发艺(赤土板路店)地址有知道的么?有
马大和杜高犬哪个厉害
TouchCoffee地址有知道的么?有点事想过去!
在广州车厘子的进货价是多少钱
将1到8八个数字填在囗使算式成立囗 囗 囗X 囗
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?