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
끝 서브
컨테이너 안에서 움직이려면 원을 조종해야 합니다
비공개 하위 명령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 + ",");
}
비공개 하위 명령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 중국어 웹사이트의 기타 관련 기사를 참조하세요!