VB 这个代码怎么样简写If i y(0) And i y(0) + 1 And i y(0) - 1 And j y(1) And j y(1) + 1 And j y(1) - 1 And k y(2) And k y(2) + 1 And k y(2) - 1 And _Abs(i - j) > 1 And Abs(i - k) > 1 And Abs(j - k) > 1 Then后面abs就不用了,前面的有

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/01 07:01:59
VB这个代码怎么样简写Ifiy(0)Andiy(0)+1Andiy(0)-1Andjy(1)Andjy(1)+1Andjy(1)-1Andky(2)Andky(2)+1Andky(2)-1And_Ab

VB 这个代码怎么样简写If i y(0) And i y(0) + 1 And i y(0) - 1 And j y(1) And j y(1) + 1 And j y(1) - 1 And k y(2) And k y(2) + 1 And k y(2) - 1 And _Abs(i - j) > 1 And Abs(i - k) > 1 And Abs(j - k) > 1 Then后面abs就不用了,前面的有
VB 这个代码怎么样简写
If i y(0) And i y(0) + 1 And i y(0) - 1 And j y(1) And j y(1) + 1 And j y(1) - 1 And k y(2) And k y(2) + 1 And k y(2) - 1 And _
Abs(i - j) > 1 And Abs(i - k) > 1 And Abs(j - k) > 1 Then
后面abs就不用了,前面的有没有办法简写一下,老觉得代码太长而且繁琐

VB 这个代码怎么样简写If i y(0) And i y(0) + 1 And i y(0) - 1 And j y(1) And j y(1) + 1 And j y(1) - 1 And k y(2) And k y(2) + 1 And k y(2) - 1 And _Abs(i - j) > 1 And Abs(i - k) > 1 And Abs(j - k) > 1 Then后面abs就不用了,前面的有
既然后边都会用abs了,为何前边不用.
iy(0)相当于i-y(0)0
iy(0)+-1相当于i-y(0)+-1
如果i和y(0)都是integer,那么可以这样写abs(i-y(0))>1
以此类推j,k

VB 这个代码怎么样简写If i y(0) And i y(0) + 1 And i y(0) - 1 And j y(1) And j y(1) + 1 And j y(1) - 1 And k y(2) And k y(2) + 1 And k y(2) - 1 And _Abs(i - j) > 1 And Abs(i - k) > 1 And Abs(j - k) > 1 Then后面abs就不用了,前面的有 VB问题Private Sub Command1_Click()Private Sub Command1_Click()Dim i%For i = Combo1.ListCount - 1 To 0If Combo1.Selected(i) ThenList1.AddItem Combo1(i)End IfNext i这个代码如何改 VB If i Mod 2 vb.冒号表达式是怎么回事?请见下面代码.谢谢k = CLng(default(0))i = k Mod CInt(gc_d(0, 1))j = Int(k / CInt(gc_d(0, 1)))If i = 0 Then i = CInt(gc_d(0, 1)): j = j - 1 ——————?、?If i - C_Da(0, 3) - C_Da(1, 3) > 0 The VB试题 语句if 0 vb中Check的Value属性是什么意思Private Sub opt1_Click(Index As Integer)If opt1(0).Value = True ThenFor i = 0 To 31Check1(i).Value = 1NextElseFor i = 0 To 31Check1(i).Value = 0NextEnd IfEnd Sub方便的话帮我解释下这段代码吧 计算圆的面积 VB代码,就是VB里怎么计算圆的面积.用if语句,可以不. 在javascript中的一段代码:if(x>>y){ x=0; y=10; } 可以帮我该一下这个代码吗?求任意多边形面积.#include #includeusing namespace std;int N;struct point{double x,y;};typedef point polygon[N];double polygon_area(polygon p,int n){double area=0.0;int i;for (i=1; i>n){if (n==0)break;for ( vb题 代码是m = 5 n=6 if x>0 then m=n-3 else n=3 print n-m I W C Y 英文简写有谁知道这个缩写么,好像没完 后面还有, vb 复选框用Check1.Value = Checked的时候就自动运行了Check1_Click.怎么办?程序如图代码如下:Private Sub Check1_Click()If Check1.Value = 1 ThenFor i = 0 To 39Check2(i).Value = 1Next iElseIf Check1.Value = 0 ThenFor i = 0 To 39Che vb中,x=4,y=8,z=7,xz or z就这个,没代码,可能答案错了吧,谢谢 一道VB题,我做出来是和标准答案不同,只要第二步份.Private Sub Command2_Click()Sum = 0For i = 1 To 20Min = a(1,1)For j = 2 To 5If a(i,j) < Min ThenMin = a(i,j)End IfNext jSum = Sum + MinNext iText2.Text = Sum / 20End Sub打开代码 VB中Text1.text=text1.text+CStr(a(i))+ If i=4 then text1.text=text1.text+chr(13)+chr(10)VB中Text1.text=text1.text+CStr(a(i))+ If i=4 then text1.text=text1.text+chr(13)+chr(10)中1, 2,chr(13)+chr(10)是不是ASCII的代码, VB代码若X大于0,则Y等于1.若X小于0.则Y等于-1.否则Y等于0 VB中 If y * y = x Then中y * y = 怎样用这个语句来判断一个数是否是平方数啊问题就是那样的 VB中判断奇偶 y=IIf(x mod 2,1,0) If y Then Print 奇数 Else Print 偶数 End If为什么是if ythen而不是if y=1 then呢?if y 是什么意思