1.java 程序设计
2.vb问题 求各位帮忙

java 程序设计

       ä¹‹å‰æœ‰äººé—®è¿‡åŒæ ·çš„问题，我回答的，你们是不是同一个系的，要做课程设计？我直接粘贴过来：

       æˆ‘自己写了一个简单的程序，可选择落子的先后顺序，重新开始，最后判断某一方是否为五子连珠。选择落子的先后顺序，只需定义一个boolean变量，每次切换取其反值；重制棋盘或重新开始就把棋盘重新绘制一遍；判断某一方是否为五子连珠，就判断某方的每个棋子，以它为中心与之紧邻的水平，垂直，左斜，右斜四个方向是否有五子连珠。用一个二维数组position存储棋盘上的棋子情况，position[x][y]=1,序源0,-1分别表示棋盘的第x行第y列下有黑子，无子，白子。源代码如下：

       package com.test;

       import java.awt.*;

       import java.util.*;

       import java.awt.geom.*;

       import java.awt.event.*;

       import javax.swing.*;

       public class MyFiveChess {

        public static void main(String[] args) {

        JFrame f = new JFrame();

        f.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);

        Dimension screenSize = Toolkit.getDefaultToolkit().getScreenSize();

        int screenWidth = screenSize.width;

        int screenHeight = screenSize.height;

        f.setSize(screenWidth / 2, screenHeight / 2);

        f.setLocation(screenWidth / 4, screenHeight / 4);

        f.setTitle("FiveChess");

        MyPanel panel = new MyPanel();

        f.add(panel);

        f.setVisible(true);

        }

       }

       class MyPanel extends JPanel {

        private static final int SIDELENGTH = ;

        private ArrayList<Ellipse2D> squares = new ArrayList<Ellipse2D>();;

        private Ellipse2D current = null;

        JButton jb = new JButton("重新开始");

        JButton jb2 = new JButton("切换先手");

        boolean isBlack;

        boolean first = true;

        boolean isOver;

        int l = ;

        int n = ;

        int bx = ;

        int by = ;

        int[][] position = new int[n + 1][n + 1];

        public MyPanel(){

        jb.addActionListener(new MyActionHandler());

        jb2.addActionListener(new MyActionHandler());

        addMouseListener(new MouseHandler());

        addMouseMotionListener(new MouseMotionHandler());

        add(jb);

        add(jb2);

        }

        public void initMyPenal(){

        squares = new ArrayList<Ellipse2D>();

        current = null;

        isBlack = first;

        isOver = false;

        position = new int[n + 1][n + 1];

        for(int i = 0; i <= n; i++)

        for(int j = 0; j <= n; j++)

        position[i][j] = 0;

        repaint();

        }

        public void paint(Graphics g) {

        super.paint(g);

        jb.setLocation(,);

        jb2.setLocation(,);

        g.setColor(Color.RED);

        g.setFont(new Font(null, Font.BOLD, ));

        g.drawString((first ? "黑" : "白")+"方下子", , );

        g.setColor(new Color(, , ));

        g.fillRect(bx - l, by - l, l * (n + 2), l * (n + 2));

        g.setColor(Color.BLACK);

        for (int i = 0; i <= n; i++){

        g.drawLine(bx, by + i * l, bx + l * n, by + i * l);

        g.drawLine(bx + i * l, by, bx + i * l, by + l * n);

        }

        Graphics2D g2 = (Graphics2D)g;

        isBlack = first;

        for(Ellipse2D r : squares){

        g2.setColor(isBlack ? Color.BLACK : Color.WHITE);

        g2.fill(r);

        isBlack = !isBlack;

        }

        if(isOver) {

        g.setColor(Color.RED);

        g.setFont(new Font("TimesRoman", Font.BOLD, ));

        g.drawString((isBlack ? "白" : "黑") + "方获胜", , );

        }

        }

        public Ellipse2D find(Point2D p){

        for(Ellipse2D r : squares)

        if(r.contains(p))

        return r;

        return null;

        }

        public void add(Point2D p) {

        if(p.getX() > bx - l / 2 && p.getX() < bx + l * n + l / 2 &&

        p.getY() > by - l / 2 && p.getY() < by + l * n + l / 2){

        for (int i = 0; i <= n; i++) {

        for (int j = 0; j <= n; j++) {

        if(position[i][j] == 1 || position[i][j] == -1) continue;

        current = new Ellipse2D.Double(bx + j * l - l / 2,

        by + i * l - l / 2, l, l);

        if (current.contains(p)) {

        position[i][j] = isBlack ? 1 : -1;

        isOver = isWin(position, isBlack, i , j) ? true : false;

        current.setFrame(bx + j * l - l / 2 + 1,

        by + i * l - l / 2 + 1, l - 2, l - 2);

        squares.add(current);

        repaint();

        return;

        }

        }

        }

        }

        }

        private class MouseHandler extends MouseAdapter{

        public void mousePressed(MouseEvent event){

        if(isOver) return;

        current = find(event.getPoint());

        if(current == null)

        add(event.getPoint());

        }

        }

        private class MyActionHandler implements ActionListener{

        public void actionPerformed(ActionEvent e) {

        String cmd=e.getActionCommand();

        if("重新开始".equals(cmd)){

        initMyPenal();

        }else if("切换先手".equals(cmd)){

        initMyPenal();

        first=!first;

        }

        }

        }

        private class MouseMotionHandler implements MouseMotionListener{

        public void mouseMoved(MouseEvent event){

        Rectangle r = new Rectangle(bx - l, by - l, l * (n + 2), l * (n + 2));

        if(r.contains(event.getPoint())){

        setCursor(Cursor.getPredefinedCursor(Cursor.CROSSHAIR_CURSOR));

        }else setCursor(Cursor.getDefaultCursor());

        }

        public void mouseDragged(MouseEvent event){ }

        }

        public boolean isWin(int[][] state, boolean isBlack, int x, int y) { //四个方向中是否有五子连珠

        return isCzWin(state, isBlack, x, y)

        || isSpWin(state, isBlack, x, y)

        || isYxWin(state, isBlack, x, y)

        || isZxWin(state, isBlack, x, y);

        }

        public boolean isCzWin(int[][] state, boolean isBlack, int x, int y) { //判断垂直方向是否有五子连珠

        int n = 0;

        int a = (x >= 4 ? x - 4 : 0);

        int b = (x <= state.length - 5 ? x + 4 : state.length - 1);

        for (int i = a; i <= b; i++)

        if (state[i][y] == (isBlack ? 1: -1)) {

        if (++n == 5) return true;

        } else n = 0;

        return false;

        }

        public boolean isSpWin(int[][] state, boolean isBlack, int x, int y) { //判断水平方向是否有五子连珠

        int n = 0;

        int a = (y >= 4 ? y - 4 : 0);

        int b = (y <= state[0].length - 5 ? y + 4 : state[0].length - 1);

        for (int i = a; i <= b; i++)

        if (state[x][i] == (isBlack ? 1: -1)) {

        if (++n == 5) return true;

        } else n = 0;

        return false;

        }

        public boolean isZxWin(int[][] state, boolean isBlack, int x, int y) { //判断左斜方向是否有五子连珠

        int n = 1, a = x, b = y;

        for (int i = 1; i <= 4 && a > 0 && b > 0; i++)

        if (state[a - 1][b - 1] == (isBlack ? 1: -1)) {

        n++; a--; b--;

        } else break;

        for (int i = 1; i <= 4 && x < state.length - 1 && y < state[0].length - 1; i++)

        if (state[x + 1][y + 1] == (isBlack ? 1: -1)) {

        n++; x++; y++;

        } else break;

        if (n >= 5) return true;

        return false;

        }

        public boolean isYxWin(int[][] state, boolean isBlack, int x, int y) { //判断右斜方向是否有五子连珠

        int n = 1, a = x, b = y;

        for (int i = 1; i <= 4 && a > 0 && b < state[0].length - 1; i++)

        if (state[a - 1][b + 1] == (isBlack ? 1: -1)) {

        n++; a--; b++;

        } else break;

        for (int i = 1; i <= 4 && x < state.length - 1 && y > 0; i++)

        if (state[x + 1][y - 1] == (isBlack ? 1: -1)) {

        n++; x++; y--;

        } else break;

        if (n >= 5) return true;

        return false;

        }

       }

       æ¯”较简略，自己可以根据情况修改，改进改进！

