privatesub formload dim i as integer dim j as integer private sub command_click i=int(text1.text) j=int(text2.text) text3.text=i+J end sub 1年近く遠ざかっていたので全く自信がありませんが(VBも 今手元に無い…脳内で作ってみました。 宜しくおねがいします。
for (i = 0; i < 5; i++) { Card[i] = cardNo[count]; Mark[i] = cardMark[count]; Number[i] = cardNumber[count]; count++; } }
/*手札を交換する処理*/ public void changeCard (int Card, int Mark, int Number) { Card = cardNo[count]; Mark = cardMark[count]; Number = cardNumber[count]; count++; }
/*カードの番号をキーに、手札を昇順に整列する*/ public void sortCard (int Card[], int Mark[], int Number[]) { int work1 = 0; int work2 = 0; int work3 = 0;