利控制

VB在窗口画个圆输入不同的xy能改变圆的坐标并且让圆受键

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyRight Then

Picture1.Left = Picture1.Left + 100

End If

If KeyCode = vbKeyLeft Then

Picture1.Left = Picture1.Left - 100

End If

End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Picture1.Circle (X, Y), 300

End Sub

你要控制你的圆在一个容器里面移动吧

编写程序单击窗体时输入3个数x y z按从小到大的顺序依次显示在窗体

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

Dim max As Integer, min As Integer

a = Val(InputBox（＂输入第1个整数＂， ＂Input＂）)

b = Val(InputBox（＂输入第2个整数＂， ＂Input＂）)

c = Val(InputBox（＂输入第3个整数＂， ＂Input＂）)

max = a

If b >max Then max = b

If c >max Then max = c

min = a

If b If c

Print max, a + b + c - max - min, min

End Sub

设计一个window窗体应用程序要从文本框中随机输入一系列的正

弄个richtextbox，输入的整数用逗号“，”隔开，比如123,45,67,89这样，然后

排序按钮代码

private void button1_Click(object sender, EventArgs e)

{

string str = richTextBox1.Text.Replace(＂ ＂,＂＂).TrimEnd(new char[]{','});

if (!string.IsNullOrEmpty(str.Trim((＂1234567890,＂).ToCharArray())))

{

MessageBox.Show（＂输入数据不正确！＂）；

return;

}

string[] strs = str.Split(new char[] { ',' });

int[] lint = new int[strs.Length];

for (int i = 0; i < lint.Length; i++)

lint[i] = int.Parse(strs[i]);

Array.Sort(lint);

richTextBox1.AppendText(＂\r\n从小到大排序为：\r\n＂);

foreach (int i in lint) richTextBox1.AppendText(i + ＂,＂);

}

Visual Basic程序设计 1程序运行后自动最大化窗口 2窗体标题xxxxxx

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Click()

n = CInt(InputBox（＂请输入一个奇数＂， ＂数据输入＂））

Print

For i = 1 To n

Print Tab(51 - i);

For j = 1 To 2 * i - 1

Print Trim(Str(n Mod 10));

Next j

Print

Next i

For i = n - 1 To 1 Step -1

Print Tab(51 - i);

For j = 1 To 2 * i - 1

Print Trim(Str(n Mod 10));

Next j

Print

Next i

End Sub

Private Sub Form_Load()

Me.FontSize = 19

Label1.FontSize = 19

Me.WindowState = 2

Me.Caption = ＂xxxxxx＂

Label1.Caption = ＂xxxx＂

End Sub