>컴퓨터 튜토리얼 >컴퓨터 지식 >VB 창에서 원을 그리고 다양한 xy 입력을 통해 원의 위치를 ​​변경하고 키보드를 통해 원의 움직임을 제어합니다.

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

PHPz
PHPz앞으로
2024-01-23 21:54:23633검색

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 중국어 웹사이트의 기타 관련 기사를 참조하세요!

성명:
이 기사는 docexcel.net에서 복제됩니다. 침해가 있는 경우 admin@php.cn으로 문의하시기 바랍니다. 삭제