VB ウィンドウに円を描き、さまざまな xy 入力を通じて円の位置を変更し、キーボードを通じて円の動きを制御します。

VB はウィンドウ内に円を描き、別の xy を入力して円の座標を変更し、その円がキーを受け取るようにします。

プライベートサブピクチャー1_KeyDown(整数としてのキーコード、整数としてのシフト)

KeyCode = vbKeyRight の場合

写真 1.左 = 写真 1.左 100

終了の場合

If KeyCode = vbKeyLeft then

写真 1.左 = 写真 1.左 - 100

終了の場合

エンドサブ

Private Sub Picture1_MouseDown(整数としてのボタン、整数としてのシフト、単一としての X、単一としての Y)

写真 1.円 (X, Y)、300

エンドサブ

コンテナ内で移動するにはサークルを制御する必要があります

フォームをクリックすると 3 つの数値 x y z を入力し、小さい値から大きい値の順にフォームに表示するプログラムを作成してください。

プライベートサブコマンド1_Click()

Dim a を整数として、b を整数として、c を整数として

Dim max を整数として、min を整数として

a = Val(InputBox("最初の整数を入力", "入力"))

b = Val(InputBox("2番目の整数を入力してください", "入力"))

c = Val(InputBox("3番目の整数を入力してください", "入力"))

最大 = a

If b >max then max = b

If c >max then max = c

分 = a

b の場合 c

最大、 a b c - 最大 - 最小、最小を出力

エンドサブ

テキスト ボックスから一連のポジティブ文字をランダムに入力するウィンドウ フォーム アプリケーションを設計します。

リッチ テキスト ボックスを作成し、123、45、67、89 などの整数をカンマ「,」で区切って入力し、その後に

ソートボタンコード

private void button1_Click(オブジェクト送信者, EventArgs e)

{

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

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

{

MessageBox.Show("入力データが正しくありません!");

＃＃＃戻る;＃＃＃

}

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

int[] lint = 新しい int[strs.Length];

for (int i = 0; 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

プライベートサブコマンド1_Click() ＃＃＃終わり＃＃＃

エンドサブ

プライベートサブフォーム_Click()

n = CInt(InputBox("奇数を入力してください", "データ入力"))

印刷

For i = 1 to n

印刷タブ(51 - i);

j = 1 から 2 * i - 1

の場合

印刷トリム(Str(n Mod 10));

次のj

印刷

次のi

For i = n - 1 から 1 ステップ -1

印刷タブ(51 - i);

j = 1 から 2 * i - 1

の場合

印刷トリム(Str(n Mod 10));

次のj

印刷

次のi

エンドサブ

プライベートサブフォーム_Load()

Me.FontSize = 19

Label1.FontSize = 19

Me.WindowState = 2

Me.Caption = "xxxxxx"#​​

##Label1.Caption = "xxxx"#​​

##エンドサブ

以上がVB ウィンドウに円を描き、さまざまな xy 入力を通じて円の位置を変更し、キーボードを通じて円の動きを制御します。の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。