vb问题 求各位帮忙

       网上转载的，呵呵，源码徽乐源码我也不太明白

       '在窗体上加入以下控件

       'image1(0),序源teamtalk全套源码image1(0) - 黑白棋

       'image2,image3(0)

       'form中的picture为棋盘。因无法上传，源码视频链接源码请自行领会。序源ssm物流源码

       Option Explicit

       Dim I,源码深度配音 源码 J, K, Counter, Firstmoved, Rt, Gen, r, flag As Integer

       Dim Grid(), H(), V(), RL(), LR(), Tb(2), Order() As Integer

       Private Sub Form_Initialize()

       lblHelp.Top = 0

       lblHelp.Left = 0

       Image1(0).Top = -

       Image1(1).Top = -

       lblHelp.Left = -lblHelp.Width

       lblHelp = vbCrLf + vbCrLf + " 游戏帮助" + vbCrLf _

       + vbCrLf + vbCrLf + "●游戏规则:黑方先行,轮流弈子,任一方向先连成五子者胜." _

       + vbCrLf + vbCrLf + vbCrLf + "●操作提示:①可选择[先后]、[难度]和[对手]菜单设置游戏,序源" _

       + vbCrLf + vbCrLf + " 只有按[游戏]->[开始]后才可在棋盘上落子." _

       + vbCrLf + vbCrLf + " ②按[游戏]->[清盘]可重玩并设置游戏." _

       + vbCrLf + vbCrLf + " ③落子后按[动作]菜单下的选择可任意悔棋和恢复." _

       + vbCrLf + vbCrLf + " ④各功能菜单都提供了快捷键(Alt+相应字母)." _

       + vbCrLf + vbCrLf + vbCrLf + "●有什么问题请与本人联系.电子邮件:xwwxyz@sina.com." _

       + vbCrLf + vbCrLf + vbCrLf + "●本页面单击后隐藏."

       End Sub

       Private Sub Form_Resize()

       Me.Height =

       Me.Width =

       End Sub

       Private Sub lblHelp_Click()

       lblHelp.Visible = False

       End Sub

       Private Sub mnuAfter_Click()

       Firstmoved = 0

       mnuAfter.Checked = True

       mnuFirst.Checked = False

       End Sub

       Private Sub Form_Load()

       Dim I As Integer

       For I = 1 To

       Load Image3(I) '加载棋子控件

       Image3(I).Top = (I \ ) * + 5

       Image3(I).Left = (I Mod ) * + 5

       Image3(I).Visible = True

       Next

       Ini

       End Sub

       '游戏初始化

       Sub Ini()

       For I = 0 To

       Image3(I) = Image2

       Image3(I).Enabled = False

       Grid(I) = 0

       V(I) = 0

       H(I) = 0

       LR(I) = 0

       RL(I) = 0

       Next I

       mnuBack.Enabled = False

       Counter = 0

       Gen = 0

       If mnuAfter.Checked = True Then

       Firstmoved = 0

       Else

       Firstmoved = 1

       End If

       mnuStart.Enabled = True

       End Sub

       '一方是否可获胜

       Function LineWin(Piece As Integer) As Integer

       Dim mun As Integer

       LineWin =

       '五子一线

       mun = Piece * 5

       For I = 0 To

       If H(I) = mun Or V(I) = mun Or RL(I) = mun Or LR(I) = mun Then

       LineWin = + Piece

       Exit Function

       End If

       Next I

       '四子一线

       mun = Piece * 4

       For I = 0 To

       If H(I) = mun Then

       For K = 0 To 4

       If Grid(I + K) = 0 Then LineWin = I + K: Exit Function

       Next K

       End If

       If V(I) = mun Then

       For K = 0 To 4

       If Grid(I + K * ) = 0 Then LineWin = I + K * : Exit Function

       Next K

       End If

       If RL(I) = mun Then

       For K = 0 To 4

       If Grid(I + K * ) = 0 Then LineWin = I + K * : Exit Function

       Next K

       End If

       If LR(I) = mun Then

       For K = 0 To 4

       If Grid(I + K * ) = 0 Then LineWin = I + K * : Exit Function

       Next K

       End If

       Next I

       End Function

       '计算机走棋

       Sub ComputerMove()

       Dim ToMove As Integer

       If Counter = 0 Then

       Randomize

       I = Int(Rnd * 7 + 4)

       J = Int(Rnd * 7 + 4)

       If Grid(I * + J) = 0 Then ToMove = I * + J

       Else

       If mnuLower.Checked = True Then ToMove = Defend Else ToMove = Attempt

       End If

       Counter = Counter + 1

       If Firstmoved = 0 Then Image3(ToMove) = Image1(0) Else Image3(ToMove) = Image1(1)

       Grid(ToMove) = 2

       Order(Counter) = ToMove

       LineGen ToMove, 6

       If LineWin(6) = Then

       MsgBox "您输了!"

       Ini

       Exit Sub

       End If

       If Counter = Then

       MsgBox "和棋"

       Ini

       Exit Sub

       End If

       End Sub

       '低级模式

       Function Defend() As Integer

       Rt = LineWin(6)

       If Rt < Then Defend = Rt: Exit Function

       Rt = LineWin(1)

       If Rt < Then Defend = Rt: Exit Function

       '查找落子位置

       Rt = FindBlank

       If Rt < Then Defend = Rt: Exit Function

       End Function

       '悔棋

       Private Sub mnuBack_Click()

       mnuComeback.Enabled = True

       If (Counter + Firstmoved) Mod 2 = 0 Then Rt = -1 Else Rt = -6

       Grid(Order(Counter)) = 0

       Image3(Order(Counter)) = Image2

       LineGen Order(Counter), Rt

       Counter = Counter - 1

       If mnuComputer.Checked = True Then

       Grid(Order(Counter)) = 0

       Image3(Order(Counter)) = Image2

       LineGen Order(Counter), -1

       Counter = Counter - 1

       Else

       flag = 1 - flag

       End If

       r = r + 1

       If Counter = 1 And Firstmoved = 0 And mnuComputer.Checked = True Then mnuBack.Enabled = False

       If Counter = 0 Then mnuBack.Enabled = False

       End Sub

       '恢复棋子

       Private Sub mnuComeback_Click()

       mnuBack.Enabled = True

       Counter = Counter + 1

       If (Counter + Firstmoved) Mod 2 = 0 Then

       Grid(Order(Counter)) = 1

       Image3(Order(Counter)) = Image1(1 - Firstmoved)

       LineGen Order(Counter), 1

       Else

       Grid(Order(Counter)) = 2

       Image3(Order(Counter)) = Image1(Firstmoved)

       LineGen Order(Counter), 6

       End If

       If mnuComputer.Checked = True Then

       Counter = Counter + 1

       Grid(Order(Counter)) = 2

       Image3(Order(Counter)) = Image1(Firstmoved)

       LineGen Order(Counter), 6

       Else

       flag = 1 - flag

       End If

       r = r - 1

       If r = 0 Then mnuComeback.Enabled = False

       End Sub

       Private Sub mnuComputer_Click() '对手

       mnuComputer.Checked = True '电脑

       mnuHuman.Checked = False '棋手

       End Sub

       Private Sub mnuClear_Click() '清盘

       Ini

       mnuFirst.Enabled = True

       mnuAfter.Enabled = True

       mnuLower.Enabled = True

       mnuHigher.Enabled = True

       mnuComputer.Enabled = True

       mnuHuman.Enabled = True

       End Sub

       Private Sub mnuHuman_Click()

       mnuHuman.Checked = True

       mnuComputer.Checked = False

       End Sub

       Private Sub mnuStart_Click() '开始

       lblHelp.Visible = False

       For I = 0 To

       Image3(I).Enabled = True

       Next I

       mnuFirst.Enabled = False

       mnuAfter.Enabled = False

       mnuLower.Enabled = False

       mnuHigher.Enabled = False

       mnuComputer.Enabled = False

       mnuHuman.Enabled = False

       If Firstmoved = 0 And mnuComputer.Checked = True Then ComputerMove

       If Firstmoved = 0 And mnuHuman.Checked = True Then flag = 1 Else flag = 0

       mnuStart.Enabled = False

       End Sub

       '玩家走棋

       Private Sub image3_Click(Index As Integer)

       If Grid(Index) <> 0 Then Exit Sub

       Counter = Counter + 1

       If Firstmoved = 0 Then

       Image3(Index) = Image1(1 - flag)

       Else

       Image3(Index) = Image1(flag)

       End If

       Grid(Index) = 1 + flag

       Order(Counter) = Index

       mnuBack.Enabled = True

       mnuComeback.Enabled = False

       r = 0

       LineGen Index, (1 + flag * 5)

       If LineWin(1 + flag * 5) = + flag * 5 Then

       If flag = 0 Then MsgBox "您赢了!" Else MsgBox "您输了!"

       Ini

       Exit Sub

       End If

       If Counter = Then

       MsgBox "和棋"

       Ini

       Exit Sub

       End If

       If mnuComputer.Checked = True Then ComputerMove Else flag = 1 - flag

       End Sub

       '查找可以落子的空位

       Function FindBlank() As Integer

       Dim wz, fs, lz, RndNum As Integer

       fs = -

       For wz = 0 To

       If Grid(wz) = 0 Then

       Grid(wz) = 2

       LineGen wz, 6

       Rt = Gen

       If Rt > fs Then fs = Rt: lz = wz

       Grid(wz) = 0

       LineGen wz, -6

       End If

       Next wz

       FindBlank = lz

       End Function

       '高级模式

       Function Attempt() As Integer

       Dim wz As Integer

       Rt = LineWin(6)

       If Rt < Then Attempt = Rt: Exit Function

       Rt = LineWin(1)

       If Rt < Then Attempt = Rt: Exit Function

       '查找落子位置

       Rt = linethree(6)

       If Rt < Then Attempt = Rt: Exit Function

       Rt = linethree(1)

       If Rt < Then

       Grid(Tb(0)) = 2

       LineGen Tb(0), 6

       Rt = Gen: wz = Tb(0)

       Grid(Tb(0)) = 0

       LineGen Tb(0), -6

       Grid(Tb(1)) = 2

       LineGen Tb(1), 6

       If Rt < Gen Then Rt = Gen: wz = Tb(1)

       Grid(Tb(1)) = 0

       LineGen Tb(1), -6

       Grid(Tb(2)) = 2

       LineGen Tb(2), 6

       If Rt < Gen Then Rt = Gen: wz = Tb(2)

       Grid(Tb(2)) = 0

       LineGen Tb(2), -6

       Attempt = wz

       Exit Function

       End If

       Rt = FindBlank

       If Rt < Then Attempt = Rt: Exit Function

       End Function

       Private Sub mnuFirst_Click() '先后手

       Firstmoved = 1

       mnuAfter.Checked = False

       mnuFirst.Checked = True

       End Sub

       Private Sub mnuHigher_Click()

       mnuLower.Checked = False

       mnuHigher.Checked = True

       End Sub

       Private Sub mnuLower_Click() '难度

       mnuLower.Checked = True

       mnuHigher.Checked = False

       End Sub

       '局势评估

       Function LineGen(ij, Piece)

       Dim b, e, mun As Integer

       I = ij \

       J = ij Mod

       '横线影响

       b = IIf(J - 4 > 0, J - 4, 0)

       e = IIf(J > , , J)

       For K = b To e

       mun = H(I * + K)

       If mun < 6 Then Gen = Gen + mun * 2 ^ mun

       If mun > 5 And mun Mod 6 = 0 Then mun = mun \ 6 - 1: Gen = Gen - mun * 2 ^ mun

       H(I * + K) = H(I * + K) + Piece

       mun = H(I * + K)

       If mun < 6 Then Gen = Gen - mun * 2 ^ mun

       If mun > 5 And mun Mod 6 = 0 Then mun = mun \ 6 - 1: Gen = Gen + mun * 2 ^ mun

       Next K

       '竖线影响

       b = IIf(I - 4 > 0, I - 4, 0)

       e = IIf(I > , , I)

       For K = b To e

       mun = V(K * + J)

       If mun < 6 Then Gen = Gen + mun * 2 ^ mun

       If mun > 5 And mun Mod 6 = 0 Then mun = mun \ 6 - 1: Gen = Gen - mun * 2 ^ mun

       V(K * + J) = V(K * + J) + Piece

       mun = V(K * + J)

       If mun < 6 Then Gen = Gen - mun * 2 ^ mun

       If mun > 5 And mun Mod 6 = 0 Then mun = mun \ 6 - 1: Gen = Gen + mun * 2 ^ mun

       Next K

       '撇线影响

       b = IIf(I - 4 > 0, I - 4, 0)

       e = IIf(I > , , I)

       b = IIf(b > J + I - IIf(J + 4 > , , J + 4), b, J + I - IIf(J + 4 > , , J + 4))

       e = IIf(e > J + I - IIf(J > 4, J, 4), J + I - IIf(J > 4, J, 4), e)

       For K = b To e

       mun = RL(K * + I + J - K)

       If mun < 6 Then Gen = Gen + mun * 2 ^ mun

       If mun > 5 And mun Mod 6 = 0 Then mun = mun \ 6 - 1: Gen = Gen - mun * 2 ^ mun

       RL(K * + I + J - K) = RL(K * + I + J - K) + Piece

       mun = RL(K * + I + J - K)

       If mun < 6 Then Gen = Gen - mun * 2 ^ mun

       If mun > 5 And mun Mod 6 = 0 Then mun = mun \ 6 - 1: Gen = Gen + mun * 2 ^ mun

       Next K

       '捺线影响

       b = IIf(I - 4 > 0, I - 4, 0)

       e = IIf(I > , , I)

       b = IIf(b > I - J + IIf(J - 4 > 0, J - 4, 0), b, I - J + IIf(J - 4 > 0, J - 4, 0))

       e = IIf(e > I - J + IIf(J > , , J), I - J + IIf(J > , , J), e)

       For K = b To e

       mun = LR(K * - I + J + K)

       If mun < 6 Then Gen = Gen + mun * 2 ^ mun

       If mun > 5 And mun Mod 6 = 0 Then mun = mun \ 6 - 1: Gen = Gen - mun * 2 ^ mun

       LR(K * - I + J + K) = LR(K * - I + J + K) + Piece

       mun = LR(K * - I + J + K)

       If mun < 6 Then Gen = Gen - mun * 2 ^ mun

       If mun > 5 And mun Mod 6 = 0 Then mun = mun \ 6 - 1: Gen = Gen + mun * 2 ^ mun

       Next K

       End Function

       '是否存在三子一线（可发展成五子联线）

       Function linethree(Piece As Integer) As Integer

       Dim mun As Integer

       linethree =

       '三子一线

       mun = Piece * 3

       For I = 0 To

       If H(I) = mun Then

       If Grid(I) = 0 Then

       If I Mod < Then

       If Grid(I + 5) = 0 Then

       For K = 1 To 4

       If Grid(I + K) = 0 Then

       Tb(0) = I + K

       Tb(1) = I

       Tb(2) = I + 5

       linethree = Tb(0)

       Exit Function

       End If

       Next K

       End If

       End If

       End If

       End If

       If V(I) = mun Then

       If Grid(I) = 0 Then

       If (I \ ) < Then

       If Grid(I + ) = 0 Then

       For K = 1 To 4

       If Grid(I + K * ) = 0 Then

       Tb(0) = I + K *

       Tb(1) = I

       Tb(2) = I +

       linethree = Tb(0)

       Exit Function

       End If

       Next K

       End If

       End If

       End If

       End If

       If RL(I) = mun Then

       If Grid(I) = 0 Then

       If (I \ ) < And I Mod > 4 Then

       If Grid(I + ) = 0 Then

       For K = 1 To 4

       If Grid(I + K * ) = 0 Then

       Tb(0) = I + K *

       Tb(1) = I

       Tb(2) = I +

       linethree = Tb(0)

       Exit Function

       End If

       Next K

       End If

       End If

       End If

       End If

       If LR(I) = mun Then

       If Grid(I) = 0 Then

       If (I \ ) < And I Mod < Then

       If Grid(I + ) = 0 Then

       For K = 1 To 4

       If Grid(I + K * ) = 0 Then

       Tb(0) = I + K *

       Tb(1) = I

       Tb(2) = I +

       linethree = Tb(0)

       Exit Function

       End If

       Next K

       End If

       End If

       End If

       End If

       Next I

       End Function

       Private Sub munHelp_Click() '帮助

       lblHelp.Visible = True

       End Sub