Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/string/5.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
VB.net If或语句_Vb.net_String - Fatal编程技术网

VB.net If或语句

VB.net If或语句,vb.net,string,Vb.net,String,我有一个文本框,人们可以输入一个数字或一个范围,例如12-15,然后生成一个随机数。目前,如果第二个数字比第一个数字小,我可以让它按照我的意愿工作,但如果只列出一个数字,就不行了 如果没有单词(1)或少于单词(0),则rnum1应等于rnum2。(如果少一点的话,我会做的。) Dim words As String()=TextBox2.Text.Split(“-”) Dim rnum1作为字符串=字(0) Dim rnum2作为字符串=字(1) Dim RandomClass作为新的Rando

我有一个文本框,人们可以输入一个数字或一个范围,例如12-15,然后生成一个随机数。目前,如果第二个数字比第一个数字小,我可以让它按照我的意愿工作,但如果只列出一个数字,就不行了

如果没有单词(1)或少于单词(0),则rnum1应等于rnum2。(如果少一点的话,我会做的。)

Dim words As String()=TextBox2.Text.Split(“-”)
Dim rnum1作为字符串=字(0)
Dim rnum2作为字符串=字(1)
Dim RandomClass作为新的Randomy()
将随机数设置为整数
如果rnum2
更改此行

Dim rnum2 As String = words(1)

它检查单词数组中是否有2个元素。如果是-则使用数组的第二个元素,否则将重新分配第一个元素

想一想,这一点甚至可以通过以下方式实现:

Dim rnum2 As String = words(words.Length - 1)

如果数组中有2个元素-它将分配单词(1),否则将分配单词(0)

谢谢Yuriy,它工作得很好,但似乎我的If。。。然后。。。毕竟不起作用。请尝试将rnum1和rnum2的类型从字符串更改为整数。通过这种方式,它们将作为数字进行比较。就是这样!再次感谢。
Dim rnum2 As String = IF(words.Length = 2, words(1), rnum1)
Dim rnum2 As String = words(words.Length - 1)