VB中的CHOOSE函数问题

W=Choose(Weekday(“2007,5,1”),”Red”,”Green”,”Blue”,”Yellow”)
W为何值?请讲明为什么 谢谢大家!!

返回Blue
Weekday函数返回一个日期的星期数..
2007,5,1是星期二.所以WeekDay函数返回3(VB把星期天做为一星期的第一天).
Choose函数第一个参数是选择第几个,其他的都是待选的参数列表了.
选第三项.BLUE
温馨提示:内容为网友见解,仅供参考
第1个回答  2008-01-05
W=Choose(Weekday(“2007,5,1”),”Red”,”Green”,”Blue”,”Yellow”)
分解
a=weekday("2007-5-1")= 3
w=choose(3,"red","green","blue")
因此w="blue"

VB中的CHOOSE函数问题
2007,5,1是星期二.所以WeekDay函数返回3(VB把星期天做为一星期的第一天).Choose函数第一个参数是选择第几个,其他的都是待选的参数列表了.选第三项.BLUE

VB choose函数的返回值
当 index小于 1 或大于列出的选择项数目时,Choose 函数返回 Null。如果 index 不是整数,则会先四舍五入为与其最接近的整数。比如:Choose(2,"一","二","三","四") 返回的是 二 Choose(4,"一","二","三","四") 返回的是 四 函数示例:Function GetChoice(Ind As Integer)GetChoice ...

本题中VB choose函数的作用是什么 ?(详细解说,在线等)
choose(3,”春“,”夏“,”秋","冬") 当 x = 8,9,10 choose(4,”春“,”夏“,”秋","冬") 当 x = 11,12,1 四种情况

vb的choose函数返回值
你的题目存在错误,+-*\/,是字符,需用“”标识,且VB中没有题目中的除号,只有用斜杠\/。Private Sub Command1_Click()Print Choose(3, "+", "-", "*", "\/")End Sub 代码运行结果输出值是*字符。Choose 函数,从参数列表中选择并返回一个值。

vb choose函数(1-(85<60)-(85<75)-(85<90),4,3,2,1)
Choose(1 - (85 < 60) - (85 < 75) - (85 < 90), 4, 3, 2, 1)= Choose(1 - False - False - True, 4, 3, 2, 1)= Choose(1 - 0 - 0 - (-1), 4, 3, 2, 1)= Choose(1 + 1, 4, 3, 2, 1)= Choose(2, 4, 3, 2, 1)= 3 ...

vb中iif()和choose()函数的用法和实例!!如题 谢谢了
iif函数 iif函数VB里的函数 根据表达式的值,来返回两部分中的其中一个。 语法IIf(expr, truepart, falsepart) IIf 函数的语法含有下面这些命名参数: 描述: expr 必要参数。用来判断真伪的表达式。 truepart 必要参数。如果 expr 为 True,则返回这部分的值或表达式。 falsepart 必要参数。如果 ...

在vb编程中如何用choose 函数选择四个数中最大的一个
看界面是VB.NET吧?建立了5个TextBox1 其中 1~4 用来存在输入的数字 5用来存放最后排序后的结果 按钮Button1 生成排序结果并显示到TextBox5中 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim Num(3) As String Try Num(0) = CDbl(TextBox1...

VB求解 如何随机选取1,2,3,4 四个数中的某一个
choose函数呀 dim i as integer i=4*rnd+1'生成1-4的随机数 dim Num as double Num=choose(i,50,100,80,500)

...分别用select语句和choose函数两种方法用英文显示对应的星期一~星期...
debug.print "Tuseday"……end select end if end sub private sub command2_click() 'choose方法 text1.text =int(val(text1.text))if text1.text >0 and text1.text <8 then i = text1.text debug.print choose(i,"Monday","Tuseday",……,"Sunday")end if end sub ...

...分别利用分支if语句.seleck语句和choose函数三种方法.显示用英文形 ...
End Sub Private Sub Command3_Click()Dim d As Integer, s As String d = Val(Text1.Text)If d >= 1 And d <= 7 Then s = Choose(d, "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday")Else s = "您的输入有误!"End If MsgBox s End Sub ...

相似回答