vb.net 这段代码用select case方法怎么做？
Dim sinfo(8) As String
sinfo(0)="abc"
sinfo(1)="xyz"
sinfo(2)="pwq"
'………………
'改写成select的
好吧，重说一下，我想问的是通过select数组下标来赋值，
就是select case sinfo数组下标
case 0
sinfo="abc"
case 1
sinfo="xyz"
……
这个数组下标用什么表示
dim sinfo as string
select case sinfo
case "abc"
...
case "xyz"
...
case "pwq"
...
case else
...
end select
Dim i As Short
Dim wd As String
For i = 0 To 7
Select Case i
Case 0
wd = "abc"
Case 1
wd = "xyz"
'…………
End Select
sinfo(i) = wd
Next本回答被提问者采纳
vb.net 这段代码用select case方法怎么做?
end select
求一个分段函数的vb.net的代码~
可以用select case Dim i As Integer Select Case i Case Is > 0 MsgBox("变量值大于0")Case 0 MsgBox("变量值等于0")Case Is < 0 MsgBox("变量值小于0")End Select
VB中的CASE语句
在VB.NET中VB.NET CASE语句就是比较常用的一种，下面是详细的介绍和代码的演示：1、可以用 Select...Case 语句来替换 If...Then...Else 语句，所不同的是If 和 ElseIf 语句可在每个语句中计算不同的表达式，而 Select 语句对单个表达式只计算一次，然后将其和不同的值比较。Function bonus(ByVa...
VB select语句
根据表达式的值，来决定执行几组语句中的其中之一。Select Case 语句示例 本示例使用 Select Case 语句来判断变量的值。示例中第二个 Case 子句包含了变量值，故只有此区块内的语句会被完成到。Dim Number Number = 8 ' 设置变量初值。 Select Case Number ' 判断 Number 的值。 Case...
vb.net中文本框怎么从下拉列表框中调用数据,相关联
If Text1.Text = "1" Then Combo1.Text = "增加"If Text1.Text = "2" Then Combo1.Text = "修改"If Text1.Text = "3" Then Combo1.Text = "删除"End Sub 那同样可以关联，和这个思路反过来，只是事件不是KeyUp,而是combo的change过程 Private Sub Combo1_Change()select case combo1...
select case 取值范围问题
语法是这样的Select Case 表达式 Case 值1 程序1 Case 值2 程序2...Case Else 其他程序 End Selectcase后只能是一个值，不可以是一条语句
我用VB.net做了一个wince的应用程序,那么在mini2440板上有k1-k6按键...
键盘方法：'\/\/ 键盘处理 Private Sub PressKeyFun(ByVal k As Integer)Select Case k Case 1 dim f as new from1 f.show()End Select end sub Private Sub txt数量_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txt数量.KeyUp Select Case e....
vb.net 线程 如何动态 address of 过程,即 "过程" 是可以用户动态传送的...
过程名是不可能作为参数使用的，想必你需要调用的过程是有限的，那么可以用一个变量来确定：sub 过程名(p as integer)Dim i As Threading.Thread select case p case 1 i = New Threading.Thread(AddressOf 过程1）case 2 i = New Threading.Thread(AddressOf 过程2）...end select i.start()e...
vb.net 在规定的时刻触发某个事件。怎么实现?
窗体上添加一个 Label1 Timer1 再添加2个窗体 代码如下：Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Enabled = True End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As ...
vb.net中定义控件数组,控件数组中加入多个按钮。怎么能在控件数组事件响...
bt.Add(Me.Button6)bt.Add(Me.Button7)上面这段代码本人表示不懂，故没有使用。下面的代码在VS2015中运行通过：Private Sub btClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click, Button6.Click, Button7.Click Select Case CType(sender, Button).Name ...
