질문 1:
지원자의 폴더에 프로젝트 파일 sjt5.vbp가 있습니다. Text1이라는 이름의 텍스트 상자도 있습니다. 그림과 같이 C1과 C2이고 제목은 각각 "계산"과 "저장"입니다. 그리고 프로그램에서 직접 호출할 수 있는 함수 프로시저 isprime이 있습니다. 이 함수는 매개변수 a가 소수인지 여부를 확인하는 것입니다. 이 함수는 소수이면 True를 반환하고 그렇지 않으면 False를 반환합니다. 런타임 중에 "계산" 버튼을 클릭하면 18000보다 작은 가장 큰 소수가 검색되어 Text1에 표시되도록 적절한 이벤트 프로시저를 작성하십시오. "저장" 버튼을 클릭하면 계산 결과가 Text1에 저장됩니다. out5.txt 파일을 후보자 폴더에 넣어주세요.
이 질문에는 두 가지 주요 테스트가 있는데, 하나는 루프이고 다른 하나는 파일 액세스입니다.
18000보다 작은 가장 큰 소수를 찾고, 소수를 판단하는 기능도 주셨기 때문에 18000 이하를 찾는데도 루프를 이용하면 됩니다. 찾지 못하면 1을 빼고 찾은 레코드는 Text1.Text에 있으며 GoTo 구조 및 Exit For 등의 구조에서 종료하는 것은 현대화된 프로그램에서 더 이상 권장되지 않습니다.
질문 2:
지원자의 폴더에 프로젝트 파일 sjt4.vbp가 있습니다. 양식에는 이미 Text1 및 Text2라는 두 개의 텍스트 상자가 있습니다. "OK"라는 제목의 C1이라는 이름의 "Boys" 및 "Girls"라는 제목의 두 개의 라디오 버튼을 그립니다. 제목은 각각 "Sports"와 "Music"입니다. . 런타임 중에 "확인" 버튼을 클릭한 후 다음 요구 사항이 달성될 수 있도록 적절한 이벤트 프로시저를 작성하십시오.
1) 선택한 라디오 버튼에 따라 "나는 소년입니다" 또는 "나는 소년입니다"를 표시합니다. 나는 남자입니다." 텍스트 1의 "나는 여자입니다."
2) 선택한 체크박스에 따라 "내 취미는 스포츠", "내 취미는 음악", "내 취미는 스포츠 음악"이 Text2에 표시됩니다. 그림과 같습니다.
참고: 해당 프로그램과 기존 컨트롤의 속성을 수정해서는 안 됩니다. 프로그램을 종료하기 전에 하나의 라디오 버튼과 최소한 하나의 확인란을 선택하고 "확인" 버튼을 클릭해야 합니다. 프로그램을 종료하려면 양식 오른쪽 상단에 있는 닫기 버튼을 사용해야 합니다. 그렇지 않으면 점수가 없습니다.
분석: 라디오 버튼 OptionButton과 선택 상자의 간단한 적용 CheckBox OptionButton 컨트롤과 CheckBox 컨트롤은 비슷한 기능을 가지고 있지만 둘 사이에는 중요한 차이점도 있습니다. OptionButton을 선택하면 동일한 그룹의 다른 OptionButton 컨트롤이 자동으로 비활성화됩니다. 대신 CheckBox 컨트롤을 원하는 만큼 선택할 수 있습니다.
이 점에 주의하면 이 질문은 C1_Click 이벤트에서 선택 상태를 결정할 수 있습니다. OptionButton의 값은 선택을 의미하며 CheckBox의 값 = 1은 선택을 나타냅니다.
질문 3:
Form1이라는 양식에 L1이라는 레이블을 그립니다. 레이블에는 "비밀번호를 입력하세요"라고 표시되고 레이블 오른쪽에 텍스트가 표시됩니다. 상자 이름은 Text1이고 너비와 높이는 각각 2000과 300입니다. 비밀번호를 입력할 때 "*" 문자가 텍스트 상자에 표시되도록 적절한 속성을 설정합니다. 위와 같이 "비밀번호 창"으로 설정합니다. 이러한 설정은 속성 창에서만 설정할 수 있으며 런타임 형식은 그림과 같습니다. *참고: 저장 시 반드시 응시자 폴더에 저장되어야 합니다. 프로젝트 파일명은 sjt1.vbp, 폼 파일명은 sjt1.frm입니다.
분석: 생성된 객체의 속성을 설정합니다. 속성 창(선택 시 [F4]를 눌러 호출)은 모든 양식 개체의 속성을 설정하는 쉬운 방법을 제공합니다. "보기" 메뉴에서 "속성 창" 명령을 선택하거나 도구 모음에서 "속성 창" 버튼을 클릭하거나 컨트롤의 상황에 맞는 메뉴를 사용하여 속성 창을 열 수 있습니다. 이 문제에서는 Text1의 PasswordChar 속성을 *로 설정하여 비밀번호 상자를 설정해야 합니다.
질문 4:
지원자의 sjt3 폴더에 프로젝트 파일이 있습니다. vbp, 양식에 이미 레이블 L1이 있습니다. 세 개의 라디오 버튼을 포함하여 Op1이라는 라디오 버튼 배열을 그려주세요. 해당 인덱스 속성은 각각 0, 1, 2이고 제목은 "비행기"입니다. train", "car"를 선택한 다음 Text1이라는 텍스트 상자를 그립니다. Op1의 Click 이벤트 프로세스가 폼 파일에 나와 있지만 불완전합니다. 프로그램에서 주석을 제거하고 프로그램에서 ?를 교체해야 합니다. 런타임 시 "비행기" 또는 "기차" 라디오 버튼을 클릭하면 "자동차" 라디오 버튼을 클릭할 때 "I go by plane" 또는 "I go by train"이 Text1에 표시되도록 올바른 내용으로 변경합니다. 그러면 그림과 같이 Text1에 "I'm Going by car"가 표시됩니다. 참고: 프로그램의 다른 부분은 수정할 수 없습니다. 마지막으로 수정된 파일을 원본 파일 이름으로 저장합니다.
이 질문은 OptionButton 컨트롤에 대한 이해를 테스트합니다. OptionButton 컨트롤은 선택 여부를 결정하는 데 사용되는 옵션을 표시합니다. 그렇지 않으면 False입니다.
일반적으로 OptionButton 컨트롤을 사용할 때 대부분의 사람들은 컨트롤 배열을 사용하는 것을 선호합니다. 첫 번째 질문에서 Select Cas 문은 표현식의 값을 기반으로 여러 문 그룹 중 하나를 실행하도록 결정합니다. 후속 설명에 따르면 전환은 사용자가 선택한 OptionButton에 따라 수행되어야 함을 알 수 있습니다. 이는 여기와 두 번째 Index에서 얻을 수 있습니다. 공백. OptionButton 배열이 처음부터 시작한다는 점만 알면 Op1(1)이 "트레인"이라는 것을 판단하는 것은 어렵지 않습니다.
질문 5:
지원자의 폴더에 프로젝트 파일 sjt5.vbp가 있고 양식에
P1이라는 이름의 그림 상자가 두 개 있습니다. P2는 신호등과 자동차를 각각 나타내는 데 사용되며 "yellow light.ico", "red light.ico" 및 "green light.ico" 파일이 P1에 차례로 로드되어 신호등 전환을 구현합니다. ; 타이머 1과 타이머 2도 있습니다. 타이머 1은 신호등을 변경하는 데 사용되며, 노란색 표시등은 1초, 빨간색 표시등은 2초, 녹색 표시등은 3초로 차량을 제어하는 데 사용됩니다. 왼쪽으로. 달리는 동안 '주행' 버튼을 누르면 신호등이 계속 바뀌는 현상이 발생합니다. 자동차가 움직이기 시작하면 신호등 앞이나 아래에서 빨간색이나 노란색 신호등을 만나면 신호등이 녹색으로 바뀌면 움직이지 않고 계속 움직입니다. 모든 컨트롤과 프로그램이 양식에 제공되었지만 프로그램이 불완전합니다.
프로그램을 읽고 프로그램에서 주석을 제거하고 프로그램에서 ?를 교체해야 합니다. 위의 기능을 수행할 수 있도록 올바른 내용으로 변경하십시오. 단, 프로그램의 다른 부분을 수정하거나 컨트롤의 속성을 수정할 수는 없습니다. 마지막으로 수정된 파일을 원래 파일 이름으로 저장합니다.
이 질문에는 세 가지 이벤트가 포함됩니다.
시작 버튼 C1_Click을 클릭하면 자동차가 시동되기 시작합니다. 질문을 통해 자동차의 시동이 Timer2에 의해 제어된다는 것을 알 수 있습니다. 여기서 Timer2를 시작해야 하므로 Timer2 .Enable=True를 입력합니다.
신호등은 Timer1 이벤트 Timer1_Timer에서 P1.Picture의 이미지가 시간 a에 따라 교체됩니다. 신호등 변환 효과 다른 신호등이 이미 존재하는 것을 확인하면 여기에 입력하세요. "green light.ioc"를 입력하는 것은 간단한 선택이므로 주의 깊게 분석한 후 3초 동안 녹색 신호등을 채워야 합니다.
< p>마지막은 Timer2에 의해 작동되는 것으로 알려진 자동차의 움직임입니다. Timer2_Timer 자동차를 이동하려면 그림의 Move 메서드를 사용하여 오른쪽으로 평행하게 이동한 후 Left 값을 변경합니다. 그림 1에서. 그것을 달성하려면 여기를 떠나세요.Timer 컨트롤과 Picture 컨트롤의 기타 속성, 메서드 및 이벤트에 대한 관련 정보를 참조하세요.
질문 6:
지원자 폴더에 프로젝트 파일 sjt5.vbp가 있습니다. 양식에 프레임 두 개를 그려주세요. 이름은 F1과 F2이고 제목은 They입니다. 각각 '교통'과 '목표 달성'입니다. F1에 Op1과 Op2라는 두 개의 라디오 버튼을 그리고 각각 "Plane"과 "Train"이라는 제목을 그립니다. F2에 Op3 및 Op4라는 두 개의 라디오 버튼을 그리고 각각 "Guangzhou" 및 "Kunming"이라는 제목을 그립니다. Text1이라는 텍스트 상자를 그립니다. 적절한 이벤트 프로시저를 작성하십시오. 프로그램 실행 후, 서로 다른 라디오 버튼을 선택할 때 생성되는 표시 결과는 아래 표와 같습니다.
프로그램 실행 상태는 그림과 같습니다. 저장시 프로젝트 파일명은 sjt5.vbp, 폼 파일명은 sjt5.frm 입니다.
라디오 버튼의 값 속성:
값 속성은 라디오 버튼의 상태를 나타내는 데 사용되며 값이 True인 경우 두 가지 값을 가질 수 있습니다. , 라디오 버튼 "켜짐"이면 버튼 중앙에 점이 있고, 값이 False이면 라디오 버튼은 "꺼짐"이고 버튼은 원입니다.
라디오 버튼의 값 속성을 설정하는 구문은 다음과 같습니다.
라디오 버튼 이름.값 = True(-1) 또는 False(0)
Value 속성은 라디오버튼의 기본속성이므로 속성값 설정시 속성명을 생략할 수 있다.
해결책:
프로젝트 파일 sjt5.vbp를 열고 도구 상자에서 프레임 제어 아이콘을 클릭한 다음 양식에서 두 프레임을 끌어서 속성 창을 통해 별도로 설정합니다. Name 속성은 "F1"과 "F2"이고 Caption 속성은 "Transportation"과 "Arrival Target"입니다.
도구 상자에서 OptionButton 컨트롤 아이콘을 클릭한 다음 F1에서 두 개의 라디오 버튼을 끌어서 속성 창을 통해 이름 속성을 "Op1" 및 "Op2"로 설정하고 Caption 속성을 "비행기"로 설정합니다. " "와 "기차".
도구 상자에서 OptionButton 컨트롤 아이콘을 클릭한 다음 F2에서 두 개의 라디오 버튼을 끌어서 속성 창을 통해 이름 속성을 "Op3" 및 "Op4"로 설정하고 Caption 속성을 "Guangzhou"로 설정합니다. "" 및 "쿤밍".
도구 상자에서 TextBox 컨트롤 아이콘을 클릭한 다음 양식에서 텍스트 상자를 드래그합니다.
코드 창을 열고 다음 코드를 입력하세요:
Private Sub Form_Click()
If Op1.Value = True Then
If Op3.Value = True Then
Text1.Text = "비행기로 광저우로 이동"
ElseIf Op4.Value = True Then
Text1.Text = "쿤밍으로 비행기 탑승"
End If
ElseIf Op2.Value = True Then
If Op3.Value = True Then
< p> Text1. Text = "광저우까지 기차를 타고"ElseIf Op4.Value = True Then
Text1.Text = "쿤밍까지 기차를 타고"
< p> End IfEnd If
End Sub
질문 7:
후보자의 프로젝트 파일 sjt6.vbp가 있습니다. 폴더를 클릭하세요. 본문에 텍스트 상자 3개를 그려주세요. 이름은 Text1, Text2, Text3 입니다. 텍스트 상자의 내용은 각각 "성적 시험", "컴퓨터"로 설정되어 있으며 공백입니다. 그런 다음 이름이 Op1 및 Op2이고 제목이 각각 "Exchange" 및 "Connect"인 두 개의 라디오 버튼을 그리고(그림 참조) 적절한 이벤트 프로시저를 작성합니다. 프로그램이 실행된 후 "Exchange" 라디오 버튼을 선택하고 Text3 텍스트 상자를 클릭하면 Text1 텍스트 상자의 내용이 Text2 텍스트 상자의 내용과 교환되고 "Exchange Success"가 표시됩니다. Text3 텍스트 상자, "연결"을 선택하고 "Text3 텍스트 상자를 클릭하면 Text1과 Text2의 내용이 Text1과 Text2의 순서로 연결되어 연결된 내용이 Text3 텍스트 상자에 표시됩니다. . 저장시 프로젝트 파일명은 sjt6.vbp, 폼 파일명은 sjt6.frm 입니다.
해결책:
프로젝트 파일 sjt6.vbp를 열고 도구 상자에서 TextBox 컨트롤 아이콘을 클릭한 다음 양식에서 세 개의 텍스트 상자를 끌어서 속성 창을 사용하여 설정합니다. Text 속성을 "Grade Exam", "Computer" 및 ""로 설정합니다.
도구 상자에서 OptionButton 컨트롤 아이콘을 클릭한 다음 양식에서 두 개의 라디오 버튼을 끌어서 속성 창을 통해 이름 속성을 "Op1" 및 "Op2"로 설정하고 Caption 속성을 " 교환'과 '연결'.
코드 창을 열고 다음 코드를 입력하세요:
Private Sub Text3_Click()
If Op1.Value Then
Text1. Text = "컴퓨터"
Text2.Text = "레벨 시험"
Text3.Text = "교환 성공"
Else
Text3 .Text = Text1.Text Text2.Text
End If
End Sub
질문 8:
Form1 형식 Text1이라는 텍스트 상자를 그리고 각각 "Show" 및 "Exit"라는 제목의 C1 및 C2라는 두 개의 명령 단추
를 그리고 적절한 이벤트 프로시저를 작성합니다.
프로그램 실행 후 양식이 로드될 때 "종료" 버튼을 사용할 수 없도록 설정합니다. "표시" 버튼을 클릭하면 텍스트 상자에 "시험 성적"이 표시되고, "종료" 버튼을 사용할 수 있습니다. "종료" 버튼을 클릭하면 프로그램이 종료되며, 프로그램 실행 상태는 그림과 같습니다.
해결 방법:
Form1이라는 새 양식을 만들고 도구 상자에서 CommandButton 컨트롤 아이콘을 클릭한 다음 양식에서 두 개의 명령 버튼을 끌어서 속성을 사용합니다. 이름 속성을 "C1" 및 "C2"로 지정하고 Caption 속성을 각각 "Display" 및 "Exit"로 지정합니다.
도구 상자에서 TextBox 컨트롤 아이콘을 클릭한 다음 양식에서 텍스트 상자를 드래그합니다.
코드 창을 열고 다음 코드를 입력하세요:
Private Sub C1_Click()
C2.Enabled = True
Text1. Text = "레벨 시험"
End Sub
Private Sub C2_Click()
End
End Sub
질문 9:
Form1의 형태에 명령 버튼을 그립니다. 이름은 C1이고 제목은 "Display"입니다. 그런 다음 텍스트 상자를 그립니다. 이름은 다음과 같습니다. Text1 , 적절한 이벤트 프로시저를 작성합니다. 프로그램이 실행된 후 폼이 로드되면 텍스트 상자가 보이지 않도록 합니다. 이때 폼을 두 번 클릭하면 텍스트 상자가 나타나고, 이때 명령 버튼을 클릭하면 텍스트 상자에 "Grade Exam"이 표시됩니다. 프로그램 작동은 그림에 나와 있습니다.
해결책:
Form1이라는 새 양식을 만들고 도구 상자에서 CommandButton 컨트롤 아이콘을 클릭한 다음 양식에서 명령 버튼을 끌어서 속성 창을 클릭합니다. 이름 설정 속성을 "C1"으로, 캡션 속성을 "디스플레이"로 설정합니다.
도구 상자에서 TextBox 컨트롤 아이콘을 클릭한 다음 양식에서 텍스트 상자를 드래그합니다.
코드 창을 열고 다음 코드를 입력하세요:
Private Sub C1_Click()
Text1.Text = "레벨 시험"
End Sub
Private Sub Form_DblClick()
Text1.Visible = True
End Sub
Private Sub Form_Load()
p >
Text1.Visible = False
End Sub
질문 10:
양식에 Text1이라는 이름의 텍스트 상자를 그립니다. 속성이 비어 있습니다. 이름이 C1이고 Visible 속성이 False인 다른 명령 단추를 그립니다. 사건의 적절한 과정을 쓰십시오. 프로그램이 실행된 후 텍스트 상자에 문자를 입력하면 명령 버튼이 나타납니다. 프로그램의 실행 상태가 그림에 표시됩니다.
해결책:
새 양식을 만들고 도구 상자에서 TextBox 컨트롤 아이콘을 클릭한 다음 양식에서 텍스트 상자를 끌어서 속성 창을 통해 Text 속성을 설정합니다. ".
도구 상자에서 CommandButton 컨트롤 아이콘을 클릭한 다음 폼에서 명령 버튼을 끌어서 속성 창을 통해 Name 속성을 "C1"으로, Visible 속성을 False로 설정합니다.
코드 창을 열고 다음 코드를 입력하세요:
Private Sub Text1_Change()
C1.Visible = True
End Sub < /p>
이 질문을 완료하려면 필요에 따라 파일을 저장하세요.