VB 창에서 원을 그리고 다양한 xy 입력을 통해 원의 위치를 변경하고 키보드를 통해 원의 움직임을 제어합니다.

VB는 창에 원을 그리고 다른 xy를 입력하여 원의 좌표를 변경하고 원이 키를 받도록 합니다

Private Sub Picture1_KeyDown(KeyCode는 정수, Shift는 정수)

KeyCode = vbKeyRight이면

그림1.왼쪽 = 그림1.왼쪽 + 100

끝나면

KeyCode = vbKeyLeft 그렇다면

Picture1.Left = Picture1.Left - 100

끝나면

끝 서브

Private Sub Picture1_MouseDown(정수로 버튼, 정수로 Shift, X로 단일, Y로 단일)

사진1.원(X,Y), 300

끝 서브

컨테이너 안에서 움직이려면 원을 조종해야 합니다

폼을 클릭하면 x y z 3개의 숫자를 입력하는 프로그램을 작성하세요. 그러면 작은 것부터 큰 것 순서대로 폼에 표시됩니다

비공개 하위 명령1_Click()

a를 정수로, b를 정수로, c를 정수로 Dim

Dim max를 정수로, min을 정수로

a = Val(InputBox("첫 번째 정수를 입력하세요", "입력"))

b = Val(InputBox("두 번째 정수를 입력하세요", "입력"))

c = Val(InputBox("세 번째 정수를 입력하세요", "입력"))

최대 = a

b >max이면 max = b

c >max이면 max = c

분 =

b라면 c

최대, a + b + c - 최대 - 최소, 최소 인쇄

끝 서브

텍스트 상자에서 일련의 양수 문자를 무작위로 입력하도록 창 양식 응용 프로그램을 설계합니다.

서식 있는 텍스트 상자를 만들고 123, 45, 67, 89와 같이 쉼표 ","로 구분된 정수를 입력한 다음

정렬 버튼 코드

private void 버튼1_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("rn 작은 것부터 큰 것 순으로 정렬: rn");

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

}

Visual Basic 프로그래밍 1 프로그램 실행 후 자동으로 창 최대화 2 양식 제목 xxxxxx

비공개 하위 명령1_Click()

끝

끝 서브

비공개 서브폼_클릭()

n = CInt(InputBox("홀수를 입력하세요", "데이터를 입력하세요"))

인쇄

For i = 1 To n

인쇄 탭(51 - i);

j = 1 대 2 * i - 1

인쇄 자르기(Str(n Mod 10));

다음제이

인쇄

다음엔 나

For i = n - 1 대 1 단계 -1

인쇄 탭(51 - i);

j = 1에서 2 * i - 1

인쇄 자르기(Str(n Mod 10));

다음제이

인쇄

다음엔 나

끝 서브

비공개 하위 양식_Load()

Me.FontSize = 19

Label1.FontSize = 19

Me.WindowState = 2

Me.Caption = "xxxxxx"

Label1.Caption = "xxxx"

끝 서브

위 내용은 VB 창에서 원을 그리고 다양한 xy 입력을 통해 원의 위치를 변경하고 키보드를 통해 원의 움직임을 제어합니다.의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!