vb程序设计

Dim gsxx As String

Private Sub Check1_Click()

If Check1.Value = 1 Then

Label1(2).Visible = True

Text1(1).Visible = True

Else

Label1(2).Visible = False

Text1(1).Visible = False

End If

End Sub

Private Sub Check2_Click()

If Check1.Value = 1 Then

Label1(3).Visible = True

Text1(2).Visible = True

Else

Label1(3).Visible = False

Text1(2).Visible = False

End If

End Sub

Private Sub Combo1_Click()

Dim t As String, s As String, b() As String, n As Long, m As Long

t = Combo1.Text

n = InStr(gsxx, t)

' MsgBox n

If n > 0 Then

s = Right(gsxx, Len(gsxx) - n)

m = InStr(s, vbCrLf)

s = Left(s, m)

If InStr(s, "|") > 0 Then

b() = Split(s, "|")

Text1(0) = b(1)

Text1(1) = b(2)

Text1(2) = b(3)

End If

End If

End Sub

Private Sub Form_Load()

Dim j As Long

gsxx = "请选择歌手|||" & vbCrLf

gsxx = gsxx & "张韶涵|北京|金牛|亲爱的那不是爱情" & vbCrLf

gsxx = gsxx & "张惠妹|台湾|狮子|你在看我吗" & vbCrLf

Label1(0) = "姓名"

Label1(1) = "地区"

Label1(2) = "星座"

Label1(3) = "热门金曲"

Combo1.AddItem "请选择歌手"

Combo1.AddItem "张韶涵"

Combo1.AddItem "张惠妹"

Combo1.ListIndex = 0

For j = 0 To Text1.Count - 1

Text1(j) = ""

Next

Check1.Caption = "星座"

Check2.Caption = "热门金曲"

Label1(2).Visible = False

Label1(3).Visible = False

Text1(1).Visible = False

Text1(2).Visible = False

End Sub

那天，高手给我留下深奥的VB代码.

我也是在网上找的 有简单的 你先看看这个吧

package 星座;

import java.awt.BorderLayout;

import java.awt.FlowLayout;

import java.awt.event.ActionEvent;

import java.awt.event.ActionListener;

import java.util.Calendar;

import javax.swing.JButton;

import javax.swing.JFrame;

import javax.swing.JLabel;

import javax.swing.JPanel;

import javax.swing.JTextField;

public class Constellation implements ActionListener{

private JFrame frame = null;

private JTextField year = null;

private JTextField month = null;

private JTextField day = null;

private JLabel label1 = null;

private JLabel label2 = null;

private JLabel label3 = null;

private JPanel panel1 = null;

private JPanel panel2 = null;

private JButton button = null;

private JTextField output = null;

public static final String[] zodiacArr = {

为什么在第一个文本框里面输入的东西就是指”mymonth”

而在第二个文本框里输入的东西就是指"myday"

这两个是"形参"

mystar(long a,long b) 方法 在以下位置被调用:

Label3.Caption = mystar(CLng(Val(Text1(0).Text)), CLng(Val(Text1(1).Text)))

Text1(0).Text [第一个文本框的值]

Text1(1).Text [第二个文本框的值]

被用做了mystar 方法的参数 .

返回一个 string 型的值

百科狗 baikegou.com