二级vb上机题库

二级vb上机题库 ????????????????????????????????※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,01 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上一名题窗体画个称的文本～其高、题分题题框1Form1Text1 、。题在性中题置适的性题足以下要求,属框当属4002000 ,的字题“黑”～字题“四”～体体号号1Text1 ,的题题题“题入”～不题示最大化按题和最小化按题。窗体2 运窗体行后的如题所示。 注意, 存题题必题存放在考生文件题下～ 工程 路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理 文件名题～文件窗体sjt1.vbp 名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本控件～通题其性口名题题窗体画个框属窗将称～高;属性,题题～题Text1Height400;Width 属性,题题～点题属体框将体体号性在题出的字题题中字题题“黑”～大小题题“四题”。激2000Font 活Form1 窗体属窗将～通题其性口题题;属性,题题“题入”～最大化按题;属性,题题CaptionMaxButton ～最小False 化按题;属性,题题。MinButtonFalse 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一名题窗体画个称的题象～利用性口框属窗装2Form1Image1 入考生目题下的题象文件 ～题置适性使其中的题象可以并当属pic1.bmp 适题题象大小～再命令按题～名分题题框画两个称、～Command1Command2题题分题题“向右移题”、“向下移题”。题题适的事件题程～ 使写当 得在行题～每题题“向右移题”按题一次～题象向右移题运框～每题100 题“向下移题”按题一次～题象向下移题框。行题的如题所示。运窗体100 要求程序中不得使用题量～事件题程中只能一题句。写条 注意, 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp 名题。sjt2.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教2 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题象控件～通题其性口名题题窗体画个框属窗将称～通题其属将性Image1Picturepic1.jpg 装入题 片～框属性题题。二命令按题控件～通题其性口名分题题题画个属窗将称StretchTrue 、～题Command1Command2 题;属性,题题“向右移题”、“向下移题”。Caption 题题“向右移题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command1_Click()Image1.Left = Image1.Left + 100End Sub 题题“向下移题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command2_Click()Image1.Top = Image1.Top + 100End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.frxsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生目题下有一工程文件个～上有一题和一直题;直窗体个条1sjt3.vbp 题的名题称,成一题表的题案～有命令按题～名分题题构个两个称Line1 、～题题分题题“题始”、“停止”～题有一名题个Command1Command2 的题题器。程序行题～题表指题不题～题题“题始”按题～题题运Timer1 表上的指题;即,题始题题题旋题;每秒题～一分题题一圈,～Line16? 题题“停止”按题～题指题停止旋题。行题的如题所示。运窗体 题题置题题器的适性～使得每秒激活题题器的当属事件一次～题并Timer写两个按题的事件题程。Click 文件中已题题出了所有控件和部分程序～不得修改已有程序和其控件它的性～题的事件题程中不得使用题量～且只能一题句。最后把属写写条 修改后的文件按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教3 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的控件不完整～通题其性口题题器的窗体属窗将属性题题～属EnabledFalseInterval 性题题 。1000 题题“题始”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command1_Click()Timer1.Enabled = True End Sub 题题“停止”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command2_Click()Timer1.Enabled = False End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～上有文本、三题窗体两个框个2sjt4.vbp题按题和一命令按题。行题～在个运中题入若干大和小字母～个写写Text1 并个题中一题题按题～再题题“题题”按题～题按题中的题题按题的题题题行题题～题果放入;如题所示,。Text2 在题出的文件中已题题出了全部控件～但程序不完整～要求,去掉程窗体 序中的注题符～把程序中的 ,改题正的容。确内 注意, 不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在命令按题的窗体事件题程中～有Private Sub Command1_Click() 三题地方需 要修改。 将题句1) 'a = Mid$(Text1.Text, ? , 1)改题 a = Mid$(Text1.Text, k, 1) 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教4 将题句2) 'ch = ch + ? 改题 ch = ch + LCase(a) 将题句3) 'Text2 = ? 改题 Text2 = ch 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生目题下有一工程文件个。中已题题出了所有控件;如题窗体sjt5.vbp 所示,。题题适的事件题程完成以下功能,题题“题”按题～题把考写当数 生目题下的文件中的一整放入个数～题题“题算”按题～题题in5.txtText1 算出大于题的第数个数并素～题示在中～题题“存题”按题～题把找1Text2 到的素存到考生目题下的数文件中。out5.txt 注意, 在题束程序行之前～必题题题“存题”按题～把题果存入运文件～out5.txt否题无成题。最后把修改后的文件按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“题算”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command2_Click()a% = CInt(Text1.Text) Do a% = a% + 1 Loop Until isprime(a%) Text2.Text = a% End Sub 函是判是否题素的～函中题句题,数断参数数数isprime Function isprime(a As Integer)Dim flag As Boolean k% = 2 flag = True While k% <= Int(a / 2) And flagIf a / k% = Int(a / k%) Thenflag = False End If 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教5 k% = k% + 1 Wend isprime = flag End Function 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,02 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上用名题窗体称的控件一题～其直题画个径1Form1Shape11500;题、高均题即,～题置适性～使口题题题“题”～并当属窗窗体1500 题题题上不题示最大化和最小化按题;如题所示,。 注意, 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp 名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上用窗体题形控件一～通题其性口名题题画个园属窗将称～高;属性,题ShapeShape1Height题～1500 题;属性,题题～属性题题。激活窗体属窗将～通题其性口题题;Width1500Shape3Form1Caption 属性,题题“题”～ 最大化按题;属性,题题～最小化按题;属性,题题。MaxButtonFalseMinButtonFalse参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的中建立一题出式菜题;程序行题不题示,～名窗体个运2Form1 称题～ 含菜题题～其名分题题两个称、～题题分题题“打fileopensave 题”、“存题”。题适的事件题程。程序行后～如果用鼠题右题写当运 题题～题题出此菜题;如题所示,。窗体 注意, 程序中不能使用题量。保存题必题存放在考生文件题下～工程文件名题～文件名题窗体sjt2.vbpsjt2.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教6 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上通题菜题题题器建立一主菜题～在菜题题题器的题题题题空～名题题入窗体个称～“可题”将file题题按题题题不题题。在题菜题下有二子菜题～在菜题题题器的题题题分题题入“打题”、“存题”～名状个 称题分题题入、。opensave 鼠题右题题题;行窗体即运事件题程,～在题事件题程中加入题句,MouseDownMouseDownPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu file End If End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生目题下有一工程文件个～上有一题合窗体个框～其1sjt3.vbpCombo1中已题题题了容～题有一文本内个框和三命令按题～名分题题个称Text1 、、～题题分题题“修改”、“定”、“添确Command1Command2Command3 加”。程序行题～“定”按题不可用～如题所示。运确 程序的功能是,在行题～如果题中题合中的一列表题～题题“修改运框个 ”按题～题把题题题制到中;可在中修改,～使“定”按并确Text1Text1 题可用～若题题“定”按题～ 题把修改后的确中的容替题题合内框Text1 中题列表题的原有容～同题使“定”按题不可用～若题题“添加”按内确 题～题把在中的容添加到题合中。内框Text1 所提供的文件已题题出了所有控件和程序～但程序不完整～题去掉程窗体 序中的注题符～把程序中的 , 改题正的容。但不能修改程序中的其确内 他部分～ 也不能修改控件的性。最后把修改后的文件按原文件名存题。属 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的控件不完整～通题性口“定”按题的窗体属窗将确属性题题。EnabledFalse由于所提供的程序不完整～在“修改”按题的窗体事件题程中～Private Sub Command1_Click() 有一题地 方需要修改。 将题句1) 'Command2. ? = True 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教7 改题 Command2.Enabled = True 在“定”按题的确事件题程中～有一题地方需要修改。Private Sub Command2_Click() 将题句1) 'Combo1.List( ? ) = Text1改题 Combo1.List(Combo1.ListIndex) = Text1 在“添加”按题的事件题程中～有一题地方需要修改。Private Sub Command3_Click() 将题句1) '? Text1 改题 Combo1.AddItem Text1 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.frxsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生目题下有一工程文件个～中的题题题分题表示题窗体两个条2sjt4.vbp 灯灯框亮和题亮的题题;秒,～移题题题可以题题题题～题题范题题1-10秒。题行题～题亮。题题“题始”按题题题始切题,题到题后自题运灯灯 题题～黄灯秒后题题题～题到题后自题题题～灯灯黄灯秒后题题题～灯11 如此切题;如题所示,。 所提供的文件已题题出了所有控件和程序～但程序不完整～题去掉程窗体 序中的注题符～把程序中的 ,改题正的容。确内 提示, 在三题片个框、、中分题放置了题亮、题灯picture1picture2picture3 灯黄灯并叠当个灯亮、亮的题题～重在一起～要使某亮题～就使相题的题片可题～而其他题片不可题～保持题定的题题～题题到就切题框框并 题一题片可题～其他题片不可题。另个框框 注意, 考生不得修改工程中已题存在的容和控件性～最后把修改后的文件内属 按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在命令按题的窗体中～有二题地方Private Sub Command1_Click() 需要修改。 将题句1) '? = HScroll1.Value 改题 red = HScroll1.Value 将题句2) 'Timer1.Enabled = ? 改题 Timer1.Enabled = True 由于所提供的程序不完整～在题题器的窗体中～有二题地方需要修Private Sub Timer1_Timer() 改。 将题句1) 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教8 '? .Visible = False 改题 Picture1.Visible = False将题句2) 'green = ? 改题 green = green - 1 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.frxsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER%在考生文件题下有一工程文件个～相题的文件是窗体;sjt5.vbpsjt5.frm 如题所示,。题程序的功能是, 题题“题”按题～题入考生文件题下数 文件中的一整～放入个数并中～ 题题“题算”按题～题题算in5.txtText1 小于题的最大素～题示在数数并中～题题“存题”按题～题把题素数Text2 保存到考生文件题下的文件中。out5.txt 要求, ,程序已题出“存题”按题的事件题程代题。“题”按题的事件题程数1 和判断是否是素的函数数;,不完整～题去掉注题～在,并xprimex 题上正的容～使程序完整。填确内 ,题“题算”按题的事件题程。题算小于写中据的最大素。数数2Text1,题不要改题上所有控件性题置及相题的题程代题。最后改题窗体属将3 后的程序用原文件名保存。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需添加事件题程。窗体 题行“题算”命令;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command2_Click()n = Val(Text1.Text) For i = n To 2 Step -1l = prime(i) If l = True Then Exit For End If Next Text2.Text = i End Sub 在“题”按题的数中～有一题地方需要修改。Private Sub Command1_Click()将题句1) 'Input #1, ? 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教9 改题 Input #1, a% 在函数中～有一题地方需要修改。Function prime(x) As Boolean将题句1) 'prime = ? 改题 prime = flag 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.txt题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,03 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上一名题窗体画个称～题题题“目的地”的架～框1Form1Frame1 在架中添加三题题～名题分题题框个框称、、～其题题Check1Check2Check3分题是“上海”、“州”、“巴黎”～其中“上海”题题中题～“广状广 州”题未题题～“巴黎”题灰色题～如题所示。题控件题置相题状状画并 属性。 注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt1.vbp 题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一架控件～通题其性口名题题窗体画个框属窗将称～题题;属性,题题“目的Frame1Caption地”。 在框画个框属窗将称架中三题题控件～通题其性口名题分题题题、、～题题F1Check1Check2Check3;属性,Caption 分题题题“上海”、“州”、“巴黎”～“上海”的广属性题题巴黎”的属性题题。Value1,“Value2参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一名题窗体画个称的题片～ 其题和高分题框2Form1Picture1 题、。题题适事件题程～使得在行题～题题题片～题写当运框装17001900 入考生目题下的题形文件～如题所示。题题题题片中的题窗体框pic1.bmp 形消失。要求程序中不得使用题量～每事件题程中只能一题句。个写条 注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt2.vbp 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教10 题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题片～通题其性口名题题窗体画个框属窗将称～题度;属性,题题～高Picture1Width1700度;Height 属性,题题。1900 题题题片;行框即运事件题程,～在事件题程中加入题句,ClickClickPicture1.Picture = ～考生目题下的题形文件即将装框窗体即运入题片中。题题;行LoadPicture("pic1.bmp")pic1.bmp 事件Click 题程,～在事件题程中加入题句,～题片中的题形消即框ClickPicture1.Picture = LoadPicture("") 失。 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生目题下有一工程文件个～文件中已题出所有控件和部窗体1sjt3.vbp 分程序～如题所示。 要求, ,利用性口题置适的性～使属窗当属、中据右题题～数1text1text2 ,题题适的程序完成以下功能,在写当中题入;度,～题题数2Text140 一题题按题～题题“题算”按题～题根据所题题的题题按题～ 题个 算出相题的正弦、余弦题;保留位小～第数位截去～取34π3.14159,～题示在并中。Text2 注意, 考生不得修改文件中已题存在的程序～在题束程序行之前～必题窗体运 题行一题题算～在中题入的必题是～ 必题用右上角的题题窗体Text140 按题题束程序～否题无成题。最后～程序按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm由于所提供的控件不完整～通题性口文本的题题格式;窗体属窗将框属性,均题题。Alignment1 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教11 由于所提供的程序不完整～需添加事件题程。窗体 题题“题算”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click() If Option1.Item(0) = True ThenText2.Text = Format(Sin(Val(Text1.Text) * 3.14159 / 180), "0.000") End If If Option1.Item(1) = True Then Text2.Text = Format(Cos(Val(Text1.Text) * 3.14159 / 180), "0.000") End If End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbwout3.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～上已题题出所有控件。程窗体2sjt4.vbp 序行题～题题“题始”按题～题汽题题题向右题～题题“停止”按题运运 题汽题停止题～移题题题上的题题～可以改题汽题的题速度;题运条框运 题向右移题～速度慢,。如题所示。框减 要求, 去掉程序中的注题符～把程序中的 ,改题正的容。确内 提示, 窗体个上有一题题器～题题器的事件题程每题行一次～汽题向右移题10～程序通题改题题题器控件的属来运性改题汽题的题速度。Interval 注意, 不得修改控件的性。最后～按原文件名存题。属 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在“题始”按题的窗体事件题程中～Private Sub Command1_Click() 有一题地 方需要修改。 将题句1) 'Timer1.Enabled = ? 改题 Timer1.Enabled = True 在题题的框事件题程中～有一题地方需要修改。Private Sub HScroll1_Change()将题句1) '?.Interval = HScroll1.Value改题 Timer1.Interval = HScroll1.Value在题题器的事件题程中～有一题地方需要修改。Private Sub Timer1_Timer()将题句1) 'Picture1.Left = ? + 10 改题 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教12 Picture1.Left = Picture1.Left + 10参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.frxsjt4.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 以下列,数～～～～～～～～…～的题律是第从个数题始～每11235813213 个数它两个数是前面之和。 在考生目题下有一工程文件个。中已题题出了所有控件～如题窗体sjt5.vbp 所示。题题适的事件题程题题以下功能,在写当中题入整数～题题Text140“题算”按题～题在中题示题列第数题的题～如果题题“存题”按Text240 题～题题算的第将题的题存到考生目题下的文件中。;提示,因40out5.txt数据题大～题使用型题量,Long 注意, 在题束程序行之前必题题题“存题”按题～把题果存入运文件～out5.txt否题无成题。最后把修改后的文件按原文件名存题。解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“题算”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command1_Click()Dim f1, f2, f As Long Dim a(40) As Long f1 = 1 f2 = 1 a(1) = f1 a(2) = f2 For i = 3 To Val(Text1.Text)f = f1 + f2 a(i) = f f1 = f2 f2 = f Next Text2.Text = a(40) End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第套,04 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教13 ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic;,在名题称的上一名题窗体画个称的题合～其题度题框～1Form1 Combo11200其题型如题所示;题题题合,。即框 要求, ,题按题中所示～通题性口题入“北京”、“上海”、“州”、属窗广1 “深”。圳 ,题置适的性～使得行题～的最大化按题和最小化按题消当属运窗体2 失。 注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt1.vbp题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题合控件～通题其性口名题题窗体画个框属窗将称～题;属性,题题Combo1Width ～属1200Style 性题题～向题合中添加题目;框属广性,～添加的题目分题题“北京”、“上海”、“州”、1List “深”～圳 每题目题一行。激活个窗体属窗将～通题其性口最大化按题;属性,题题～Form1MaxButtonFalse 最小化按题 ;属性,题题。MinButtonFalse 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.frxsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上文本～名分题题窗体画两个框称、～再画2Form1 Text1Text2两个称命令按题～名分题题、～题题分题题“左”、“Command1Command2 右”～题题。2 要求, 题适的事件题程～使得程序行题～题题“左”按题～题焦点位于写当运 上～题题“右”按题～题焦点位于上。Text1Text2 注意, 程序中不得使用题量～事件题程中只能一题句。写条 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt2.vbp题。sjt2.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教14 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上二文本控件～通题其性口名分题题题窗体画个框属窗将称和。二命令按题控画个Text1Text2件～通 题其性口名分题题题属窗将称、～题题;属性,分题题题“左”、“右”。Command1Command2Caption题题“左”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click()Text1.SetFocus End Sub 题题“右”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command2_Click()Text2.SetFocus End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生目题下有一工程文件个～上有一命令按题窗体个1sjt3.vbpCommand1;题题题“下一”,。个 要求, 在上建立一题题按题题窗体个数～含个题题按题～题题分题题Option14 “题题、“题题、“题题、“题题～初始题下～“题题状1”2”3”4” 题题中题。如题所示。 文件中已题题出了命令按题的状窗体1”Click事件题程～但不完整～ 题去掉程序中的注题符～把程序中的 ,改题正确内个的容～使得每题题命令按题一次～就题中下一题题按题～如果已题题中最后一题题按题～再题题命令按题～题题中第个个题题按题。1 注意, 不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的控件不完整～需在题上一题题按题控件～通题题题题按题控件的题制题生题题窗体窗体画个 按题控件题～共有四题题按题～题题;数个属性,分题题题“题题、“题题、“题题、“题Caption1”2”3”题～“题题”的属性题题。4”ValueTrue 由于所提供的程序不完整～在“下一”按题的窗体个事件题程Private Sub Command1_Click() 中～有三题 地方需要修改。 将题句1) 'For k = 0 To ? 改题 For k = 0 To 3 将题句2) 'n = ? 改题 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教15 n = k 将题句3) 'n = ? 改题 n = 0 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～上已题出所有控件。如窗体画2sjt4.vbp 题所示。在文本中题入一任意的字符串;要求串的题度?框个,～Text110然后题题题合中的 框个运将截取算题题之一。题题“题算”按题～截取3 运算后的题果题示在中。Text2 窗体文件中已题题出了程序～但不完整～题去掉程序中的注题符～把程序中的 ,改题正的容。确内 注意, 不得修改已题题出的程序。最后把修改后的文件按原文件名存题。解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在命令按题的窗体事件题程中～有Private Sub Command1_Click() 三题地方需 要修改。 将题句1) 'Select Case ? 改题 Select Case Combo1.ListIndex将题句2) 'tmpStr = Mid(Trim(Text1.Text), ? )改题 tmpStr = Mid(Trim(Text1.Text), 3, 4)将题句3) 'Text2.Text = ? 改题 Text2.Text = tmpStr 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.frxsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 以下列,数～～～～～～～～…～的题律是第从个数题始～每1个数它两个数是前面的和加。1 在考生目题下有一工程文件个。中已题题出了所有控件～如题窗体sjt5.vbp 所示。题题适的事件题程题题以下功能,在写当中题入整数～题题Text140 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教16 “题算”按题～题在中题示题列第数题的题。如果题题“存题”按Text240 题～题题算的第将题的题存到考生目题下的文件中。;提示,因40out5.txt数据题大～ 题使用型题量,Long 注意, 在题束程序行之前～必题题题“存题”按题～把题果存入运文out5.txt件～否题无成题。最后把修改后的文件按原文件名存题。解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“题算”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command1_Click()Dim f As Long a(1) = 1 a(2) = 1 For i = 3 To Val(Text1.Text)f = a(i - 2) + a(i - 1) + 1a(i) = f Next Text2.Text = f End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,05 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上一名窗体画个称的题题题;框数属从性1Form1 check1Index0题始,～含三题题～其题题分题题“题文”、“”、“育”～个框数学体 利用性口题置适的性～使“题文”未题～“”被题中～“属窗当属数学体 育”题灰色～再把的题题题置题“题题”～如题所示。窗体 注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt1.vbp题。sjt1.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教17 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题控件～通题题题题控件的题制题生题题控件题～共有三题题题～题题窗体画个框框框数个框 ;属数学体数学性,分题题题“题文”、“”、“育”～“”的属性题题体育”的CaptionValue1,“ 属性Value 题题。激活窗体属窗将～通题其性口题题;属性,题题“题题”。2Form1Caption参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上文本～名分题题窗体画两个框称、～再画2Form1Text1Text2两个称命令按题～名分题题、～题题分题题“题制”、Command1Command2 “题除”。程序行题～在运中题入一串字符～用鼠题拖的方法并拽Text1 题题字符～然后题题“题制”按题～题被题中的字符被题制到几个Text2中;如题所示,。若题题“题除”按题～题被题题的字符从中被题Text1除。题题命令按题的写两个题程完成上述功能。Click 注意, 要求程序中不得使用题量～事件题程中只能一题句。写条 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt2.vbp题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上二文本控件～通题其性口名分题题题窗体画个框属窗将称、。二命令按题控画个Text1Text2件～通 题其性口名分题题题属窗将称、～题题;属性,分题题题“题制”、“题Command1Command2Caption除”。 题题“题制”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click()Text2 = Text1.SelText End Sub 题题“题除”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command2_Click()Text1.SelText = "" End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教18 *********************************************************************** ;,在考生目题下有一工程文件个～包含了所有控件和部分程序～如1sjt3.vbp 题所示。 要求, ,利用性口题置适的性～使属窗当属、中据右题题～数1Text1Text2 ,题题适的程序完成以下功能, 在写当中题入;度,～题题数2Text140 题合中的一题目～题题“题算”按题～题根据所题题的题目～题框个 算出相题的正弦、余弦题;保留位小～第数位截去～取,34π3.14159～题示在并中。Text2 注意, 考生不得修改文件中已题存在的程序～ 在题束程序行之前～必题窗体运 题行一题题算～在中题入的必题是～必题用右上角的题题按窗体Text140 题题束程序～否题无成题。最后～按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 题题上的二文本～通题其性口窗体个框属窗将属性都题题。Alignment1题题“题算”按题;行其即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click()Const PI = 3.14159 Select Case Combo1.Text Case "sin": a = Sin(CInt(Text1.Text) * PI / 180) Case "cos": a = Cos(CInt(Text1.Text) * PI / 180) Case "tg": a = Tan(CInt(Text1.Text) * PI / 180) Case "ctg": a = 1 / Tan(CInt(Text1.Text) * PI / 180) End Select Text2 = Int(a * 1000) / 1000 End Sub 另外特题注意需在中题入的题必题是～而且题束程序题必题用右上角的题题按题题束程窗体来Text140 序～ 否题题部分有成题。将没 参考文件,参考答案、、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.frxsjt3.vbwout3.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～上已题出所有控件。程窗体画2sjt4.vbp 序的作用是成一题题的题题。题行题～不题题～题题一题题按题构个运个 后～再题题“题题”按题～题题始题题～根据所题的题题按题定是每并决 秒题示一次秒～题是每数秒题示一次秒。数用于题示秒～如题所10Text2 示。文件中已题题出了程序～但不完整～题去掉程序中的注题符～把窗体 程序中的 ,改题正的容。确内 注意, 不得修改已题题出的程序。最后把修改后的文件按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教19 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有三题地方Private Sub Timer1_Timer 需要修改。 将题句1) 'num = ? 改题 num = num + 1 将题句2) 'Text2.Text = Text2.Text + ?改题 Text2.Text = Text2.Text + 10将题句3) 'Text1.Text = Text1.Text + ?改题 Text1.Text = Text1.Text + 1参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～上有题片～名题窗体两个框称、sjt5.vbpP1～分题用表示信和汽题～其中在来号灯中题流入“装黄灯、“题P2P1.ico”灯、“题灯文件题题信的切题～题有题题器来号灯两个.ico”.ico”Timer1和～用于题题信～号灯黄灯秒～题灯秒～题灯秒～Timer2Timer1123Timer2用于控制汽题向左移题。行题～信不题题～题题“题题”按题后。运号灯断 汽题题始移题～如果移题到信前或信下～遇到题或～题停止号灯号灯灯黄灯 移题～题题题题后再题题移题。当灯 在中已题题出了全部控件和程序～但程序不完整～要求题题程序去掉窗体并 程序中的注题符～把程序中的,改题正的容～使其题题上述功能～但不确内 能修改程序中的其他部分～也不能修改控件的性。最后把修改后的文件以属 原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有一题地方需Private Sub C1_Click() 要修改。 将题句1) 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教20 'Timer2.Enabled = ? 改题 Timer2.Enabled = True 在的窗体事件题程中～有一题地方需要修改。Private Sub Timer1_Timer()将题句1) 'P1.Picture = LoadPicture("?")改题 题灯P1.Picture = LoadPicture(".ico") 在的窗体事件题程中～有二题地方需要修改。Private Sub Timer2_Timer()将题句1) 'Timer2.Enabled = ? 改题 Timer2.Enabled = False 将题句2) 'P2.Move ? - 10, P2.Top, P2.Width, P2.Height 改题 P2.Move P2.Left - 10, P2.Top, P2.Width, P2.Height 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.frxsjt5.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,06 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上命令按题～其名分题题窗体画两个称和～题题分题1Form1C1C2题“命令按题和“命令按题～ 通题性口题题适的性～使得属窗当属1”2” 程序行后～“命令按题运题藏。题适的事件题程～使得题题“命令写当2” 按题～题“命令按题出题～“命令按题题藏～而如果题题“命令1”2”1” 按题～题“命令按题出题～“命令按题题藏。程序的行运况情如2”1”2” 题所示。 注意, 程序中不得使用题量。 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt1.vbp题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上二命令按题控件～通题其性口名分题题题窗体画个属窗将称和～题题;属性,C1C2Caption 分题题题 “命令按题和“命令按题～将的属性题。1”2”C2VisibleFalse题题命令按题;行即运事件题程,～在题事件题程中加入题句,1ClickClick Private Sub C1_Clickk() C2.Visible = True C1.Visible = False 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教21 End Sub 题题命令按题;行即运事件题程,～在题事件题程中加入题句,2ClickClick Private Sub C2_Clickk() C1.Visible = True C2.Visible = False End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一列表～其名题窗体画个框称～一个条水平题题～其2Form1L1名题称～属性题～ 属性题～属性题～HS1SmallChange2LargeChange10Min0 属性题～题适的事件题程。 程序行后～如果把题题移到某写当运框Max100 个窗体框个内位置～然后题题～ 题在列表中添加一题目～其容是“～xx”其中是题题所在的位置～如题所示。框xx 注意, 程序中不要使用题量～存题题必题存放在考生文件题下～工程文件名题 ～文件名题窗体。sjt2.vbpsjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一列表控件～通题其性口名题题窗体画个框属窗将称。一画个条属水平题题控件～通题其L1性口窗 将称名题题～属性题题～属性题题～属性题题～属性题HS1Min0Max100SmallChange2LargeChange 题。10 题题;行窗体即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Form_Click() L1.AddItem Str$(Form1.HS1)End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～ 相题的文件题窗体～1sjt3.vbpsjt3.frm在上有一命令按题和一文本。 程序行后～题题命令按题～窗体个个框运即 可题算出题数中每个与并框元素其下题相除所得的和～在文本中题示出arr 来窗体窗数。在的代题口中～已题出了部分程序～其中题算题中每个元arr 素其下题相除所得的和的操作在通用题程与中题题～题题题题程的代写Fun 题。 要求, 题勿改题程序中的其他部分～只在和之题Function Fun()End Function 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教22 填你写并运入题的若干题句行程序。最后把修改后的文件按原文件名存 题。 题明, 数题中共有个数元素～所题“题中每个与元素其下题相除所得arr40arr 的和”～指的是, arr(1)/1 + arr(2)/2 + arr(3)/3 + ... + arr(40)/40 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于提供的函不完整～需添加题句～数体内具容,Fun() Function Fun(a() As Single) As SingleSum = 0 For i = 1 To UBound(a) Sum = Sum + a(i) / i Next i Fun = Sum End Function 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbwout3.txt题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～相题的文件题窗体。2sjt4.vbpsjt4.frm在上有命令按题～其名分题题窗体两个称、～一题题个Command1Command2控件～其名题称～一题题器控件～其名题个称～如题所示。Label1Timer11 程序行后～在命令按题运中题示“题始”～在命令按题Command1Command2中题示“停止”～在题题中用字大小题体的粗体题示“题烈题迎”;题16 题的属性题,～ 同题把题题器的属性题置题～AutoSizeTrue Interval50 属性题置题。 此题如果题题“题始”命令按题～题题按题题EnabledTrue 题禁用～题题题题“题题”～同题题题自左至右移题～每题题题个隔移题 ～如题所示～ 移题出右题界后～自题左题界题始向右移题～如窗体从202 果题题“停止”命令按题～题题按题题题禁用～“题题”命令按题题题有 效～同题题题停止移题～再次题题“题题”命令按题后～题题题题移题。题程序不完整～题把题个它并确运充完整～能正行。 要求, 去掉程序中的注题符～把程序中的 ,改题正的容～ 使其题题上述确内 功能～但不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有二题Private Sub Command1_Click() 地方需要修 改。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教23 将题句1) 'Timer1.Enabled = ? 改题 Timer1.Enabled = True 将题句2) 'Command1.Enabled = ? 改题 Command1.Enabled = False 在的窗体事件题程中～有一题地方需要修改。Private Sub Command2_Click()将题句1) 'Timer1.Enabled = ? 改题 Timer1.Enabled = False 在的窗体事件题程中～有一题地方需要修改。Private Sub Timer1_Timer()将题句1) 'Label1.Left = ? 改题 Label1.Left = Label1.Left + 20参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生目题下有一工程文件个。中已题题出了所有控件。其功窗体sjt5.vbp 能是,题题“题示”命令按题～题把考生目题下的 文件中的所有字in5.txt符放入;可多行题示,～如题所示～如果题题“题题”命令按题～题Text1 题题文本中字母框、、、各自出题的次～数并窗体依次放到题量ABCD ～～～之中;放在其他题量中无成题,～如果题题“保存”命令将anbncndn 按题～题把题题题果存入考生文件题下的文件中。文件中已题出了out5.txt “题示”和“保存”按题的事件题程。题题“题题”按题的写事ClickClick件题程。 要求, 题题每字母出题的次题～不分大小。个数区写 注意, 不能修改已题题出的程序部分～在题束程序行之前～必题题题“保存”运 按题～把题果存入文件～否题无成题。最后把修改后的文件按原out5.txt 文件名存题。 解题思路, 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教24 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“题题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command2_Click()n = Len(Text1) For k = 1 To n ch = Mid(Text1, k, 1) If UCase(ch) = "A" Thenan = an + 1 End If If UCase(ch) = "B" Thenbn = bn + 1 End If If UCase(ch) = "C" Thencn = cn + 1 End If If UCase(ch) = "D" Thendn = dn + 1 End If Next k Text1 = an & " " & bn & " " & cn & " " & dn End Sub 参考文件,参考答案、、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.frxsjt5.vbwout5.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第套,07 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic;,在名题 称的上一题题～其名题窗体画个称～题题题“等题考1Form1Label1题”～属性题～可以根据题题自题题整大小～然后再一画个BorderStyle1 命令按题～其名和题题均题称～题适的事件题程。程序行写当运Command1 后～其界面如题所示～此题如果题题命令按题～ 题题题消失～同题用题1 题的题题作题命令按题的题题～如题所示。2 注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt1.vbp题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题控件～通题其性口名题题窗体画个属窗将称～题题;属性,题题“等题考Label1Caption题”～ 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教25 属性题～题题大小自题题整;属性,题题。一命令按题控件～通题其画个BorderStyle1AutoSizeTrue属窗性口 将称名题题。Command1 题题命令按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click()Command1.Caption = Label1Label1.Visible = False End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一文本～其名题窗体画个框称～初始容题空内白～2Form1Text1然后再三题题按题～其名分题题画个称、和～题题分题题北京、Op1Op2Op3 西安和杭州～题适的事件题程。程序行后～如果题题题题按题写当运～Op1题在文本中题示“题和”～ 如果题题题题按题框园～题在文本中题框Op2 示“兵题俑”～ 如果题题题题按题～题在文本中题示“框西湖”。程Op3 序的行运况写情如题所示。要求程序中不得使用题量～事件题程中只能一条题句。 注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt2.vbp题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本控件～通题其性口名题题窗体画个框属窗将称～文本容;内属性,题题空。Text1Text 画个三 题题按题控件～通题性口名题题属窗将称、、～题题;属性,分题题题“北京”、Op1Op2Op3Caption“西安”、 “杭州”。 题题题题按题;行即运事件题程,～在题事件题程中加入题句,Op1ClickClickPrivate Sub Op1_Click() 题和园Text1 = "" End Sub 题题题题按题;行即运事件题程,～在题事件题程中加入题句,Op2ClickClickPrivate Sub Op2_Click() 兵题俑Text1.Text = "" End Sub 题题题题按题;行即运事件题程,～在题事件题程中加入题句,Op3ClickClickPrivate Sub Op3_Click() 西湖Text1.Text = "" End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教26 *********************************************************************** ;,在考生文件题下有一工程文件个～相题的文件题窗体。1sjt3.vbpsjt3.frm在上有一名题窗体个称、题题题“题算”的命令按题～两个水平Command1 题题～ 名分题题条称和～其属性均题～属性Hscroll1Hscroll2Max100Min均题～ 四题题～名分题题个称、、和～题题1Label1Label2Label3Label4分题题“算运数、“算运数、“算题果”和空运个白～此外题有一1”2” 包含四题题按题的控件题～ 名题个数称～题题分题题“、“Option1+”- ”、“和“～ 如题所示。程序行后～移题题题题中的题题运两个条*”/”1 框条当运数个～用题题的前题作题算～如果题中一题题题～然后题题命令 按题～相题的题算题果题示在将中～ 程序行运况情如题所示。题Label42 个它并确运程序不完整～题把题充完整～能正行。 要求, 去掉程序中的注题符～把程序中的 ,改题正的容～ 使其能正确内确运 行～但不能修改程序中的其他部分～也不能修改控件的性。最后用原属 来窗体的文件名保存工程文件和文件。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有三题Private Sub Command1_Click() 地方需要修 改。 将题句1) 'If ? = True Then 改题 If Option1(i) = True Then 将题句2) 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教27 'Select Case ? 改题 Select Case opt 将题句3) '? = Str(HScroll1.Value) & " " & opt & Str(HScroll2.Value) & " =" & Str(Result) 改题 Label4 = Str(HScroll1.Value) & " " & opt & Str(HScroll2.Value) & " =" & Str(Result) 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp ********************************************************************** ;,在考生文件题下有一工程文件个～相题的文件题窗体。2sjt4.vbpsjt4.frm在上有一命令按题～ 其名题窗体个称～题题题“题入题示”～Command1/ 此外题有一文本～其名题个框称～初始容题空内白。程序的功能是～Text1 程序行后～题题命令按题～题示题入题题～在题题中题入某运框框个份月 的题;数,,～ 然后题题“定”按题～可在文本中题出题确即框份月112 所在的季题。例如题入～题出“将月份是夏季”～如题所示。题程序不55 完整～题把题它充完整。 要求, 去掉程序中的注题符～把程序中的 ,改题正的容～ 使其能正确内确运 行～但不能修改程序中的其他部分。最后用原的文件名保存工程文件来 和文件。窗体 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有三题Private Sub Command1_Click() 地方需要修 改。 将题句1) 'Loop Until ? And n < 13 改题 Loop Until n > 0 And n < 13将题句2) 'Select Case ? 改题 Select Case n 将题句3) 'Select Case ? 改题 Select Case m 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教28 在考生的文件题下有一工程文件个～相题的文件题窗体。sjt5.vbpsjt5.frm在上有命令按题～其名分题题窗体两个称和～题题分题题Command1Command2“文件”和“题文件”～如题写所示。 其中“文件”命令按题事件题程写1 用建立一通信题～以来个随机存取方式保存到文件中～而“题文件”t5.txt命令按题事件题程用题出文件来中的每题题～在上题示出。个并窗体来t5.txt 通信题中的每题题由个个构字段题成～题如下,3 姓名;, 题题;, 题政题题;,NameTelPos LiuMingliang (010)62781234 100082 ...... ...... ...... 各字段的题型和题度题, 姓名;,, 字符串 Name15 题题;,, 字符串 Tel15 题政题题;, 题整型;,PosLong 程序行后～如果题题“文件”命令按题～题可以运写随机存取方式打题文件 ～根据提示向文件中添加题题～每入一题题后～都要题题是否并写个t5.txt 再题入新题题～回答“;或“,题题入新题题～回答“;或“Y”y”N”n”,题停止题入～如果题题“题文件”命令按题～题可以随机存取方式打题文件～题出文件中的全部题题～在上题示出～ 如题并窗体来所示。题t5.txt2程序不完整～题把题它充完整。 要求, ,去掉程序中的注题符～把程序中的 ,改题正的容～使其能正确内确运1 行～但不能修改程序中的其他部分。 ,文件中已有个题题;如题所示,～题行程序～题题“文运写2t5.txt32 件”命令按题～向文件中添加以下题题;全部两个采用西文方t5.txt 式,, LiDaqing (027)87348765 430065ChenQingshan (022)26874321 300120,行程序～题题“题文件”命令按题～在上题示全部题题;共运窗体个35,。 ,用原的文件名保存工程文件和文件。来窗体4 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～在命令按题的窗体事件题程中～有Private Sub Command1_Click() 三题地方需 要修改。 将题句1) 'RecNum = ? 改题 RecNum = RecNum + 1 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教29 将题句2) 'Put #1, ? 改题 Put #1, RecNum, Pers 将题句3) 'Loop While UCase(asp) ?改题 Loop While UCase(asp) <> "N"由于所提供的程序不完整～在命令按题的窗体事件题程中～有Private Sub Command2_Click() 二题地方需 要修改。 将题句1) 'RecNum = ? 改题 RecNum = LOF(1) / Len(Pers)将题句2) 'Get #1, ? 改题 Get #1, i, Pers 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.frxsjt5.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第套,08 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic;,在名题 称的上一文本～其名题窗体画个框称～题度和高度分题题1Form1T1 题～ 再命令按题～其名分题题画两个称和～题题分题题“题1400400C1C2示”和“题大”～题适的事件题程。程序行后～如果题题写当运命令按C1题～题在文本中题示“框等题考题”～如题所示～如果题题命令按题～1C2题使文本在高、题方向上各框框体来增加一倍～文本中的字大小题大到原的倍～如题所示。32 注意, 要求程序中不得使用题量。 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt1.vbp题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教30 在题上一文本控件～通题其性口名题题窗体画个框属窗将称～高;属性,题题～题T1Height400 ;属Width 性,题题。二命令按题控件～通题其性口名分题题题画个属窗将称、～题题;属性,1400C1C2Caption 分题题题 “题示”、“题大”。 题题“题示”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C1_Click() 等题考题T1 = "" End Sub 题题“题大”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C2_Click() T1.Height = 2 * Me.T1.HeightT1.Width = 2 * T1.WidthT1.FontSize = 3 * Form1.T1.FontSize End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一命令按题～其名题窗体画个称～题题题“题题”～2Form1C1然后再文本～其名分题题画两个框称和～初始容均题空内白～Text1Text2 题适的事件题程。 程序行后～在写当运中题入一行英文字符串～如Text1 果题题命令按题～题文本中的字母都题题小～而框写中的字母Text1Text2都题题大。 写例如～在中题入～题题题Text1Visual Basic Programming 命令按题后～题果如题所示。 要求, 不得使用任何题量。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一命令按题控件～通题其性口名题题窗体画个属窗将称～题题;属性,题题“题题”。C1Caption画 二文本控件～通题其性口名分题题题个框属窗将称、～属性均题题空。Text1Text2Text题题“题题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub C1_Click() Text1.Text = LCase(Text1.Text)Text2.Text = UCase(Text1.Text)End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教31 *********************************************************************** ;,在考生文件题下有一工程文件个～相题的文件题窗体～1sjt3.vbpsjt3.frm包含了所有控件和部分程序～如题所示。 要求, ,利用性口向列表添加四题目, 属窗框个～～1Visual BasicTurbo C ～～C++Java ,题题适的程序完成以下功能,题题列表中的一题和题题按写当当框2 题～然后题题“定”命令按题～题文本中题示“确框笔Option1XXX题”～ 题题列表中的一题和题题按题当框～然后题题“确Option2 定”命令按题～题文本中题示“框上机”。其中“是在列XXXXXX”表中所题题的题目。框 注意, 考生不得修改文件中已题存在的程序～窗体窗退出程序题必题通题题题 体运右上角的题题按题。在题束程序行之前～必题至少要题行一次题题 操作;包括列表和题题按题,～否题不得分。最后把修改后的文件按框 原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm由于所提供的控件不完整～向列表控件添加题目;窗体框属性,～添加的题目分题题ListVisual ～Basic ～～～每题目题一行。个Turbo CC++Java 由于所提供的程序不完整～题题“定”命令按题;行窗体确即运事件题程,～在题ClickClick事件题程中 加入题句, Private Sub Command1_Click() If Option1.Value And List1.Text <> "" ThenText1.Text = List1.Text & Option1.CaptionElse If Option2.Value And List1.Text <> "" ThenText1.Text = List1.Text & Option2.CaptionEnd If End If End Sub 另运框外需注意,在题束程序行之前～必题至少要题行一次题题操作;包括列表和题题按题,～退出程序 题需题题右上角的题题按题～题题就行了窗体运事件题程。Private Sub Form_Unload(Cancel As Integer) 参考文件,参考答案、、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.frxsjt3.vbwout3.txt题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp ********************************************************************** ;,在考生文件题下有一工程文件个～相题的文件题窗体。2sjt4.vbpsjt4.frm在上有一命令按题～其名题窗体个称～题题题“题算题出”。并Command1 程序行后～如果题题命令按题～程序题算运将以之题;包括内两个数500 题题和题尾的,所有题题的和题数数的正整～ 在上题示出数并窗体1250 来数数并。题题的有多题～ 程序题出每题题题和题尾的正整～用“,” 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教32 题接起～如题所示。题程序不完整～题把题来它充完整。 要求, 去掉程序中的注题符～把程序中的 ,改题正的容～ 使其能正确内确运 行～但不能修改程序中的其他部分。最后用原的文件名保存工程文件来 和文件。窗体 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm由于所提供的程序不完整～在的窗体窗体事件题程中～有三题Private Sub Command1_Click()地方需要修 改。 将题句1) 'iSum = ? 改题 iSum = 0 将题句2) 'iSum = ? 改题 iSum = iSum + j 将题句3) 'If iSum = ? Then 改题 If iSum = 1250 Then 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在上一文本～其名题窗体画个框称～初始容题空内并白～ 题置成多行Text1 题示格式～然后再命令按题～其名分题题画两个称和～题Command1Command2题分题题“题示”和“保存”～如题所示～题适的事件题程。程序行写当运 后～如果题题“题示”命令按题～题题取考生文件题下的文件～ 并in5.txt在文本中题示出～ 题文件是一用框来个随机存取方式建立的文件～共有个5题题～要求按题题题序题示全部题题～每题题一行～如果题题“保存”号个 命令按题～题把所有题题保存到考生文件题下的题序文件中。out5.txt随机文件中的每题题包括个个字段～分题题姓名、性题和年题～其in5.txt3 名和题度分题题,称 字符串 Name 8 字符串 Sex 4 Age Integer 其题型定题题, Private Type StudInfo Name As String * 8 Sex As String * 4 Age As Integer End Type 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教33 要求, ,文件以题序存取方式建立和保存。1out5.txt ,存题题必题存放在考生文件题下～工程文件名题～文件窗体2sjt5.vbp名题。sjt5.frm 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 在题上一文本控件～通题其性口名题题窗体画个框属窗将称～文本容;内属性,题题空～Text1Text 多行 ;属性,题题。二命令按题控件～通题其性口名分题题题画个属窗将称MultiLineTrue 、～题Command1Command2 题;属性,分题题题“题示”、“保存”。Caption 题题“题示”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click()Dim RecNum As Long Open App.Path & "\in5.txt" For Random As #1 Len = Len(Stud) RecNum = 1 Do While Not EOF(1) Get #1, RecNum, Stud Text1.Text = Text1.Text & Stud.NameText1.Text = Text1.Text & Stud.SexText1.Text = Text1.Text & Str(Stud.Age)Text1.Text = Text1.Text + vbCrLfRecNum = RecNum + 1 Loop Close 1 End Sub 题题“保存”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command2_Click()Open App.Path & "\out5.txt" For Output As #1 Print #1, Text1.Text Close 1 End Sub 声个构体内明部分定题一存放“姓名”、“性题”和“年题”题题的题～具容,Private Type StudInfo Name As String * 8 Sex As String * 4 Age As Integer End Type 在声个构明部分题定题一题题题量～其题句, Dim Stud As StudInfo 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,09 基本操作;小题～每小题分～共题分,1. 21530 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教34 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上命令按题～其名分题题窗体画两个称和1Form1 Command1 ～题题分题题“题大”和“移题”。如题所示～题适的事件写当Command2 题程。程序行后～如果题题运命令按题～题使在高、题方向窗体Command1 上各增加倍;题题原的来倍,～如果题题命令按题～题使0.21.2Command2窗体向右移题～向下移题。200100 要求, 程序中不得使用题量。 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt1.vbp题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 题上二命令按题控件～通题其性口名分题题题窗体画个属窗将称、～题题Command1Command2 ;属性,Caption 分题题题“题大”和“移题”。 题题“题大”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command1_Click()Height = 1.2 * Height Width = Width * 1.2 End Sub 题题“移题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command2_Click()Left = 200 + Left Top = Top + 100 End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题 称的上一题题～其名题窗体画个称～题题题“题算机2Form1Label1等题考题”～属性题～ 再一画个条称水平题题～其名题～Left0HScroll1在性口中题置其性如下,属窗属 Min 0 Max 3000 SmallChange 10 LargeChange 100 题适的事件题程。程序行后～如果移题题题上的题题～题可使写当运条框 题题向相题的方向移题～题题距窗体框离框左题的距等于题题的位置～程序的行运况情如题所示。 要求, 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教35 程序中不得使用题量～每事件题程中只能一题句。个写条 注意, 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题控件～通题其性口名题题窗体画个属窗将称～题题;属性,题题“题算机等Label1Caption题 考题”～属性题题。一画个条属窗将称水平题题控件～通题其性口名题题～属性题Left0HScroll1Min题～0Max 属性题题～属性题题～属性题题。3000SmallChange10LargeChange100移题题题上的题题;行条框即运事件题程,～在题事件题程中加入题句,ScrollScroll Private Sub HScroll1_Scroll()Label1.Left = Form1.HScroll1End Sub 题题题题上的方向按题;行条即运事件题程,也能题题题目所要求的功能～在题事件题程中ClickClick加 入题句, Private Sub HScroll1_Change()Label1.Left = Me.HScroll1 End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在名题称的上一题题器～其名题窗体画个称～再一题画个像1Form1Timer1框称～其名题～在题题像框装个中入一题形文件～然后画Image1pic.ico一个条称水平题题～ 其名题～ 属性题题～属性题题HScroll1Min100Max ～属性题题～属性题题～题适的写当1200LargeChange100SmallChange25 事件题程。 程序行后～可以使题运框像题题～其题题速度可以通题题题条题题。 提示, 题像框框来的题题可以通题题像交替地题示和题藏题题。 要求, 程序中不得使用题量～每事件题程中只能一题句。个写条 注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt3.vbp 题。sjt3.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题器控件～通题其性口名题题窗体画个属窗将称。一题画个框属窗像～通题其性口Timer1将名 称题题～通题属将性题形文件装画个条属窗将入。一水平题题～通题其性口名Image1Picturepic.ico 称题题 ～属性题题～属性题题～属性题题～属性HScroll1Min100Max1200LargeChange100SmallChange 题题。25 点题题题;行条即运事件题程,～在事件题程中加入题句,ChangeChangeTimer1.Interval = 。题需在题题器的事件题程中加入题句,HScroll1.ValueTimerImage1.Visible = Not ～完即Image1.Visible 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教36 成了题像交框替地题示和题藏功能。 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.frxsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生目题下有一工程文件个～包含了所有控件和部分程序～如2sjt4.vbp 题所示。 要求, ,利用性口题置适的性属窗当属1: 题列表添加框个体体体题目,宋、黑、楷～文本List13_GB2312Text1框题置初始题题“题算机”～水平题题题置最小题和最大条Hscroll1 题分题题和。1050 ,去掉程序中的注题符～把程序中的 ,改题正的容～ 完成以下功确内2 能,如果在列表中题题一题字～然后移题题题中的题题～题框体条框 可使文本中的文字按所题题的字题示～可框体并随框着题题的移题放大或题小～如果不题题字直体框个框接移题题题～题题示一信息～提 示“题题题字”。体 注意, 去掉程序中的注题符～把程序中的 ,改题正的容～ 使其题题上述确内 功能～但不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的控件不完整～通题性口向列表中添加题目;窗体属窗框属性,～添加的题目List分题题,宋 体体体、黑、楷～每题目题一行。通题性口文本容;个属窗将内属性,题题“题算机”。_GB2312Text通题性属 窗将条口水平题题最小题;属性,题题～最大题;属性,题题。Min10Max50由于所提供的程序不完整～在窗体条水平题题的事件题程中～有Private Sub HScroll1_Change() 二题地方 需要修改。 将题句1) 'Text1.FontSize = ? 改题 Text1.FontSize = HScroll1.Value将题句2) 'Text1.FontName = ? 改题 Text1.FontName = List1.Text参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.frxsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教37 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～已题出了部分控件和部分程序。sjt5.vbp 程序行题～题在上三题题～其名分题题运窗体画个称、和Label1Label2 ～题题分题题“姓名”、“题题题”和“题号画个政题题”。 再三Label3 文本～其名分题题框称、和～初始容均题空内白～如题所Text1Text2Text3 示。程序行后～如果题题“题示第三题题”命令按题～ 题题取考生文运个 件题下文件中的第三题题～题题题的三字个将个个段分题题示在三in5.txt 文本中;题文件是一用框个随机存取方式建立的文件～共有个题题,。题5题“保存”按题～ 题把题题题;三字个段,保存到考生文件题下的题序文件中。out5.txt 题题“题示第三题题”按题的写个事件题程～以题题上述功能。Click 注意, 考生不得修改已题存在的程序～必题用“保存”按题存题题果～ 否题无成题。最后～按原文件名把程序存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 在题上三题题控件～通题其性口名分题题题窗体画个属窗将称、和～题题Label1Label2Label3 ;Caption 属号画个框属窗将称性,分题题题“姓名”、“题题题”和“题政题题”。三文本控件～通题其性口名分题题 题、和～文本容;内属性,均题题空。。Text1Text2Text3Text 题题“题示第三题题”按题;行个即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command1_Click()Dim Pal As Paltype Open App.Path & "\in5.txt" For Random As #1 Len = Len(Pal) Get #1, 3, Pal Text1.Text = Pal.Name Text2.Text = Pal.Tel Text3.Text = Str(Pal.Post)Close 1 End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,10 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上一窗体画个条称水平题题～其名题～属性1Form1HScroll1Min题～属性题～属性题～属性题～1000Max1500LargeChange50SmallChange2然后再一文本～其名题画个框称～ 初始容题空内写当白～题适的事Text1 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教38 件题程。 程序行后～ 移题题题～题在文本中题示题题的前位运框框框当 置。程序的行运况情如题所示。 要求, ,不得使用任何题量1 ,存题题必题存放在考生文件题下～工程文件名题～文窗体2sjt1.vbp件名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一窗体画个条属窗将称水平题题控件～通题其性口名题题～将属性题题～将HScroll1Min1000 属Max 性题题～将属性题题～将属性题题。一文本控件～通题其画个框1500LargeChange50SmallChange2属窗将性口名 称题题～文本容;内属性,题题空白Text1Text 移题题题;行框即运事件题程,～在题事件题程中加入题句,ChangeChangePrivate Sub HScroll1_Change()Text1 = HScroll1 End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一命令按题～其名题窗体画个称～题题题“移题”～2Form1C1位于的左上部～如题窗体所示～题适的事件题程。程序行后～每题写当运1 题一次～都使得命令按题同题向右、向下移题窗体。程序的行运况情如100 题所示。2 要求, ,不得使用任何题量～1 ,存题题必题存放在考生文件题下～工程文件名题～文件窗体2sjt2.vbp名题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一命令按题控件～通题其性口名题题窗体画个属窗将称～题题;属性,题题“移C1Caption 题”。 题题;行窗体即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Form_Click() 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教39 C1.Left = 100 + C1.Left C1.Top = 100 + C1.Top End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～上有一题题按题题～窗体个数1sjt3.vbp含三题题按题～题有一题题题“题示”的命令按题;如题所示,。程个个 序的功能是～在行题～如果题中一题题按题题题“题示”按题～题运个并 在上题示相题的信窗体学窗体息～例如若题中“小生”～题在上题示“我是小生”。学 要求, 去掉程序中的注题符～把程序中的 ,改题正的容～使其题题上述确内 功能～但不能修改程序中的其他部分～也不能修改控件的性。最后把属修改后的文件以原的文件名存题。来 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有四题地方需Private Sub C1_Click() 要修改。 将题句1) 'For i = ? To 改题 For i = 0 To 将题句2) 'To ? 改题 To 2 将题句3) 'If Op1(i).? = True Then改题 If Op1(i).Value = True Then将题句4) 我是'Print "" + Op1(i).? 改题 我是Print "" + Op1(i).Caption 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～相题的文件题窗体。2sjt4.vbpsjt4.frm窗体个称上有一名题的命令按题和一名题个称的题题器。Command1Timer1题在上一题题;名题窗体画个称～题题题“题题入一正整”,个数Label1 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教40 、再一文本;名题 画个框称～初始容题空内白,。已题题出了相题Text1 的事件题程。程序行后～在文本中题入一正整～此题如果按运框个数回题题～题可使文本中的字每框数隔秒 减;倒题,～到数当减题～倒题0.310数清框并框停止～空文本～把焦点移到文本中。 要求, 去掉程序中的注题符～把程序中的 ,改题正的容～ 使其能正确内确运 行～但不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的控件不完整～在题上一题题控件～通题其性口名题题窗体窗体画个属窗将称～Label1 题题 ;属个数画个框属窗将内性,题题“题题入一正整”。一文本控件～通题性口文本容Caption ;属性,题题Text 空。 由于所提供的程序不完整～在题题器的窗体事件题程中～有三题地方Private Sub Timer1_Timer() 需要修 改。 将题句1) 'If Val(?) = 0 Then 改题 If Val(Text1.Text) = 0 Then将题句2) 'Timer1.? = False 改题 Timer1.Enabled = False 将题句3) 'Text1.? 改题 Text1.SetFocus 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个和随机文件～文件中的每sjt5.vbpin5.txt个题题包括个号字段～分题题姓名、题题题和题政3 题题～其名、题型和题度分题题,称 字符串 Name 8 字符串 Tel 10 Post Long 窗体个框两个运并中有一文本和命令按题。程序行后～如果题题“题入题示题题”命令按题～ 题考生文件题下的从文件中题入所有题题题示并in5.txt 在文本中;每题题框条数占一行～据题的题序是姓名、题题、题题～题题～可使用符号常量表示回题题行,～若题题“保存”按题题把文本中框vbCrLf 的容存入内文件中。out5.txt 要求, 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教41 ,题“题入题示题题”按题的写并题程。1Click ,在文本中把所有字母改题大字母;可以框写手工修改,。2 ,题题“保存”按题把修改后的文本容存题～否题无成题框内,; 题程3 已题出～不能修改,。 最后以原文件名程序存放在考生文件题下。将 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“题入题示题题”按题;行并即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command1_Click()考生题题的程序写' Open App.Path & "\in5.txt" For Random As #1 Len = Len(pal) For i = 1 To 5 Get #1, i, pal Text1.Text = Text1.Text & pal.NameText1.Text = Text1.Text & pal.TelText1.Text = Text1.Text & Str(pal.Post)Text1.Text = Text1.Text + vbCrLfNext Close 1 End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.txt题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,11 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上建立一名题窗体个称的题题按题题～含三题数个1Form1Op1 题按题～题的题题它依次题“题题、“题题、“题题～其下题1”2”3” 分题题～～～初始题下～“题题状题题中题。行后的如题状运窗体0122” 所示。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp 名题。sjt1.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教42 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题按题控件～通题题题题按题控件的题制题生题题按题控件题～共有三题题按题～窗体画个数个 通题性口名题题属窗将称～属性分题题题、、～题题;属性,分题题题“题题、“题题Op1Index012Caption1”、“题题～“题题的属性题题。2”3”2”ValueTrue 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp *********************************************************************** ;,在上建立一二题菜题～第一题含窗体个个菜题题～题题分题题“题题”22 、“帮称助”～名分题题、。其中“题题”菜题含有子菜题～edithelp 共有个称菜题题～其题题依次题“剪切”、“题制”、“粘题”～名分3 题题“、“、“;如题所示,。cut”copy”paste” 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上通题菜题题题器建立二主菜题～在菜题题题器的题题题分题题入“题题”、“窗体个帮称助”～名题分题题入、～在“题题”菜题下有三子菜题～在菜题题题器的题题题分题题入“个剪切”、“题制”、edithelp “粘题”～名题分题题入称、、。cutcopypaste 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～的功能是在行题只题示名它运1sjt3.vbp 题 的～题题窗体上的“按题～题题示名题的～窗体Form2Form2C2”Form1题题上的“按题～题的消失。窗体Form1C1”Form1 题程序不完整～要求,个并 ,把题题题题题～把启窗体上按题的题题改题“题藏”～把1Form2Form1Form2上按题的题题改题“题示”。 ,去掉程序中的注题符～把程序中的 ,改题正的容～使其题题上述确内2 功能～但不能修改程序中的其他部分。最后把修改后的文件存题。,工程文件和文件窗体来仍以原的文件名存题。3 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教43 正程序行后的界面如题所示。确运 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名分题题窗体Visual Basicsjt3.vbp 和。sjt31.frmsjt32.frm 由于所提供的窗体属窗将控件不完整～通题其性口题题;属性,题题“题藏”。Form1Caption提供的窗体属窗将控件不完整～通题其性口题题;属性,题题“题示”。Form2Caption题题“工程”菜题下的“工程属属窗卡将启性”题题～打题题工程的性口～在通用题题中题题象题题1 Form2 即可。 由于所提供的窗体窗体程序不完整～在的事件题程中～有一题Form1Private Sub C1_Click() 地方需要修改。 将题句1) 'Form1.Visible = ? 改题 Form1.Visible = False 由于所提供的窗体窗体程序不完整～在的事件题程中～有一题Form2Private Sub C2_Click()地方需要修改。 将题句1) 'Form1.Visible = ? 改题 Form1.Visible = True 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt31.frmsjt32.frmsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp ********************************************************************** ;,在考生文件题下有一工程文件个～的功能是在文本中题入一它框2sjt4.vbp 个数数条框整～题题“移题”按题后～如果题入的是正～题题中的题题向 右移题题相与数条等的刻度～但如果超题了题题题的最大刻度～题不移题～ 并框数数条且题示“文本中的题太大”～如果题入的是题～题题中的题题 框与数条向左移题题相等的刻度～但如果超题了题题题的最小刻度～题不移 题～且题示“文本中的题并框数太小”～如题所示。 要求,去掉程序中的注题符～把程序中的 ,改题正的容～使其题题确内 上述功能～但不能修改程序中的其他部分～也不能修改控件的性。最后属 把修改后的程序以原的文件名存题。来 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm由于所提供的程序不完整～在“移题”按题的窗体事件题程中～有三题地Private Sub C1_Click()方需要 修改。 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教44 将题句1) 'If HS1.Value + Text1.Text > HS1.? Then改题 If HS1.Value + Text1.Text > HS1.Max Then将题句2) 'ElseIf HS1.Value + Text1.Text < ? Then改题 ElseIf HS1.Value + Text1.Text < HS1.Min Then将题句3) '? = HS1.Value + Text1.Text 改题 HS1.Value = HS1.Value + Text1.Text参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp ********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在名题称的上一文本～名题窗体画个框称～允题多行题示～再画Form1Text1 三命令按题～名分题题个称、、～题题分题题“题入”、“题题”、C1C2C3 “存题”;如题所示,。题题适的事件题程～使得在行题～题题“题写当运 入”按题～题考生文件题中题入从文件;文件中只有字母和空格,～in5.txt 放入中～题题“题题”按题～题把中的所有小字母题题题大写写Text1Text1 字母～题题“存题”按题～题把中的容存入内文件中。Text1out5.txt注意, 考生必题把题题后的容用“存题”按题存入内文件～否题无成题。out5.txt考生的工程文件以文件名存题～文件以文件名窗体存题。sjt5.vbpsjt5.frm解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本～通题其性口名题题窗体画个框属窗将称～多行题示;属性,题题Text1Multiline ～即True 允题多行题示。三命令按题～通题其性口名分题题题画个属窗将称、、～题题;属性,C1C2C3Caption 分题题题 “题入”、“题题”、“存题”。 题题“题入”按题;行即运事件题程,～在事件题程中加入题句,ClickClick Private Sub C1_Click() Open App.Path & "\in5.txt" For Input As #1 Input #1, a$ Text1.Text = a$ Close #1 End Sub 题题“题入”按题;行即运事件题程,～在事件题程中加入题句,ClickClick Private Sub C2_Click() a$ = Text1.Text 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教45 b$ = "" n = Len(a$) For i = 1 To n b$ = b$ + UCase$(Mid$(a$, i, 1))Next Text1.Text = b$ End Sub 题题“题入”按题;行即运事件题程,～在事件题程中加入题句,ClickClick Private Sub C3_Click() Open App.Path & "\out5.txt" For Output As #1 Print #1, Text1.Text Close #1 End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,12 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上一文本～名题窗体画个框称～字题“黑”～体体1Form1Text1文本中的初始容题“程序题题”～再一命令按题～名题框内画个称～C1题题题“改题字”;如题所示,。题题适事件题程～使得在行体写当运 题～题题命令按题～题把文本中文字的字改题“框体体宋”。程序中不得使用任何题量。 注意,* 保存题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本～通题其性口名题题窗体画个框属窗将称～字;体属体性,题题“黑”～Text1Font文本中框 的初始容;内属另画个属窗将称性,题题“程序题题”。外再一命令按题～通题其性口名题题Text ～题题;C1Caption 属体性,题题“改题字”。 题题命令按题;行即运等事件题程,～使用;宋体,题句就能完成把文本框ClickText1.Font = ""中文字 的字改成“体体宋”功能。 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一题片～名题窗体画个框称～高题～题题～2Form1P118001600并放入文件名题的题片;如题所示,。题题适的事件题程～写当pic1.bmp 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教46 使得在行题～如果题～题题片题中的题片消失。程序中不得使用运双窗体框 任何题量。 注意,* 保存题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题片控件～通题其性口名题题窗体画个框属窗将称～高;属性,题题～题P1Height1800 ;Width 属性,题题。1600 双窗体题;行即运事件题程,～在题事件题程中加入题句,DblClickDblClickPrivate Sub Form_DblClick()P1.Picture = LoadPictureEnd Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp 题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在名题称的中一名题窗体画个称的题题～其题题题“～1Form1L10” 属性题～再添加一名题个称的题题器。题题置适的当BorderStyle1Timer1 控件性～题适的事件题程～使得在题行题～每属并写当运隔一秒题题题中的数字加。如题所示的是程序题题题的启况情。程序中不得使用任何题量。1 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt3.vbp 名题。sjt3.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题～通题其性口名题题窗体画个属窗将称～题题中的容;内属性,题题L1Caption“～0”BorderStyle 属性题题。再一题题器控件～通题其性口名题题画个属窗将称～属性题题;每秒1Timer1Interval1000加,。1 程序行后～通题题题器控件的运事件题程题题每隔一秒题题题中的字加数Private Sub Timer1_Timer()的功能～1 题添加的题句题,。L1.Caption = L1.Caption + 1参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教47 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～要求程序行后～如果运多次2sjt4.vbp 题题列表中的题～题可同题题题题些题。而如果题题“题示”按题～框 题在上题出所有题中的列表题;如题所示,。窗体 要求, 修改列表的适性～使得行题可以框当属运并多题～去掉程序中的注题 符～把程序中的 , 改题正的容～使其题题上述功能～但不得修确内 改程序中的其他部分。最后把修改后的程序以原的文件名存题。来 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm由于所提供的控件不完整～通题列表性口题题;窗体框属窗将属性,题题。MultiSelect1由于所提供的程序不完整～在“题示”按题的窗体事件题程中～有三题地Private Sub C1_Click()方需要 修改。 将题句1) 'For i = ? To 改题 For i = 0 To 将题句2) 'To ? 改题 To Me.l1.ListCount - 1 将题句3) 'If l1.? = True Then 改题 If l1.Selected(i) = True Then参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～在题工程中题考生提供了一通个sjt5.vbp 用题程～考生可以直接题用。题在上一名题 窗体画个称的文本～框画Text1一名题个称～题题题“题算”的命令按题～再二题题按题～名分题画个称C1 题、～题题分题题“求到之题能被整除的之和”、“求数Op1Op25006007500到之题能被整除的之和”;如题所示,。题题适的事件题程～使数写当6003 得在行题～题中一题题按题～再题题“题算”按题～就可以按运个照题题按题后的文字要求题算～把题算题果放入文本中～最后把已题修改的工程并框 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教48 文件和文件以原的文件名存题。窗体来 注意, 考生不得修改文件中已题存在的程序～窗体窗体退出程序题必题通题题题右上角的题题按题。在题束程序行之前～必题运至少要题行一题题算～否题不得分。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的控件不完整～在上一文本控件～通题其性口名题题窗体窗体画个框属窗将称 。一命画个Text1 令按题控件～通题其性口名题题属窗将称～题题;属画个性,题题“题算”。二题题按题控件～C1Caption通题 其性口名分题题题属窗将称、～题题;属性,分题题题“求到之题能被整Op1Op2Caption5006007 除的之和”、数 “求到之题能被整除的之和”。数5006003 由于所提供的程序不完整～需添加事件题程。窗体 题题“题算”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C1_Click() If Op1.Value Then Text1.Text = fun(7) End If If Op2.Value Then Text1.Text = fun(3) End If End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,13 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上一题片～名题窗体画个框称～高题～题题1Form1P118001700～通题性口把题形文件属窗放到题片中;如题所示,。框pic1.bmp 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp 名题。sjt1.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教49 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题片控件～通题其性口名题题窗体画个框属窗将称～高;属性,题置题～题P1Height1800;Width 属性,题置题～通题属装性入题像文件。1700Picturepic1.bmp 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.frxsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上二文本～名分题题窗体画个框称、～都题2Form1Text1Text2示垂直题题和条条画个水平题题～都可以题示多行文本～再一命令按题～ 名题称～题题题“题制”;如题所示,。题题适的事件题程～使写当C1 得在行题～在运中题入文本后～题题“题制”按题～就把中Text1Text1的文本全部题制到中。程序中不得使用任何题量。Text2 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp 名题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上二文本控件～通题其性口名分题题题窗体画个框属窗将称、～属性均Text1Text2ScrollBars 题题～3 多行文本题示;属性,均题题。一命令按题控件～通题其性口名题题画个属窗将称MultilineTrue ～题题;C1Caption 属画个框属窗将称性,题题“题制”。二文本控件～通题其性口名分题题题、～文本容内Text1Text2;属Text 性,均题题空。 题题“题制”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub C1_Click() Text2.Text = Text1.Text End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教50 *********************************************************************** ;,在考生文件题下有一工程文件个～相题的文件题窗体。1sjt3.vbpsjt3.frm在上有一命令按题～其名题窗体个称～题题题“添加”～有一个Command1 文本～名题框称～初始容题空内个框称白～有一列表～名题。Text1List1程序行后～在文本中题入一运框个个英文句子;由多题题题成～各题题之题用一空格分题,～然后题题命令按题～程序把题个将英文句子分解题题题～把每题题作题一题目添加到列表中～如题所示。题程序不完并个个框 整～题把题它充完整。 要求, 去掉程序中的注题符～把程序中的 ,改题正的容～ 使其能正确内确运 行～但不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～在“添加”按题的窗体事件题程中～Private Sub Command1_Click() 有四题地 方需要修改。 将题句1) 'S1 = ? 改题 S1 = Text1.Text 将题句2) 'Do While Mid(S1, I1, 1) <> ? And I1 <= Len(S1) 改题 Do While Mid(S1, I1, 1) <> " " And I1 <= Len(S1) 将题句3) 'List1.AddItem ? 改题 List1.AddItem S2 将题句4) 'S2 = ? 改题 S2 = "" 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～其中的中有一题合和窗体个框2sjt4.vbp 一命令按题;如题所示,。程序的功能是在行题～如果在题合中题个运框 入一题目题题命令按题～题个并框没搜索题合中的题目～如果有此题～题 把此题添加到列表中～如果有此题～题题出提示,“已有此题”～然后清除题入的容。内 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教51 要求, 去掉程序中的注题符～把程序中的 ,改题正的容～使其题题上述确内 功能～但不能修改程序中的其他部分～也不能修改控件的性。最后把属修改后的文件以原的文件名存题。来 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在命令按题的窗体事件题程中～有三题地方Private Sub C1_Click() 需要修改。 将题句1) 'For i = 0 To ? 改题 For i = 0 To Cb1.ListCount - 1将题句2) 'If Cb1.List(i) = ? Then 改题 If Cb1.List(i) = Cb1.Text Then将题句3) 'Cb1.? Cb1.Text 改题 Cb1.AddItem Cb1.Text 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有文件～文件中有行题字。题在几的上窗体in5.txtForm1 画个框称一文本～名题～能题示多行～再一命令按题～名题画个称～Text1C1题题题“存题”。题适的事件题程～使得在加题题～把写当窗体文in5.txt件的容题示在文本中～ 然后在文本的最前面内框插手工入一行题字,题算机等题考题～;如题所示,。 最后题题“存题”按题～把文本中修改题框的容存到文件内中。out5.txt 注意,* 只能在最前面入文字～不能修改原有文字。文件必题存放在考生文件插 题下～以题文件名存题工程文件～以题文件名存题窗sjt5.vbpsjt5.frm体文件。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教52 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本控件～通题其性口名题题窗体画个框属窗将称～多行;属性,题题Text1MultiLine 。画True 一命令按题控件～通题其性口名题题个属窗将称～题题;属性,题题“存题”。C1Caption加题;行的窗体即运窗体事件题程,～在题事件题程中加入题句,LoadLoad Private Sub Form_Load() Open App.Path & "\in5.txt" For Input As #1Text1.Text = "" Do While Not EOF(1) Line Input #1, a$ Text1.Text = Text1.Text + a$ + Chr(13) + Chr(10) Loop Close #1 End Sub 题题“存题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub C1_Click() Open App.Path & "\out5.txt" For Output As #1 Print #1, Text1.Text Close #1 End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.txt题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,14 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,题在名题称的上建立一二题下窗体个个拉菜题～第一题共有二菜题1Form1 题～题题分题题“文件”、“题题”～名分题题称、～在“题fileedit 题”菜题下有第二题菜题～含有三菜题题～题题分题题“个剪切”、“题 制”、“粘题”～名分题题称、、。其中“粘题”菜题题题cutcopypaste 置题无效;如题所示,。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp 名题。sjt1.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教53 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上通题菜题题题器建立二主菜题～在菜题题题器的题题题分题题入“文件”、“题题”～名窗体个称 题分题题入、～在“题题”菜题下有三子菜题～在菜题题题器的题题题分题题入“个剪切”、“题制”、fileedit “粘题”～名题分题题入称、、～“将状粘题”菜题题中的“有效”题题按题题题不题题。cutcopypaste 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在上二文本～名分题题窗体画个框称、。题题置适的控件当属2Text1Text2 性～题适的事件题程～使得在题行题～如果在并写当运中每题入一个Text1 字符～题题示一“个～同题在中题示题入的容;如题所示,。内*”Text2 程序中不得使用任何题量。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp 名题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上二文本控件～通题其性口名分题题题窗体画个框属窗将称、～文本将框的Text1Text2Text1 属性题题。PasswordChar* 文本框中题示内即运容;行事件题程,～在题事件题程中加入题句,Text2Text1ChangeChangePrivate Sub Text1_Change() Text2.Text = Text1.Text End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在名题称的上二题片～名分题题窗体画个框称、～高度均题1Form1P1P2 ～题度均题 ～通题性口把题片文件属窗放入中～把19001700pic1.bmpP1 题片文件放入 中～再一命令按题～名题画个称～题题题“pic2.jpgP2C1 交题题片”;如题所示,。 题适的事件题程～使得在行题～如果写当运 题题命令按题～题在中题示～在中题示。程序中P1Pic2.jpgP2Pic1.bmp 不得使用任何题量～也不能使用第三题片。个框 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教54 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt3.vbp 名题。sjt3.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上二题片控件～通题其性口名分题题题窗体画个框属窗将称、～高;属性,均题题P1P2Height ～1900 题;属性,均题题～通题属将性装入题片中、框装入题Width1700Picturepic1.bmpP1pic2.jpgP1片中。一框画 个属窗将称命令按题控件～通题其性口名题题～题题;属性,题题“交题题片”。C1Caption题题“交题题片”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub C1_Click() P1.Picture = LoadPicture("pic2.jpg")P2.Picture = LoadPicture("pic1.bmp")End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.frxsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件 个～题在上二题题题～窗体画个框2sjt4.vbp 名分题题 称、～题题分题题“程序题题”、“据题原数理”～然Ch1Ch2 后一文本～名题画个框称～再一命令按题～名题画个称～题题题Text1C1 “定” ;如题所示,。题题适的事件题程～使得在行题～题中确写当运 题题题题“定”按题～ 就可以按框并确照下表的要求把题果题示在文本框中。存题题～工程文件名题～文件名题窗体。sjt4.vbpsjt4.frm注意, 考生不得修改文件中已题存在的程序～窗体退出程序题必题通题题题窗体运个右上角的题题按题。在题束程序行之前～必题题行题生下表一题果的操作。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教55 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的控件不完整～需在题上二题题控件～通题其性口名题分题题题窗体窗体画个框属窗将称 、～Ch1Ch2 题题;属数画个框属窗性,分题题题“程序题题”、“据题原理”。一文本控件～通题其性口Caption 将称名题 题。一命令按题控件～通题其性口名题题画个属窗将称～题题;属确性,题题“定”。Text1C1Caption题题“定”按题;行确即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub C1_Click() 我题的题是Text1.Text = "" If Ch1.Value Then Text1.Text = Text1.Text + Ch1.CaptionEnd If If Ch2.Value = 1 Then Text1.Text = Text1.Text + Ch2.CaptionEnd If End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbwout4.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～其上有二文本～名分窗体个框称sjt5.vbp 题题、～题有三命令按题～名分题题个称、、～题题分题Text1Text2C1C2C3题“题入”、“题算”、“存题”;如题所示,。有一函题程并个数 可以在程序中直接题用～其功能是判断参数是否题素～如果数isprime(a)a 是素～题数返回～否题返回。题题适的事件题程～使得在写当运TrueFalse 行题～题题“题入”按题～就把文件中的整放入数中～题题in5.txtText1“题算”按题～题出大于找中的整的第数个数并素～题示在中～Text11Text2题题“存题”按题～题把中的题算题果存入文件中。Text2out5.txt 注意, 考生不得修改函题程和控件的性～必题把题算题果通题“存数属isprime 题”按题存入文件中。out5.txt 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“题入”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C1_Click() 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教56 Open App.Path & "\in5.txt" For Input As #1 Input #1, a% Close #1 Text1.Text = a% End Sub 题题“题算”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C2_Click() a% = Text1.Text Do a% = a% + 1 Loop Until isprime(a%) Text2.Text = a% End Sub 题题“存题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C3_Click() Open App.Path & "\out5.txt" For Output As #1 Print #1, Text2.Text Close #1 End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第套,15 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic;,在名题称的上二文本～名分题题窗体画个框称、～初始情况下1Form1T1T2都有容。题题适的事件题程～使得在行题～在没内写当运中题入的任何T1字符～立题示在即中;如题所示,。程序中不得使用任何题量。T2 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上二文本控件～通题其性口名分题题题窗体画个框属窗将称、～属性均题题空。T1T2Text题题题中题入字符立题示在即中的功能;行即运事件题程,～在题事件题T1T2T1_ChangeChange程中加入题 句, Private Sub T1_Change() T2.Text = T1.Text End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教57 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一文本～名题窗体画个框称～再一命令按画个2Form1Text1 题～名题称～题题题“移题”;如题所示,。题题适的事件题程～写当C1 使得在行题～题题“移题”按题～题文本运框窗体水平移题到的最左端。程序中不得使用任何题量。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp 名题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本控件～通题其性口名题题窗体画个框属窗将称。一命令按题控件～通题其画个Text1属窗性口 将称名题题～题题;属性,题题“移题”。C1Caption 题题“移题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub C1_Click() Text1.Left = 0 End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～其上有一名题 窗体个称1sjt3.vbpText1的文本～一名题 框个称的列表～一命令按题～名题 框个称～题题L1 C1 题“添加”;如题所示,。程序的功能是～在行题～如果在文本中题运框 入一行容题题“添加”按题～题把文本中的容作题列表题添加到内并框内 列表中。如果题题列表中的某一题～题立列表中题除题题。要求,去即从 掉程序中的注题符～把程序中的 , 改题正的容～使其题题上述功能～确内 但不能修改程序中的其他部分～也不能修改控件的性。最后把修改后的属 文件以原的文件名存题。来 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～在“添加”按题的窗体事件题程中～Private Sub Command1_Click() 有一题地 方需要修改。 将题句1) 'L1.AddItem ? 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教58 改题 L1.AddItem Text1 在列表的框事件题程中～有一题地方需要修改。Private Sub L1_Click()将题句1) 'L1.RemoveItem ? 改题 L1.RemoveItem L1.ListIndex参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～题在上一文本～名窗体画个框2sjt4.vbp称题 ～一命令按题～名题画个称～题题题“定”～再三题确画个Text1C1 题按题～名分题题 称、、～题题分题题“题机”、“火题”、Op1Op2Op3 “汽题”;如题所示,。题题适的事件题程～使得在行题～题中一写当运 个并确框内题题按题题题“定”按题后～按照下表在文本中题示相题容。注意,不得修改已题题出的程序。退出程序题必题通题题题右上角的窗体题题按题。在题束程序行之前～必题题中一题题按题～题题“定运个并确 ”按题。否题可能无成题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的控件不完整～需在题上一文本控件～通题性口名题题窗体窗体画个框属窗将称 。一画个Text1 文本控件～通题性口名题题框属窗将称～题题;属确画个性,题题“定”。三题题按题控件～C1Caption通题属 性口名分题题题 窗将称、、～题题;属性,分题题题“题机”、“火题”、“汽题”。Op1Op2Op3Caption由于所提供的程序不完整～需添加事件题程。窗体 题题“定”按题;行确即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C1_Click()If Op1.Value Then 需要小题Text1.Text = "1" ElseIf Op2.Value Then 需要小题Text1.Text = "10" ElseIf Op3.Value Then 需要小题Text1.Text = "15" End If End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbwout4.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp题合题用;小题～题分,3. 130 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教59 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需在窗体题算命令按题的事件题程中加入题句,""ClickPrivate Sub Command2_Click()考生题完成的程序' Dim s As Long, n As IntegerFor i = 1 To 100 If isnarc(a(i)) Then s = s + a(i) n = n + 1 End If Next i Text1.Text = Fix(s / n) End Sub 题一通用函,写个数 Function isnarc(p As Integer)x = Fix(p / 100) y = Fix((p - x * 100) / 10)z = p - x * 100 - y * 10If p = x ^ 3 + y ^ 3 + z ^ 3 Thenisnarc = True Else isnarc = False 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教60 End If End Function 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.dat 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,16 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在的上一名题窗体画个称的文本～然后建立一主菜题～题框个1Form1Text1 题题“操作”～名题称～题菜题有子菜题～其题题分题题“题示”两个Op 和“退出”～其名分题题 称和～题适的事件题程。程序行写当运DisExit 后～如果题题“操作”菜题中的“题示”命令～题在文本中题示“框等题考题”～如果题题“退出”命令～题题束程序行。程序的行运运况情如题所示。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本控件～通题其性口名题题窗体画个框属窗将称。通题菜题题题器建立一主菜题～个Text1在菜 题题题器的题题题题入“操作”～名题题入称～在题菜题下有二子菜题～在菜题题题器的题题题分题题入个Op “题示”、“退出”～名题分题题入称和。DisExit 题题“操作”菜题中的“题示”命令;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Dis_Click() 等题考题Text1.Text = "" End Sub 题题“操作”菜题中的“退出”命令;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Exit_Click()End End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在的上一列表～名题窗体画个框称～通题性口向列表中添属窗框2Form1 L1 加四题目～分题题“个、“、“和“～题适写AAAA”BBBB”CCCC”DDDD”当运框从的事件题程。程序行后～如果题题列表中的某一题～题题题就列表中消失。程序的行框运况情如题所示。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教61 名题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一列表控件～通题其性口名题题窗体画个框属窗将称～向列表中添加题目;框属L1List 性,～添加 的题目分题题“、“、“、“～每题目题一行。个AAAA”BBBB”CCCC”DDDD”题题列表某一题;行框即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub L1_Click() L1.RemoveItem L1.ListIndexEnd Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.frxsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～题在上架～其名窗体画两个框1sjt3.vbp称分题题和～题题分题题“交通工具”和“到目题”。在达中画两F1F2F1个称题题按题～名分题题和～题题分题题“题机”和“火题”。在Op1Op2 中题题按题～名分题题画两个称和～题题分题题“州”和“广昆F2Op3Op4 明”。然后一命令按题～其名题画个称～题题题“定”。再一文确画个C1 本～其名题 框称。题适事件题程。程序行后～题题不同题题写当运Text1 按题题题命令按题后在文本中题示的题果题下表并框 程序的行运况情如题所示。存题题～工程文件名题～文件名窗体sjt3.vbp题。sjt3.frm 注意, 考生不得修改文件中已题存在的程序～在题束程序行之前～必窗体运 题至少题行上面的一题操作。退出程序题必题通题题题右上角的窗体 题题按题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教62 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的控件不完整～需在题上二架控件～通题其性口名分题题题窗体窗体画个框属窗将称 、～F1F2 题题;属达性,分题题题“交通工具”和“到目题”。在框画个架中二题题按题控件～通题CaptionF1其性属窗 口名分题题题将称、～题题;属性,分题题题“题机”和“火题”。在框画个架中二Op1Op2CaptionF2 题题按题 控件～通题其性口名分题题题属窗将称、～题题;属广性,分题题题“州”和“昆Op3Op4Caption明”。一画个 命令按题控件～通题其性口名题题属窗将称～题题;属确性,题题“定”。C1Caption题题“定”按题;行确即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C1_Click() If Op1 And Op3 Then 坐题机去州广Text1.Text = "" ElseIf Op1 And Op4 Then 坐题机去昆明Text1.Text = "" ElseIf Op2 And Op3 Then 坐火题去州广Text1.Text = "" ElseIf Op2 And Op4 Then 坐火题去昆明Text1.Text = "" End If End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbwout3.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～题在上三文本～其窗体画个框2sjt4.vbp 名分题题称、和～文本容分题题置题“框内等题考题”、Text1Text2Text3 “题算机”和空白。然后题题按题～其名分题题画两个称和～题题Op1Op2分题题“交题”和“题接”～题适的事件程序。要求在程序行题～写当运 先题题“交题”题题按题～使文本中容框内与文本中容题框内Text1Text2行交题～使“并交题”题题按题消失～然后题题“题接”题题按题～题把交题后的和的容以内在前～在后的题序题接起～来Text1Text2Text1Text2并在 文本中题示题框内接后的容。存题题～工程文件名题～Text3sjt4.vbp窗体文件名题。sjt4.frm 注意, 不得修改已题题出的程序。在题束程序行之前～必题运先题题“交题”题题按题～后题题“题接”题题按题。退出程序题必题通题题题右窗体 上角的题题按题～否题可能无成题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教63 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的控件不完整～需在题上三文本控件～通题其性口名分题窗体窗体画个框属窗将称 题题、Text1 、～文本容;框内属画个性,分题题题“等题考题”、“题算机”和空白。二题题按题控Text2Text3Text 件～ 通题其性口名分题题题属窗将称、～题题;属性,分题题“交题”和“题接”。Op1Op2Caption由于所提供的程序不完整～需添加事件题程。窗体 题题“交题”题题按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Op1_Click() a$ = Text1.Text Text1.Text = Text2.Text Text2.Text = a$ Op1.Visible = False End Sub 题题“题接”题题按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Op2_Click() Text3.Text = Text1.Text & Text2.Text End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbwout4.dat 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～题先装入题工程文件～然后完成sjt5.vbp 以下操作, 在名题称的上三命令按题～其名分题题窗体画个称、和～题题Form1 C1C2C3分题题“题入据”、“题算”和“存题”;如题所示,。程序行后～如数运 果题题“题入据”按题～题利用题目中提供的数、题程ReadData1ReadData2题入和文件中的各个数两个数整～分题放入题datain1.txtdatain2.txt20 和中～如果题题“题算”按题～题把题中题题下题的两个数元素相Arr1Arr2 加～其题果放入第三题中;,第一题的第 个数即个数个与个数元素第二题n 的第 个个数元素相加～其题果作题第三题的第个元素。题里的题、、n nn12、,～最后题算第三题各个数并窗体元素之和～把所求得的和在上题... 20 示出～如果题题“存题”按题～题题用题目中题出的来题程题将WriteDate 算题果存入考生文件题下的文件中。dataout.txt 注意, 题仔题题题已有程序。考生不得修改文件中已题存在的程序～必题把窗体 求得的题果用“存题”按题存入考生文件题下的文件中～否dataout.txt 题有成题。最后把修改后的文件以原的文件名存题。没来 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教64 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～根据题意在题上三命令按题～通题其性口名窗体窗体画个属窗将称 分题题题、C1 和～题题;属数性,分题题题“题入据”、“题算”和“存题”。C2C3Caption “题入据”命令按题;需题的数写事件题程,～具体题句如下,Click Private Sub C1_Click() 题数据ReadData1 //datain1.txt 题数据ReadData2 //datain2.txt End Sub “题算”命令按题;需题的写事件题程,～具体题句如下,Click Private Sub C2_Click() 定题题数Dim Arr3(20) As Integer // 将求和题量的题置题Sum = 0 //0 ,的循题For i = 1 To 20 //120 题题题求和数Arr3(i) = Arr1(i) + Arr2(i) // 累题求和Sum = Sum + Arr3(i) // Next i 题示求和的题果Print "Sum = "; Sum // End Sub “存题”命令按题;需题的写事件题程,～具体题句如下,Click Private Sub C3_Click() 将写求和题果入文件中WriteData "DataOut.txt", Sum //DateOut.txtEnd Sub 在通用部分～定题求和全局题量 定题一求和的全个局题量Dim Sum As Integer // 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwDataOut.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,17 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在的上一文本～名题窗体画个框称。一命令按题～名题画个称1Form1Text1～题题题“题示”～属性题。题题题置适的性～使得按当属C1TabIndex0C1 题题～可以题用的事件～题事件题程的作用是在文本中题示框EscC1Click “等题考题”～程序行题果如题所示。运 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。程序中不得使用任何题量。sjt1.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教65 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本控件～通题其性口名题题窗体画个框属窗将称。一命令按题～通题其性画个属Text1窗将口名 称题题～题题;属性,题题“题示”～属性题题～属来性;用指示命令按C1CaptionTabIndex0Cancel题是否题 取消按题,题题。True 题于命令按题的属性题置题取消按题～题按题就题用的事件～在题事件题CancelEscC1ClickClick 程中加入 题句, Private Sub C1_Click() 等题考题Text1.Text = "" End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp*********************************************************************** ;,在的上一名题窗体画个称的文本～然后建立一主菜题～题框个2Form1Text1 题题“操作”～名题称～题菜题有子菜题～其题题分题题“题示”两个Op 和“题藏”～名分题题称和～题适的事件题程。程序行后～写当运DisHid 如果题题“操作”菜题中的“题示”命令～题在文本中题示“框等题考题”～如果题题“题藏”命令～题题藏文本。程序的行框运况情如题所示。注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题。程序中不得使用任何题量。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本控件～通题其性口名题题窗体画个框属窗将称。需在题上建立一主菜题窗体个～Text1题题 菜题题中的“工具”菜题下的“菜题题题器”题题～在“菜题题题器”的“题题”题题入“操Visual Basic 作”～ 在“名”题题入称～题题就建立了一主菜题～然后题题“下一”按题～题题入下一菜题题的题个个个Op 置～若 此题题题一次向右的箭题～题中此题的题题向题题～题上一菜题题的子菜题题。此题在“菜题题题器”框内即 的“题题”题题入“题示”～在“名”题题入称～题题就建立了一“操作”菜题下的“题示”子个Dis 菜题。依 此方法在“菜题题题器”的“题题”题题入“题藏”～在“名”题题入称～题题又建立了一“操个Hid作”菜题 下的“题藏”子菜题。 题题“操作”菜题下的“题示”命令～在题即事件题程中加入题句,等题考题～题题即ClickText1 = "" 可 在 中题示所需的字符。Text1 题题“操作”菜题下的“题藏”命令～在题即事件题程中加入题句,～题题ClickText1.Visible = False 文本 框就题藏了。 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教66 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～题在上架～其名窗体画两个框1sjt3.vbp 称分题题和～题题分题题“交通工具”和“到目题”。在达中画两F1F2F1个称题题按题～名分题题和～题题分题题“题机”和“火题”。在Op1Op2 中题题按题～名分题题画两个称和～题题分题题“州”和“广昆F2Op3Op4 明”。然后一命令按题～其名题画个称～题题题“定”。再一题确画个C1 题～其名题称。题适事件题程。程序行后～题题不同题题按题写当运Lab1 并框题题命令按题后在题题中题示的题果题下表 程序的行运况情如题所示。存题题～工程文件名题～文件名窗体sjt3.vbp题。sjt3.frm 注意, 考生不得修改文件中已题存在的程序～在题束程序行之前～必窗体运 题至少题行上面的一题操作。退出程序题必题通题题题右上角的窗体 题题按题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的控件不完整～需在题上二架控件～通题其性口名分题题题窗体窗体画个框属窗将称 、～F1F2 题题;属达性,分题题题“交通工具”和“到目题”。在框画个架中二题题按题控件～通题CaptionF1其性属窗 口名分题题题将称、～题题;属性,分题题题“题机”和“火题”。在框画个架中二Op1Op2CaptionF2题题按题 控件～通题其性口名分题题题属窗将称、～题题;属广性,分题题题“州”和“昆Op3Op4Caption明”。一画个 题题控件～通题其性口名题题属窗将称～高;属性,题置题～题;属性,题置题Lab1Height375Width 。3000 由于所提供的程序不完整～需添加事件题程。窗体 题题“定”按题;行确即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C1_Click()If Op1 And Op3 Then 坐题机去州广Lab1.Caption = "" 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教67 ElseIf Op1 And Op4 Then 坐题机去昆明Lab1.Caption = "" ElseIf Op2 And Op3 Then 坐火题去州广Lab1.Caption = "" ElseIf Op2 And Op4 Then 坐火题去昆明Lab1.Caption = "" End If End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbwout3.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～题在上三文本～其窗体画个框2sjt4.vbp名分题题称、和～文本容分题题置题“框内等题考题”、Text1Text2Text3 “题算机”和空白。然后题题按题～其名分题题画两个称和～题题Op1Op2分题题“交题”和“题接”;如题所示,～题适的事件程序。程序写当运 行后～如果题中“交题”题题按题题题题题～题 并窗体文本中容框内与Text1 文本中容题行框内并交题～在文本中题示“框交题成功”～如Text2Text3 果题中“题接”题题按题题题题题～题把并窗体和的容按 内Text1Text2Text1在前～在后的题序题接起～在 来并文本中题示题框内接后的Text2 Text3容。存题题～工程文件名题～文件名题窗体。sjt4.vbpsjt4.frm注意,不得修改已题题出的程序。在题束程序行之前～必题题中一题运个 题按题～题题。并窗体窗体退出程序题必题通题题题右上角的题题按题～否题可能无成题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的控件不完整～需在题上三文本控件～通题其性口名分题窗体窗体画个框属窗将称 题题、Text1 和～题题;属画个性,分题题题“等题考题”、“题算机”和空白。再二题题按题控Text2Text3Caption 件～通 题其性口名分题题题属窗将称、～题题;属性,分题题题“交题”和“题接”。Op1Op2Caption题题;行窗体即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Form_Click()If Op1 Then Text3.Text = Text1.TextText1.Text = Text2.TextText2.Text = Text3.Text 交题成功Text3.Text = "" ElseIf Op2 Then Text3.Text = Text1.Text & Text2.TextEnd If End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbwout4.txt题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教68 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～相题的文件题窗体～此sjt5.vbpsjt5.frm外题有一名题个的文本文件～其容如下,内datain.txt 32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 程序行后～题题～把文件运窗体将中的据题入到二题题数数中datain.txtMat～在上按窗体行、列的矩题形式题示出～ 然后来交题矩题第一行和第三行55 的据～ 在上题出数并窗体窗体窗交题后的矩题～如题所示。在的代题口中～ 已题出了部分程序～题程序不完整～题把题个它并确运充完整～能正行。 要求, 去掉程序中的注题符～把程序中的 改题正的容～使其题题上述功确内? 能～但不能修改程序中的其他部分。 最后把修改后的文件按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm由于所提供的程序不完整～在的窗体窗体事件题程中～有四题地方Private Sub Form_Click()需要修改。 将题句1) 'Dim ? 改题 Dim Mat(M, N) As Integer 将题句2) 'Open App.Path & "\" & "datain.txt" ? As #1改题 Open App.Path & "\" & "datain.txt" For Input As #1 将题句3) '? 改题 Input #1, Mat%(i, j) 将题句4) '? 改题 Mat%(3, j) = t 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教69 第套,18 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在 的上一名题 窗体画个称的文本～然后建立一主菜题～框个1Form1Text1 题题题“操作”～名题称～题菜题有子菜题～其题题分题题“题示两个Op ”和“除”～名分题题 清称和～题适的事件题程。程序行写当运DisClea 后～如果题题“操作”菜题中的“题示”命令～题在文本题示“框等题考题”～如果题题“除”命令～题除文本中题示的容。程序的行清清框内运 情况如题所示。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本控件～通题其性口名题题窗体画个框属窗将称。通题菜题题题器建立一主菜题～个Text1在菜 题题题器的题题题题入“操作”～名题题入称～在题菜题下有二子菜题～在菜题题题器的题题题分题题入个Op “题示”和“除”～名题分题题入清称和。DisClea 题题“操作”菜题中的“题示”命令;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Dis_Click() 等题考题Text1.Text = "" End Sub 题题“操作”菜题中的“除”命令;行清即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Clea_Click()Text1.Text = "" End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在的上一文本～名题 窗体画个框称～属画性题空白。再2Form1 Text1Text一列表～名题个框称～通题性口向列表中添加 属窗框个题目～分题题L14“、“、“和“～题适的事件题程。程序写当AAAA”BBBB”CCCC”DDDD” 运框个双框行后～在文本中题入一字符串～如果题列表中的任一题～题把文本中的字符串添加到列表中。程序的行框框运况情如题所示。注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题sjt2.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教70 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本～通题其性口名题题窗体画个框属窗将称～文本中的初始容;框内属Text1Text 性,题题空白～ 即没内画个框属窗将称有任何容。一列表～通题其性口名题题～向列表中添加题目;框属L1List 性,～添加的 题目分题题“、“、“和“～每题目题一行。个AAAA”BBBB”CCCC”DDDD” 双框即运题列表中的任一题;行事件题程,～在事件题程中加入题句,DblClickDblClickL1.AddItem 。Text1.Text 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.frxsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～题在上架～其名窗体画两个框1sjt3.vbp 称分题题和～题题分题题“交通工具”和“到目题”。在达中画两F1F2F1个称题题按题～名分题题和～题题分题题“题机”和“火题”。在Op1Op2 中题题按题～名分题题画两个称和～题题分题题“州”和“广昆F2Op3Op4 明”。一题题～其名题画个称～题度题～高度题 。题适写当Lab13000375 事件题程。程序行后～题题不同题题按题题题题题后在题题上题示的运并窗体 题果题下表 程序的行运况情如题所示。存题题～工程文件名题～文件名窗体sjt3.vbp题。sjt3.frm 注意, 考生不得修改文件中已题存在的程序～在题束程序行之前～必窗体运 题至少题行上面的一题操作。退出程序题必题通题题题右上角的窗体 题题按题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教71 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的控件不完整～需在题上二架控件～通题其性口名分题题题窗体窗体画个框属窗将称 、～F1F2 题题;属达性,分题题题“交通工具”和“到目题”。在框画个架中二题题按题控件～通题CaptionF1其性属窗 口名分题题题将称、～题题;属性,分题题题“题机”和“火题”。在框画个架中二Op1Op2CaptionF2题题按题 控件～通题其性口名分题题题属窗将称、～题题;属广性,分题题题“州”和“昆Op3Op4Caption明”。一画个 题题控件～通题其性口名题题属窗将称。Lab1 由于所提供的程序不完整～需添加事件题程。窗体 题题题题按题;行即运事件题程,～在每题题按题个事件题程中加入题句,ClickClickFun题题题示的通用题程～在题题程中加入题句,Fun() Private Sub Fun() If Op1 And Op3 Then 坐题机去州广Lab1.Caption = "" ElseIf Op1 And Op4 Then 坐题机去昆明Lab1.Caption = "" ElseIf Op2 And Op3 Then 坐火题去州广Lab1.Caption = "" ElseIf Op2 And Op4 Then 坐火题去昆明Lab1.Caption = "" End If End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbwout3.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～题在上二文本～其窗体画个框2sjt4.vbp 名分题题称、～文本容分题题置题“框内等题考题”、“题算Text1Text2 机”。然后一题题～其名题 画个称～高度题～题度题。再画Lab13752000两个称题题按题～名分题题和～题题分题题“交题”和“题接”～Op1Op2 最后再一命令按题～其名题画个称～题题题“定”～题适的事件确写当C1 程序。程序行后～如果题中“运并确交题”题题按题题题“定”按题～题 文本中容框内与文本中容题行框内并交题～在题题题题示“交Text1Text2 题成功”;如题所示,～如果题中“题接”题题按题题题“定”按题并确 后～题把交题后的和的容题内来并接起～在题题题题示题接后Text1Text2 的容。存题题～工程文件名题内～文件名题窗体。sjt4.vbpsjt4.frm注意,不得修改已题题出的程序。在题束程序行之前～必题题中一题运个 题按题～题题“定”按题。并确窗体退出程序题必题通题题题右上角的题题按题～否题可能无成题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教72 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 在题上二文本～通题其性口名分题题题窗体画个框属窗将称和～文本中的初始容框内Text1Text2;属Text 性,分题题题“等题考题”和“题算机”。一题题～通题其性口名题题画个属窗将称～题题的高度Lab1;Height 属性,题题～题度;属性,题题。题题按题～通题其性口名分题题题画两个属窗将称375Width2000Op1 和～Op2 题题;属画个属窗将称性,分题题题“交题”和“题接”～再一命令按题～通题其性口名题题Caption ～题题C1 ;属确性,题题“定”。Caption 题题相题题题按题～然后题题“定”按题;行其确即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C1_Click() If Op1 Then Lab1.Caption = Text1.Text Text1.Text = Text2.Text Text2.Text = Lab1.Caption 交题成功Lab1.Caption = "" ElseIf Op2 Then Lab1.Caption = Text1.Text & Text2.TextEnd If End Sub 另窗体来将没外特题需要注意的是在题束程序题必题用右上角的题题按题题束程序～否题题部分有成题。 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbwout4.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～题先装入题工程文件～然后完成sjt5.vbp 以下操作, 在名题称的上三命令按题～其名分题题窗体画个称、和～题题Form1 C1C2C3分题题“题入据”、“题算”和“存题”;如题所示,。程序行后～如数运 果题题“题入据”按题～题题用题目已提供的数和题程ReadData1ReadData2题入和文件中的各个数整～分题放入和datain1.txtdatain2.txt20Arr1Arr2两个数两个数题中～如果题题“题算”按题～题把题中题题下题的元素除以并个数即个数截尾取整后相乘～其题果放入第三题中;,把第一题的第 10n个元素除以截尾取整～再把第二题的第个数个元素除以截尾取整～两10n10者相乘后的题果作题第三题的第 个数个元素。题里的 题、、、,nn12...20～最后题算第三题各个数并窗体来元素之和～把所求得的和在上题示出～如果题题“存题”按题～题题用题目中题出的 题程所求得的和存将WriteData 入考生文件题的文件中。dataout.txt 注意, 考生不得修改文件中已题存在的程序～必题把求得的题果用“存题”窗体 按题存入考生文件题下的文件中～否题有成题。最后把修没dataout.txt 改后的文件以原的文件名存题。来 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教73 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的控件不完整～在上三命令按题控件～通题其性口名分题题题窗体窗体画个属窗将称 、、C1C2 ～题题;属数性,分题题题“题入据”、“题算”和“存题”。C3Caption 由于所提供的程序不完整～需添加事件题程。窗体 题题“题入据”按题;行数即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C1_Click() ReadData1 ReadData2 End Sub 题题“题算”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub C2_Click() Dim Arr3(20) As Integer Sum = 0 For i = 1 To 20 Arr3(i) = Int(Arr1(i) / 10) * Int(Arr2(i) / 10) Sum = Sum + Arr3(i) Next i Print "Sum = "; Sum End Sub 题题“存题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub C3_Click() WriteData "DataOut.txt", SumEnd Sub 题量存放和的题果～在事件题程中都要使用～所以定题成全它几个即声局题量～在明部分Sum 加入题句, Dim Sum As Integer 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwDataOut.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,19 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上建立一主菜题～ 题题题“操作”～名题窗体个称～1Form1Op题菜题有子菜题～其题题分题题“题示”和“除”～其名分题题两个清称 和～ 题适的事件题程。程序行后～如果题题“操作”菜题写当运DisClea 中的“题示”命令～题在上题示“窗体清等题考题”～如果题题“除”命令～题除上题示的容。程序的行清窗体内运况情如题所示。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教74 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 通题菜题题题器建立一主菜题～在菜题题题器的题题题题入“操作”～名题题入个称～在题菜题下有二Op个清称子菜题～在菜题题题器的题题题分题题入“题示”和“除”～名题分题题入和。DisClea题题“操作”菜题中的“题示”命令;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Dis_Click() 等题考题Print "" End Sub 题题“操作”菜题中的“除”命令;行清即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Clea_Click() Cls End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一题题～其名题窗体画个称～再一列表～画个框2Form1 Lab1其名题称～通题性口向列表中添加若干题目～每题目的属窗框个个体具L1 内写当运双框容不限～题适的事件题程。程序行后～如果题列表中的任意一题～题把列表中的题目在题题中题示出。程序行数来运况情如题所示。不准使用任何题量。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题控件～通题其性口名题题窗体画个属窗将称。一列表控件～通题其性画个框属窗Lab1口名将 称题题～向列表中添加题目;框属体内个性,～添加的题目具容不限～每题目题一行。L1List 双框即运题列表;行事件题程,～在题事件题程中加入题句,DblClickDblClickPrivate Sub L1_DblClick()Lab1.Caption = L1.ListCountEnd Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.frxsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教75 *********************************************************************** ;,在考生文件题下有一工程文件个～题在上架～其名窗体画两个框1sjt3.vbp称分题题和～题题分题题“交通工具”和“到目题”。在达中画两F1F2F1个称题题按题～名分题题和～题题分题题“汽题”和“题船”。在Op1Op2 中题题按题～名分题题画两个称和～题题分题题“题”和“大青F2Op3Op4 题”。一文本～其名题画个框称。题适事件题程。程序行后～写当运Text1 题题不同题题按题题题文本后在文本题示题果题下表并框框内 程序的行运况情如题所示。 存题题～工程文件名题～文件名题窗体。sjt3.vbpsjt3.frm注意, 考生不得修改文件中已题存在的程序～在题束程序行之前～必窗体运 题至少题行上面的一题操作。退出程序题必题通题题题右上角的窗体 题题按题的方式。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的控件不完整～需在题上二架控件～通题其性口名分题题题窗体窗体画个框属窗将称 、～F1F2 题题;属达性,分题题题“交通工具”和“到目题”。在框画个架中二题题按题控件～通题CaptionF1其性属窗 口名分题题题将称、～题题;属性,分题题题“汽题”和“题船”。在框画个架中二Op1Op2CaptionF2题题按题 控件～通题其性口名分题题题属窗将称、～题题;属青性,分题题题“题”和“大题”。Op3Op4Caption画个一 文本控件～通题其性口名题题框属窗将称。Text1 题题文本控件;行框即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Text1_Click()If Op1 And Op3 Then 坐汽题去题青Text1.Text = "" ElseIf Op1 And Op4 Then 坐汽题去大题Text1.Text = "" ElseIf Op2 And Op3 Then 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教76 坐题船去题青Text1.Text = "" ElseIf Op2 And Op4 Then 坐题船去大题Text1.Text = "" End If End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbwout3.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～题在上二文本～其窗体画个框2sjt4.vbp名分题题称、～文本容分题题置题“框内等题考题”、“题算Text1Text2 机”。然后一题题～其名题画个称～高度题 ～题度题。再画Lab13752000两个称题题按题～名分题题和～题题分题题“交题”和“题接”～Op1Op2 题适的事件程序。程序行后～如果题中“写当运并窗交题”题题按题题题题体～题 文本中容 框内与文本中容题行框内并交题～在题题中Text1Text2 题示“交题成功”;如题所示,～如果题中“题接”题题按题题题题题～并窗体题把和的容按内在前、在后的题序题接起在题来并Text1Text2Text1Text2 题中题示。 存题题～工程文件名题 ～文件名题窗体。sjt4.vbpsjt4.frm注意, 不得修改已题题出的程序。在题束程序行之前～必题题中一题题按运个 题～题题。并窗体窗体退出程序题必题通题题题右上角的题题按题～否题可能无成题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 在题上二文本～通题其性口名分题题题窗体画个框属窗将称、～文本容;框内属Text1Text2Text 性,分题 题置题“等题考题”、“题算机”。一题题～通题其性口名题题画个属窗将称～高度;属Lab1Height 性,题题 ～题度;属性,题题。再二题题按题～通题其性口名分题题题画个属窗将称、～题375Width2000Op1Op2 题容内 ;属性,分题题置题“交题”、“题接”。Caption 题题;行窗体即运事件题程,～在事件题程中加入题句,ClickClick Private Sub Form_Click() If Op1 Then Lab1.Caption = Text1.Text Text1.Text = Text2.Text Text2.Text = Lab1.Caption 交题成功Lab1.Caption = "" ElseIf Op2 Then Lab1.Caption = Text1.Text & Text2.Text End If End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbwout4.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教77 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～题先装入题工程文件～然后完成sjt5.vbp 以下操作, 在名题称的上三命令按题～其名分题题窗体画个称、和～题题Form1 C1C2C3分题题“题入据”、“题算”和“存题”;如题所示,。程序行后～如数运 果题题“题入据”按题～题题用题目已提供的数和题程ReadData1ReadData2题入和文件中的各个数整～分题放入和datain1.txtdatain2.txt20Arr1Arr2两个数两个数题中～ 如果题题“题算”按题～ 题把题中题题下题的元素相除截并个数即个数尾取整后～题果放入第三题中;,把第一题的第 个元素n除以第二题的第个数个个数元素～题果截尾取整后作题第三题的第个元素。nn题里的题、、、,～最后题算第三题各个数并元素之和～把所求得n12...20 的和在上题示出～如果题题“存题”按题～题题用题目中题出的窗体来 题程所求得的和存入考生文件题下的将文件中。WriteDatadataout.txt注意, 考生不得修改文件中已题存在的程序～必题把求得的题果用“存题”窗体 按题存入考生文件题下的文件中～否题有成题。最后把修没dataout.txt 改后的文件以原的文件名存题。来 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的控件不完整～需在题上三命令按题控件～通题其性口名分窗体窗体画个属窗将称 题题题、C1 和～题题;属数性,分题题题“题入据”、“题算”和“存题”。C2C3Caption 由于所提供的程序不完整～需添加事件题程。窗体 题题“题入据”按题;行数即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C1_Click() ReadData1 ReadData2 End Sub 题题“题算”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C2_Click() Dim Arr3(20) As IntegerSum = 0 For i = 1 To 20 Arr3(i) = Int(Arr1(i) / Arr2(i))Sum = Sum + Arr3(i) Next i Print "Sum = "; Sum End Sub 题题“存题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C3_Click() WriteData "DataOut.txt", SumEnd Sub 题量存放和的题果～在事件题程中都要使用～所以定题成全它几个即声局题量～在明部分Sum 加入题句, Dim Sum As Integer 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwDataOut.txt 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教78 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第套,20 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic;,在 的上一名题窗体画个称的题片～然后建立一主菜题～题题框个1Form1P1 题“操作”～名题称～题菜题有子菜题～其题题分题题“题示”和两个Op “除”～名分题题 清称和～题适的事件题程。程序行后～写当运DisClea 如果题题“操作”菜题中的“题示”命令～题在题片中题示“框等题考题”～如果题题“除”命令～题除题片中的信清清框运况息。程序的行情如题所示。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。程序中不得使用任何题量。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题片控件～通题其性口名题题窗体画个框属窗将称。通题菜题题题器建立一主菜题～在个P1 菜题 题题器的题题题题入“操作”～名题题入称～在题菜题下有二子菜题～在菜题题题器的题题题分题题入“题个Op 示”和“除”～名题分题题入清称和。DisClea 题题“操作”菜题中的“题示”命令;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Dis_Click() 等题考题P1.Print "" End Sub 题题“操作”菜题中的“除”命令;行清即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Clea_Click()P1.Cls End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在 的上一列表～名题窗体画个框称～通题性口向列表中添属窗框2Form1L1 加 个题目～分题题“、“、“和“～题适写4AAAA”BBBB”CCCC”DDDD”当条运双框的事件题程～题程中只能使用一命令。程序行后～如果题列表中的某一题～题把题题添加到列表中。程序的行框运况情如题所示。注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题。sjt2.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教79 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一列表控件～通题其性口名题题窗体画个框属窗将称～向列表中添加题目;框属L1List 性,～添加 的题目分题题“、“、“和“～每题目题一行。个AAAA”BBBB”CCCC”DDDD”双框即运题列表;行事件题程,～在题事件题程中加入题句,DblClickDblClickPrivate Sub L1_DblClick()L1.AddItem L1 End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.frxsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～题在上架～其名窗体画两个框1sjt3.vbp称分题题和～题题分题题“交通工具”和“到目题”。在达中画两F1F2F1个称题题按题～名分题题和～题题分题题“题机”和“火题”。在Op1Op2 中题题按题～名分题题画两个称和～题题分题题“州”和“广昆F2Op3Op4 明”。一文本～其名题画个框称。题适事件题程。程序行后～写当运Text1 题题不同题题按题题题后在文本题中题示题果题下表并窗体框 程序的行运况情如题所示。存题题～按原文件名存题。 注意, 考生不得修改文件中已题存在的程序～在题束程序行之前～必窗体运 题至少题行上面的一题操作。退出程序题必题通题题题右上角的窗体 题题按题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教80 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的控件不完整～需在题上二架控件～通题其性口名分题题题窗体窗体画个框属窗将称 、～F1F2 题题;属达性,分题题题“交通工具”和“到目题”。在框画个架中二题题按题控件～通题CaptionF1其性属窗 口名分题题题将称、～题题;属性,分题题题“题机”和“火题”。在框画个架中二Op1Op2CaptionF2 题题按题 控件～通题其性口名分题题题属窗将称、～题题;属广性,分题题题“州”和“昆Op3Op4Caption明”。一画个 文本控件～通题其性口名题题框属窗将称。Text1 由于所提供的程序不完整～需添加事件题程。窗体 题题;行窗体即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Form_Click()If Op1 And Op3 Then 坐题机去州广Text1.Text = "" ElseIf Op1 And Op4 Then 坐题机去昆明Text1.Text = "" ElseIf Op2 And Op3 Then 坐火题去州广Text1.Text = "" ElseIf Op2 And Op4 Then 坐火题去昆明Text1.Text = "" End If End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbwout3.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～题在上三文本～其窗体画个框2sjt4.vbp名分题题称、和～文本容分题题置题“框内等题考题”、Text1Text2Text3 “题算机”和空白。然后题题按题～其名分题题画两个称和～题题Op1Op2分题题“交题”和“题接”;如题所示,～题适的事件程序。程序写当运 行后～如果题中“交题”题题按题题题并文本～题框文本中框Text3Text1内与容 文本中容题行框内并交题～在 文本中题示“框交题成Text2Text3功”～如果题中“题接”题题按题题题 并文本～题把 框和Text3 Text1 的容按内、的题序题接起～在来并文本中题示题框Text2Text1Text2Text3接后的容。存题题～按原文件名存题。内 注意,不得修改已题题出的程序。在题束程序行之前～必题题中一题运个 题按题～然后题题 。退出程序题必题通题题题右上角的题题按窗体Text3 题～否题可能无成题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教81 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的控件不完整～需在题上三文本控件～通题其性口名分题窗体窗体画个框属窗将称 题题、Text1 和～题题;属画个性,分题题题“等题考题”、“题算机”和空白。再二题题按题控Text2Text3Caption 件～通 题其性口名分题题题属窗将称、～题题;属性,分题题题“交题”和“题接”。Op1Op2Caption题题文本;行框即运事件题程,～在题事件题程中加入题句,Text3ClickClickPrivate Sub Text3_Click()If Op1 Then Text3.Text = Text1.Text Text1.Text = Text2.Text Text2.Text = Text3.Text 交题成功Text3.Text = "" ElseIf Op2 Then Text3.Text = Text1.Text & Text2.Text End If End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～题先装入题工程文件～然后完成sjt5.vbp 以下操作, 在名题称的上三命令按题～其名分题题窗体画个称、和～题题Form1 C1C2C3分题题“题入据”、“题算”和“存题”;如题所示,。程序行后～如数运 果题题“题入据”按题～题题用题目已提供的数和题程ReadData1ReadData2题入和文件中的各个数整～分题放入和datain1.txtdatain2.txt20Arr1Arr2两个数两个数题中～如果题题“题算”按题～题把题中题题下题的元素相整除～其题果放入第三题中;,第一题的第 个数即个数个个数元素整除第二n 题的第个个数元素～其题果作题第三题的第 个元素。题里的 题、、nn n12、,～然后题算第三题各个数并窗体元素之和～把所求得的和在上题...20 示出～如果题题“存题”按题～题题用题目中题出的 来题程所将WriteData求得的和存入考生文件题下的文件中。dataout.txt 注意, 考生不得修改文件中已题存在的程序～必题把求得的题果用“存题”窗体 按题存入考生文件题下的文件中～否题有成题。最后把修没dataout.txt 改后的文件以原的文件名存题。来 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教82 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的控件不完整～需在题上三命令按题控件～通题其性口名分窗体窗体画个属窗将称 题题题、C1 和～题题;属数性,分题题题“题入据”、“题算”和“存题”。C2C3Caption 由于所提供的程序不完整～需添加事件题程。窗体 题题“题入据”按题;行数即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C1_Click()ReadData1 ReadData2 End Sub 题题“题算”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C2_Click()Dim Arr3(20) As IntegerSum = 0 For i = 1 To 20 Arr3(i) = Int(Arr1(i) / Arr2(i))Sum = Sum + Arr3(i) Next i Print "Sum = "; Sum End Sub 题题“存题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C3_Click()WriteData "DataOut.txt", SumEnd Sub 题量存放和的题果～在事件题程中都要使用～所以定题成全它几个即声局题量～在明部分Sum 加入题句, Dim Sum As Integer 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwDataOut.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第套,21 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER%********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic;,在名题称的上一名题窗体画个称、题题题“打题”的命令1Form1command1按题～然后一名题画个称的通用题题;如题所示,～题适的事框写当CD1 件题程～使得行程序题～题题“打题”命令按题～ 题题出打题文件题运 题。在性口中题置通用题题的适性～ 使得题题中题示的框属窗框当属框 文件题型第一题题“所有文件”～第二题题“～默题的题题器题*.DOC” 文件。.DOC 注意, 要求程序中不得使用题量～事件题程中只能一题句。存题题必题存写条 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教83 放在考生文件题下～工程文件名题～文件名题窗体。sjt1.vbpsjt1.frm解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一命令按题控件～通题其性口名题题窗体画个属窗将称～题题;属性,题Command1Caption题打题。"" 画个框属窗将称一通用题题控件～通题其性口名题题～属性题题所有文件CD1Filter"|*.*|*.Doc| ～*.doc" 属性题题。FilterIndex2 题题打题按题;行即运事件题程,～在题事件题程中加入题句,""ClickClick Private Sub Command1_Click() CD1.ShowOpen End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp ********************************************************************** ;,在名题 称的上一文本～名题窗体画个框称～其初始容题内～2Form1Text10画个称一命令按题～名题～题题题“题始题”～再一名题 数画个称C1T1 的题题器。要求在题始行题不题～题题“题始题”按题后～ 使文运数数 本中的每秒加框数。在命令按题的适事件题程中加入题句,当1 ～题适的事件题程题题题功能～要求只能题并写当个写T1.Enabled = True 一题句。行题的如题所示。条运窗体 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp 名题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本～通题其性口名题题窗体画个框属窗将称～文本中的初始容;框内属Text1Text性,题题。0 画个属窗将称一命令按题～通题其性口名题题～题题;属数画个性,题题“题始题”。再一C1Caption 题题器～ 通题其性口名题题属窗将称～属性题题;每秒加,～属性题题;程即T1Interval10001EnabledFalse序题始行运 题不题,。数 题题命令按题;行即运事件题程,～在事件题程中加入题句,～即ClickClickT1.Enabled = True 启题了题 题器。在题题器的事件题程中加入题句,～完成每秒加即功能。TimerText1.Text = Text1.Text + 11参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp 题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教84 ;,在考生文件题下有一工程文件个～包含名分题题它两个称1sjt3.vbpForm1和的～窗体和窗体上建立了题题分题题“和“Form2Form1Form2C1”C2”的按题。题把上按题的题题改题“题束”～把上按题的题题Form1Form2 改题“题示”～并将题题题～题启窗体将题题不题示。Form2Form1 题程序题题的功能是,在程序行题题示运窗体～题题上的“Form2Form2题示”按题～题题示窗体～若题题上的“题束”按题～题题Form1Form1 题和～题束程序行。并运Form1Form2 题去掉程序中的注题符～把程序中的,改题正的容～使其题题上述确内 功能～但不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。正程序行后的界面如题所示。确运 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的窗体属窗将控件不完整～通题其性口题题;属性,题题“题束”。Form1Caption提供的窗体属窗将控件不完整～通题其性口题题;属性,题题“题示”。题题“工Form2Caption程”菜题 下的“工程属属窗卡将启性”题题～打题题工程的性口～在通用题题中题题象题题即可。1Form2由于所提供的窗体窗体程序不完整～在的事件题程中～有二题Form2Private Sub C2_Click() 地方需要修改。 将题句1) 'Load ? 改题 Load Form1 将题句2) '? = True 改题 Form1.Visible = True 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt31.frmsjt32.frmsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～上有一名题窗体个的题片框2sjt4.vbpP1～一题题按题题～含三题题按题～题题分题题“正方形”、“题题个数个 形”、“题形”～题有一题题题“题示”的命令按题。程序的功能是在个 运个行题～如果题中一题题按题后～题题“题示”按题～题根据题题按题的题中情况框～在题片中题示“题题了正方形”、“题题了题题形”或“题题了题形”～如题所示。 要求, ,原题中的题题按题和命令按题有题题～题利用性口没属窗依次添加题1 题按题题题分题题“正方形”、“题题形”、“题形”～添加命令按题题题题“题示”。 ,去掉程序中的注题符～把程序中的 ,改题正的容～使其题题上述确内2 功能。 注意,不能修改程序中的其他部分～也不能修改控件的其他性。最后把属修改后的程序以原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教85 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的控件不完整～通题性口题题按题的题题;窗体属窗将属性,分题题题“正方Caption形”、“题 题形”、“题形”。通题性口命令按题题题;属窗将属性,题题“题示”。Caption由于所提供的程序不完整～在命令按题的窗体事件题程中～有二题地方Private Sub C1_Click() 需要修改。 将题句1) 'If Op1(k).? = True Then改题 If Op1(k).Value = True Then将题句2) 'Call draw(?) 改题 Call draw(k) 在事件题程中～有一题地方需要修改。Sub draw(a As Integer)将题句1) 题题了'P1.Print "" & Op1(?).Caption改题 题题了P1.Print "" & Op1(a).Caption参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个。行程序题～在文本中题入一运框sjt5.vbp 个数找找数个素～然后题题 “题” 命令按题～出小于题定素的三最大的素数并数～题示在题题控件题中～如题所示。Label1 要求, 工程文件中已题出部分程序～其中的题程用判一是否题素来断个数IsPrime 数写找。题题“题”命令按题的事件题程中的部分程序代题。注意, 程序题题通题后～在“题定的素”题题的文本中题入数框～题行“并12379题”命令～到题足件的三素题示在题题中～否题有成题。找将找条个数没 不得修改程序的其他部分和控件性。 最后把修改后的文件按原文件名存属 题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教86 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需在窗体题找命令按题的事件题程中加入题句,""ClickPrivate Sub Command1_Click() 考生题程序题始写' '====================================== Dim i As Integer Dim n As Integer Dim counter As Integer Dim arr(3) As Integer n = Val(Text1.Text) counter = 0 For i = n - 2 To 3 Step -2If IsPrime(i) Then arr(counter) = i counter = counter + 1 If counter = 3 Then Exit For End If End If Next For i = 0 To 2 Label1(i).Caption = arr(i)Next '========================================= 考生题程序题束写' Open App.Path & "\out5.dat" For Output As #1 Print #1, Text1.Text, Label1(0).Caption, Label1(1).Caption, Label1(2).Caption Close #1 End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.dat 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,22 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上添加一题题器控件～名题窗体个称。题利用属1Form1Timer1性口题置适性～使得在行题可以每窗当属运隔秒～题用题题器的 1Timer事件题程一次。外～题把的题题题置题“题目另窗体。题题题段的窗2” 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教87 体如题所示。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 题上一题题器控件～通题其性口名题题窗体画个属窗将称～属性题题;每秒加Timer1Interval1000,。通1 题窗体属窗将的性口其题题;属性,题题“题目。Form1Caption2”参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一文本～名题窗体画个框称～无初始容～再内2Form1Text1画个框称一题片～名题。题题适的事件题程～使得在行题～在写当运P1 文本中每题入一字符～就在题片中题出一行文本中的完整容～框个框框内 运窗体行题的如题所示。程序中不能使用任何题量。 注意,* 保存题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本控件～通题其性口名题题窗体画个框属窗将称～属画个框性题空。一题片Text1Text控件～通 题其性口名题题属窗将称。P1 题题题目的要求;行即运事件题程,～在题事件题程中加入题句,Text1_ChangeChangePrivate Sub Text1_Change()P1.Print Text1.Text End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教88 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生目题下有一工程文件个～上有一题题按题题～含窗体个数1sjt3.vbp 三题题按题～均有题题～题利用性口～题题题按题个没属窗依次添加题题题“北京”、“上海”、“州”～再添加一题题题“题示”的命令按广个 题～如题所示。程序的功能是在行题～如果题中一题题按题后～题题运个 “题示”按题～题根据题题按题的题中情况窗体～在上题示“我的出生地是北京”、“我的出生地是上海”或“我的出生地是州”。要求,广 , 依次添加题题按题题题题“北京”、“上海”、“州”～题初始题广1 中的是“州”～添加命令按题题题题“题示”。广 , 去掉程序中的注题符～把程序中的,改题正的容～使其题题上述确内2 功能～但不能修改程序中的其他部分～也不能修改控件的其他性。属最后把修改后的文件按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的控件不完整～通题题题按题性口题题;窗体属窗将属性,分题题题“北京”、Caption “上海”、 “州”～把“州”题题按题的广广属性题题。通题命令按题性口题题;属窗将属ValueTrueCaption 性,题题“题 示”。 由于所提供的程序不完整～在“题示”按题的窗体事件题程中～有三题地Private Sub C1_Click() 方需要 修改。 将题句1) 'For i = ? To ? 改题 For i = 0 To 2 将题句2) 'If Op1(i).? = True Then 改题 If Op1(i).Value = True Then将题句3) 我的出生地是'Print "" + Op1(i).? 改题 我的出生地是Print "" + Op1(i).Caption参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生目题下有一工程文件个～题在窗体画个中三题题～2sjt4.vbpForm1名分题题称、、～题题分题题“字”、“字”、“题算号体机等题B1B2L1 考题”～其中的高题 ～题题～再在、题题的下面题画两个L15003000B1B2 合～名分题题框称、～题并添加题目,“、“、“Cb1Cb2Cb110”15”20”～题添加题目,“黑”、“题”、“体隶体写当宋”。题题适的事Cb2 件题程～使得在行题～在运当中题一字、在个号中题一字～题个体Cb1Cb2题中的文字立题题题定的字和字。如题所示。即号体L1 注意, 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教89 考生不得修改文件中已题存在的程序～在题束程序行之前～必题窗体运 题题一字和字。必题用右上角的题题按题题束程序～否题无个号体窗体 成题。最后～按原文件名存题～程序中不能使用任何题量。解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的控件不完整～需在题上三题题控件～通题其性口名分题题题窗体窗体画个属窗将称 、、B1B2 ～题题;属号体并性,分题题题“字”、“字”、“题算机等题考题”～题题题的高L1CaptionL1 ;属性,Height 题题～题;属性,题题。再二题合控件～通题其性口名分题题题画个框属窗将称500Width3000 、～题并Cb1Cb2 题目;属性,添加“、“、“内容～题题目;属体性,添加“黑”、Cb1List10”15”20”Cb2List “题”、隶 “宋体内”容。 题题字;行号即运事件题程,～在题事件题程中加入题句,Cb1ClickClickPrivate Sub Cb1_Click()L1.Font.Size = Cb1.TextEnd Sub 题题字;行体即运事件题程,～在题事件题程中加入题句,Cb2ClickClickPrivate Sub Cb2_Click()L1.Font = Cb2.Text End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER%在考生目题下有一工程文件 个～其上有一文本～名题窗体个框称sjt5.vbp ～题有命令按题～名分题题两个称、～题题分题题“题算”、“Text1C1C2 存题”～如题所示。有一函题程并个数可以在程序中直接题用～isprime(a)其功能是判断参数是否题素～如果是素～题数数返回～否题返回aTrue 。False 题题适的事件题程～ 使得在行题～题题“题算”按题～题出大于写当运找 的第个数并素～题示在 中～题题“存题”按题～题把中150001Text1Text1的题算题果存入考生文件题下的文件中。out5.txt 注意, 考生不得修改函题程和控件的性～必题把题算题果通题“存数属isprime 题”按题存入文件中～否题无成题。out5.txt 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教90 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需添加二按题的事件题程。窗体个 题题“题算”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C1_Click()a% = 15000 Do a% = a% + 1 Loop Until isprime(a%)Text1.Text = a% End Sub 题题“存题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C2_Click()Open App.Path & "\out5.txt" For Output As #1 Print #1, Text1.Text Close #1 End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,23 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上一名题窗体画个称的水平题题～题在性口中条属窗1Form1H1 题置的性题～题足以下要求,的最大它属它刻度题题～最小刻度题题100 ～ 在行题鼠题题题题题上题题以外的运条框区两域;不包括题按题,～1 题题移题框个条画两个称刻度。再在题题下面名分题题、的题题～10L1L2 并分题题示、～行题的如题所示。运窗体1100 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp 名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一窗体画个条属窗将称水平题题控件～通题其性口名题题～属性题题～属性题题H1Min1Max ～100 属性题题。二题题控件～通题其性口名分题题题画个属窗将称、～题题;属LargeChang10L1L2Caption 性,分题 题题、。1100 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教91 ********************************************************************** ;,在名题称的上文本～名分题题窗体画两个框称和～均2Form1 Text1Text2无初始容～再建立一下内个称拉菜题～菜题题题题“操作”～名题～M1 此菜题下含有菜题题～名分题题两个称和～题题分题题“题Copy Clear 制”、“除”～题题适的事件题程～使得在行题～题题“题制清写当运 ”菜题题～题把中的容题制到内中～题题“除”菜题题～清Text1Text2 题除清中的容;在内即中入空字符串,。行题的如填运窗体Text2Text2 题所示。要求在程序中不得使用任何题量～每事件题程中只能一个写条 题句。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp 名题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上二文本控件～通题其性口名分题题题窗体画个框属窗将称、～文本容;内Text1Text2Text属性,均 题题空。通题菜题题题器建立一主菜题～在菜题题题器的题题题题入“操作”～名题题入个称～在题菜题下M1有二子菜题～在菜题题题器的题题题分题题入“题制”、“除”～名题分题题入个清称和。CopyClear题题“操作”菜题中的“题制”命令;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub copy_Click() Text2 = Text1 End Sub 题题“操作”菜题中的“除”命令;行清即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub clear_Click() Text2 = "" End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生目题下有一工程文件个～上已题有一题题窗体个～1sjt3.vbpLabel1题一题题按题题～名题画个数称～含三题题按题～题的个它属性Op1Index分题题、、～ 题题依次题“题机”、“火题”、“汽题”～再一画个012 名题称的文本。文件中已题题出了框窗体的事件题程～ 但Text1Op1Click不完整～要求去掉程序中的注题符～把程序中的,改题正的容～使得确内 在行题题题“题运机”或“火题”题题按题题～在中题示“我坐题Text1 机去”或“我坐火题去”～题题“汽题”题题按题题～在中题示“Text1 我题汽题去”～如题所示。 注意, 不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教92 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的控件不完整～在题上需一题题按题控件～通题题题题按题控件的题制题生题题窗体窗体画个 按题控件题～共有三题题按题～通题其性口名题题数个属窗将称～属性分题题题、、～按题Op1Index012序其将 题题;属画个框属窗性,分题题题“题机”、“火题”、“汽题”。再一文本控件～通题其性口Caption 将称名 题题。Text1 另窗体窗体外所提供的程序也不完整～在的事件题程中～有二题地方Private Sub Op1_Click() 需要修改。 将题句1) 'Select Case ? 改题 Select Case Index 将题句2) 去'Text1.Text = ? + Me.Op1(1).Caption + "" 改题 去Text1.Text = a + Me.Op1(1).Caption + "" 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生目题下有一工程文件个～窗体个框中有一文本～名2sjt4.vbpForm1 称题～题在上架～名分题题窗体画两个框称、～题题分题题“Text1F1F2 性题”、“身份”～在中题题按题画两个、～题题分题题“男”F1Op1Op2 、“女”～在中题题按题画两个、～题题分题题“生”、“学教F2Op3Op4 题”～再一命令按题～名题画个称～题题题“定”。如题所示。题题确C1 写当运适的事件题程～使得在行题～在、中各题一题题按题～然后个F1F2 题题“定”按题～就可以按确框照下表把题果题示在文本中。最后把修改后的文件以原的文件名存题。来 注意, 考生不得修改文件中已题存在的程序和窗体的性～在题束程序属Text1 运个窗体行之前～必题题行能题题生上表中一题果的操作。必题用右上角的题题按题题束程序～否题无成题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教93 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的控件不完整～需在题上二架控件～通题其性口名分题题题窗体窗体画个框属窗将称 、～F1F2 题题;属份性,分题题题“性题”、“身”。在框画个属窗架中二题题按题控件～通题其性CaptionF1 口名将称 分题题题、～题题;属性,分题题题“男”、“女”。在框画个架中二题题按题控件～Op1Op2CaptionF2通题其 属窗将称性口名分题题题、～题题;属学教画个性,分题题题“生”、“题”。一命令Op3Op4Caption按题控件～ 通题其性口名题题属窗将称～题题;属确性,题题“定”。C1Caption 由于所提供的程序不完整～需添加事件题程。窗体 题题“定”按题;行确即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C1_Click() 我是Text1.Text = "" If Op1.Value Then Text1.Text = Text1.Text + Op1.Caption Else Text1.Text = Text1.Text + Op2.Caption End If If Op3.Value Then Text1.Text = Text1.Text + Op3.Caption Else Text1.Text = Text1.Text + Op4.Caption End If End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbwout4.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 以下列,数～～～～～～～～…～的题律是第从个数题始～每11235813213个数它两个数是前面之和。 在考生文件题下有一工程文件个。中已题题出了所有控件～如窗体sjt5.vbp 题所示。题题适的事件题程完成以下功能,题中一题题按题后～题题写当个 “题算”按题～题题算出上述列的第数题的题～题示在文本中～并框是题nn中的题题按题后面的题。;提示,因题算题果题大～题使用题整型题量。,数 注意, 不能修改已题题出的程序和已有的控件的性～在题束程序行之前～必属运 题题中一题题按题～题题“题算”按题题得一题果～必题使用个并个窗体 右上角的题题按题题束程序～否题无成题。最后把修改后的文件按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教94 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“题算”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command1_Click()Dim a As Long, a1 As Long, a2 As Long Dim k As Integer, n As IntegerFor k = 0 To 2 If Op1(k).Value Then n = Val(Op1(k).Caption) End If Next k a1 = 1 a2 = 1 For k = 3 To n a = a1 + a2 a1 = a2 a2 = a Next k Text1.Text = a End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,24 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic;,在名题称的上一题题～名题窗体画个称～题题上题示“题题入密1Form1 L1 题”～一名题画个称的文本～其题、高分题题框和～题置适Text12000300当属框的性使得在题入密题题～文本中题示“字符～此外再把的窗体*” 题题题置题“密题口”～以上题些题置都必题在性口中题行～行窗属窗运 题的如题所示。窗体 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教95 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题～通题其性口名题题窗体画个属窗将称～题题中的容;内属性,题题“题题入密L1Caption 题”。 再一文本～通题其性口名题题画个框属窗将称～题度;属性,题题～高度;Text1Width2000Height 属性,题题 ～题在题入密题题～文本中能题示“框字符～题将属性题题。此外通题窗300*”PasswordChar*Form1 体属的性 窗将口其题题;属窗性,题题“密题口”。Caption 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一题片～名题窗体画个框称～题题适的事件写当2Form1 P1题程～使得在行题～每题题一次题片～就在题片中题出“题题题运框框 片”～每题题题片外的一次～就在中题出“题题”～框框窗体窗体窗体 运窗体个行题的如题所示。要求程序中不得使用题量～每事件题程中只能一题句。写条 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题片控件～通题其性口名题题窗体画个框属窗将称。P1题题;行的窗体即运窗体事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Form_Click() 题题窗体Print "" End Sub 题题题片;行题片的框即运框事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub P1_Click() 题题题片框P1.Print "" End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教96 题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生目题下有一工程文件个～中有题片～名分题窗体两个框称1sjt3.vbp 题、～其中的题片分题是一个个航天题机和一题云彩～题有一题题器P1P2 ～名题称～一命令按题～名题个称～题题题“题射”。题出了并Timer1C1 两个并事件题程～但不完整～要求, ,题置题题器的性～使其在初始题下不题题～属状1 ,题置题题器的性～使其每属隔秒题用事件题程一次。20.1Timer ,去掉程序中的注题符～把程序中的 ,改题正的容～使得在行题确内运3 题题“题射”按题～题航天题机每隔秒向上移题一次～到当达的0.1P2 下方题停止移题～如题所示。 注意, 不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的控件不完整～通题题题器性口初始题;窗体属窗将状属性,题题Enabled ～属FalseInterval 性题题。100 由于所提供的程序不完整～在“题窗体射”按题的事件题程中～有一题地Private Sub C1_Click() 方需要 修改。 将题句1) 'Timer1.Enabled = ? 改题 Timer1.Enabled = True 在题题器的事件题程中～有二题地方需要修改。Private Sub Timer1_Timer()将题句1) 'If P1.Top > P2.Top + P2.? Then改题 If P1.Top > P2.Top + P2.Height Then将题句2) 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教97 'Timer1.? = False 改题 Timer1.Enabled = False 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.frxsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp*********************************************************************** ;,在考生文件题下有一工程文件个～行运况情如题所示。程序的功2sjt4.vbp能是题算如下表式的题,达 z=(x+2)^2+(x+3)^3+(x+4)^4+…+(x+N)^N 其中的和题通题题题分题题入到文本框、中。之后如果题题NxText1Text2名题称、题题题“题算”的命令按题～题题算表式的题达～并Command1z将称题算题果题示在名题的题题中。Label1 在题出的文件中已题添加了全部控件和程序～但程序不完整。要求去窗体 掉程序中的注题符～把程序中的 ,改题正的容。确内 注意, 考生不得修改文件中已题存在的程序。程序中不得使用窗体运算符～而^题使用函数题行题算。程序运运数至少行一次～ 按照下题题入据～使xn ～ ～ 题题“题算”按题～题算 的题～ 题果题示在题题并将N=5x=10z 中～否题有成题。最后～程序按原文件名存题。没Label1 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在窗体题程中～有二Private Function xn(a As Single, m As Integer) 题地 方需要修改。 将题句1) 'tmp = ? 改题 tmp = a * tmp 将题句2) 'xn = ? 改题 xn = tmp 由于所提供的程序不完整～在命令按题的窗体事件题程中～有Private Sub Command1_Click() 二题地方需 要修改。 将题句1) 'z = z +? 改题 z = z + xn(t, i) 将题句2) 'Label1.Caption = ? 改题 Label1.Caption = Str(z)参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbwout4.dat 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教98 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生目题下有一工程文件个～其上有一文本～名题窗体个框称sjt5.vbp ～题有命令按题～名分题题两个称、～题题分题题“题算”、“Text1C1C2 存题”～如题所示。有一函题程个数可以在程序中直接题用～isprime(a)其功能是判断参数是否题素～如果是素～题数数返回～否题返回aTrue 。False 题题适的事件题程～使得在行题～题题“题算”按题～题出小于写当运找 的最大的素～题示在数并中～题题“存题”按题～题把中18000Text1Text1的题算题果存入考生目题下的文件中。out5.txt 注意, 考生不得修改函题程和控件的性～必题把题算题果通题“存数属isprime 题”按题存入文件中～否题无成题。out5.txt 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“题算”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C1_Click() a% = 18000 Do a% = a% - 1 Loop Until isprime(a%) Text1.Text = a% End Sub 题题“存题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C2_Click() Open App.Path & "\out5.txt" For Output As #1 Print #1, Text1.Text Close #1 End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第套,25 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic;,在名题称的上一题题～名题窗体画个称～题题题“题余题好”～1Form1 L1 再一名题画个称的题题题～含框数个框它题题～题题的属性分题Ch13Index题、、～题题依次题“育”、“体框音题”、“美题”～题题置题题012 的性～使其初始题如下表所示,属状 体育 题中 可用 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教99 音题 未题中 不可用 美题 未题中 可用 运窗体行后的如题所示。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题控件～通题其性口名题题窗体画个属窗将称～题题;属性,题题“题余题好”。L1Caption 画 一题题控件～通题题题题控件的题制题生题题控件题～共有三题题～通题其性口题名个框框框数个框属窗将 称题 题～属性分题题题、、～按题序其题题;将属体性,分题题题“育”、“音题”、Ch1Index012Caption“美题”～ 由于题目要求“育”题题题在题中题;体框状属性,题题～要求“育”、“体框美题”题题题在可Value1用状 题;属性,分题题题。EnabledTrue 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一文本～名题窗体画个框称～再建立一下个拉菜2Form1Text1题～菜题题题题“操作”～名题称～此菜题下含有菜题题～名分两个称M1 题题和～题题分题题“题示”、“题藏”～题题适的事件题写当ShowHide 程～使得在行题～题题“题藏”菜题题～题文本消失～题题“题示”运框 菜题题～题文本重框运窗体新出题。行后的如题所示。要求程序中不得使用题量～每事件题程中只能一题句。个写条 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本控件～通题其性口名题题窗体画个框属窗将称。通题菜题题题器建立一主菜题～个Text1在菜 题题题器的题题题题入“操作”～名题题入称～在题菜题下有二子菜题～在菜题题题器的题题题分题题入个M1 “题示”、“题藏”～名题分题题入称和。ShowHide题题“题示”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub show_Click() 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教100 Text1.Visible = True End Sub 题题“题藏”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub hide_Click()Text1.Visible = False End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在名题称的上一名题窗体画个称的题题～题题题“口令”～画两1Form1 L1 个框称文本～名分题题、～都有初始容～再三命令按没内画个Text1Text2 题～名分题题称、、～题题分题题“题示口令”、“题藏口令”、C1C2C3 “题制口令”～在题始行题～向运中题入的所有字符～都题示“～Text1*”题题“题示口令”按题后～在中题示所有字符～再题题“题藏口令”Text1 后～中的字符不题～但题示的都是“,”～题题“题制口令”后～把Text1 中的题题容题制到内中～如题所示。Text1Text2 要求, ,在性口中～把的题题改题“口令口”。属窗窗体窗1 ,建立适的事件题程～完成上述功能。每题程中只当个写条允题一题句2 ～且不能使用题量。 存题题～工程文件名题～文件名题窗体。sjt3.vbpsjt3.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题～通题其性口名题题窗体画个属窗将称～题题中的容;内属性,题题“口令”。L1Caption画 二文本～通题其性口名分题题题个框属窗将称和～文本中的初始容;框内属Text1Text2Text性,均题题空。画 三命令按题～通题其性口名分题题题个属窗将称、和～题题;属性,分题题题“题示口C1C2C3Caption令”、“题 藏口令”、“题制口令”。 题题题题在题始行题～向运中题入的所有字符都能题示“的功能～有地方能题题题功能。一两个Text1*” 是 通题属窗将性口属性题题“即另个可～一是在事件中加入Text1PasswordChar*”Form_LoadText1.PasswordChar 题句可。即= "*" 题题“题示口令”命令按题～在即事件题程中加入题句,～题题可即ClickText1.PasswordChar = "" 在 Text1 中题示所有字符。 题题“题藏口令”命令按题～在即事件题程中加入题句,～题题ClickText1.PasswordChar = "?"Text1中 的字符容不题～但题示的都是“,”。内 题题“题制口令”命令按题～在即事件题程中加入题句,～题题ClickText2.Text = Text1.TextText2中的 内容就是中的容～能题示出字符。内并Text1 此外通题窗体属窗将的性口其题题;属窗性,题题“口令口”。Form1Caption 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教101 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在名题称的上一名题窗体画个称的题片～利用性口把考框并属窗2Form1 P1 生目题中的题题文件放到题片中～再一通用题题控件～框画个框Open.ico 名题称～ 利用性口题置相题性～打题题题题,题题题“打属窗属即框CD1 题文件”～文件题型题“文”～初始目题题 档题根目题。再题适写WordC 当运的事件题程～使得在行题～题题题片～可以打题上述题题。框框运P1 行后的如题所示。窗体 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt4.vbp名题。程序中不得使用任何题量。sjt4.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 题上一题片控件～通题其性口名题题窗体画个框属窗将称～使用属装性入题题P1PictureOpen.ico 文件。画 一通用题题控件～通题其性口名题题个框属窗将称～属性题题打题文件～属性题CD1DialogTitleFilter 题Word 文～档属性题题。InitDir"c:\" 题题题片控件;行框即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub P1_Click() CD1.ShowOpen End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.frxsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有工程文件～上有二题题分题是“题据窗体个数1sjt5.vbp ”和“题题”的命令按题～题添加一名题个称、题题题“回文的个Label1 数个称题”的题题和一名题～初始题题空的文本～如题所示。框Text1 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教102 程序功能如下, ,题题“题据”按题～题考生文件题下数将文件的容题到题量内1in5.dat 中～s ,题题“题题”按题～题题题文件;题文件中题含由空格题隔题2in5.dat 的字母串,中回文的～题题的个数并将个数回文题示在文本框内Text1。;所题回文是指题题与倒题都一题的字符串～如“,recycer”“题据”和“题题”按题的数事件题程已题题出～ 题完善ClickFunction题程的功能～题题上述程序功能。foundhuiwen 注意, 考生不得修改文件中已存在的控件和程序～在题束程序行之前～窗体运 必题先题行题题～且必题用右上角的题题按题题束程序～否题无成窗体 题。最后～程序按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm由于所提供的控件不完整～在题上一题题控件～通题其性口名题题窗体窗体画个属窗将称～Label1题题 ;属性,题题回文的题个数。一文本控件～通题其性口名题题画个框属窗将称～文Caption""Text1本容;内Text 属性,题题空。 函数用于判字符串是否题断数回文～在题函题程中加入题句,foundhuiwen Function foundhuiwen(p As String)foundhuiwen = True k = Len(p) For i = 1 To k / 2 If Mid(p, i, 1) <> Mid(p, k + 1 - i, 1) Thenfoundhuiwen = False Exit For End If Next End Function 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.txt题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,26 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上题题;名分题题窗体画两个称和～题题1Form1Label1Label2 分题题“身高”和“重”,、文本;名分题题体两个框称和～Text1Text2 属个称性均题空白,和一命令按题;名题～题题题“题入”TextCommand1 ,。然后题命令按题的写事件题程～程序行后～如果题题命令按运Click 题～题先后题示题入题题～在题入题题中分题题入两个框两个框体身高和 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教103 重～分题在文本中题示出～行后的如题所示。要求程序并两个框来运窗体 中不得使用任何题量。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp 名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上二题题控件～通题其性口名分题题题窗体画个属窗将称、～题题;属性,Label1Label2Caption分题 题题“身高”、“重”。二文本控件～通题其性口名分题题题体画个框属窗将称、～Text1Text2Text属性均题 题空。一命令按题控件～通题其性口名题题画个属窗将称～题题;属性,题题“题Command1Caption 入”。 题题命令按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click() 题题入身高Text1.Text = InputBox("") 题题入重体Text2.Text = InputBox("") End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题 称的上一题片;名题窗体画个框称,、一个垂直题2Form1Picture1题;名题条称,和一命令按题;名题个称～题题题“题VScroll1Command1置性”,～通题性口在题片中入一题形;文件名题属属窗框装个pic1.jpg～位于考生目题下,～题片的题度题形的题度相同～题片的高度任框与框 意;如题 所示,。题适的事件题程。程序行后～如果题题命令按写当运1 题～题题置垂直题题的如下性,条属 Min 100 Max 2400 LargeChange 200 SmallChange 20 之后就可以通题移题题题上的题题题放大或题小题片的高度。行条来框运 后的如题 窗体所示。要求程序中不得使用任何题量。2 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题。sjt2.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教104 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题片控件～通题其性口名题题窗体画个框属窗将称～通题属将性Picture1Picturepic1.jpg 装入题 片。一框画个条属窗将称水平题题控件～通题其性口名题题。一命令按题控件～通题其画个HScroll1属窗性口 将称名题题～题题;属属性,题题“题置性”。Command1Caption 题题“题置性”按题;行属即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command1_Click()VScroll1.Min = 100 VScroll1.Max = 2400 VScroll1.LargeChange = 200VScroll1.SmallChange = 20End Sub 移题水平题题;行框即运事件题程,～在题事件题程中加入题句,ChangeChangePrivate Sub VScroll1_Change()Picture1.Height = VScroll1.Value End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.frxsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生目题下有一工程文件个;相题的文件名题窗体,～1sjt3.vbpsjt3.frm题入题文件～在上命令按题;其名分题题装窗体画两个称和Command1 ～题题分题题“添加题目”和“题除题目”,～再一列表画个框Command2 ;名题称,和一文本;名题个框称,～如题 所示。题适写当List1Text11 的事件题程。程序行后～如果题题“添加题目”命令按题～题题题上运从 题入要添加到列表中的题目;容任意～不框内个少于三,～如果题题“题除题目”命令按题～题题题上题入要题除的题目～其列表中题除。从将从框 程序的行运况情如题 所示。提供的文件可以题题上述功能。但题窗体个2 程序不完整～题把题它充完整。 要求, 去掉程序中的注题符～把程序中的,改题适的容～使其正行～当内确运 但不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教105 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的控件不完整～在题上需二命令按题控件～通题其性口名分窗体窗体画个属窗将称 题题题 和～题题;属画个性,分题题题“添加题目”和“题除题目”。一文本Command1Command2Caption 框控件～通题 其性口名题题属窗将称。一列表控件～通题其性口名题题画个框属窗将称。Text1List1另窗体窗体外所提供的程序也不完整～在的事件题程中～有Private Sub Command1_Click() 一题地方需要 修改。 将题句1) 'List1.AddItem ? 改题 List1.AddItem Form1.Text1.Text在的窗体事件题程中～有三题地方需要修改。Private Sub Command2_Click()将题句1) 'For i = 0 To ? 改题 For i = 0 To Form1.List1.ListCount - 1将题句2) 'If List1.List(i) = ? Then 改题 If List1.List(i) = Text1.Text Then将题句3) 'List1.RemoveItem ? 改题 List1.RemoveItem i 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个;相题的文件名题窗体2sjt4.vbpsjt4.frm ,～其功能是通题题用题程求题的最大题～题入题文件。程数装FindMax 序行后～在四文本中各题入一整～然后题题命令按题～可求运个框个数即 出题的最大题～在上题示出;如题所示,。题程序不完整～数并窗体来个 题把题它并确运充完整～能正行。 要求, 去掉程序中的注题符～把程序中的,改题正的容～使其题题上述功确内 能～但不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教106 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在命令按题的窗体事件题程中～有Private Sub Command1_Click() 二题地方需 要修改。 将题句1) 'arr2(i) = CInt(?) 改题 arr2(i) = CInt(arr1(i)) 将题句2) 'M = FindMax(?) 改题 M = FindMax(arr2()) 在函中～有四题地方需要修改。数Private Function FindMax(a() As Integer) 将题句1) 'Start = ?(a) 改题 Start = LBound(a) 将题句2) 'Finish = ?(a) 改题 Finish = UBound(a) 将题句3) 'Max = ?(Start) 改题 Max = a(Start) 将题句4) 'If a(i) ? Max Then Max = ?改题 If a(i) > Max Then Max = a(i)参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在上建立三菜题;名分题题窗体个称、和～题题分题题“题入ReadCalcSave数并画个框称据”、“题算题出”和“存题”,～然后一文本;名题～Text1 属性题置题～属性题置题,;如题所示,。程序MultiLineTrueScrollBars2 运数行后～如果题行“题入据”命令～题题入文件中的个整datain1.txt100数个数数～ 放入一题中～题的下界题～如果题题“题算题出”按题～题并1 把题题中下题题数数框来它并奇的元素在文本中题示出～求出题的和～把所求得的和在上题示出～如果题题“存题”按题～题把所求得的和存入窗体来 考生文件题下的文件中。dataout.txt 在考生文件题下有一工程文件个～考生可以入题文件。文件装窗体sjt5.vbp 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教107 中的题程可以把文件中的个数整题入数题中～ReadDatadatain1.txt100Arr而 题程可以把指定的整题题到考生文件题下指定的文件中;整数写WriteData 数题通题题算求得～文件名题,。dataout.txt 注意, 考生不得修改文件中已题存在的程序。存题题～工程文件名窗体仍题 ～文件名窗体仍题。sjt5.vbpsjt5.frm 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的控件不完整～通题菜题题题器建立三菜题～在菜题题题器的题题题分题题入“题入窗体个数 据”、“题算题出”和“存题”～名题分题题入并称、和。需在题上一文本窗体画个框ReadCalcSave控件～通 题其性口名题题属窗将称～属性题题～属性题题。Text1MultiLineTrueScrollBars2由于所提供的程序不完整～需添加事件题程。窗体 题题“题入据”按题;行数即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Read_Click()ReadData End Sub 题题“题算题出”按题;行并即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Calc_Click()Dim S As String Sum = 0 For i = 1 To 100 If i Mod 2 <> 0 Then Sum = Sum + Arr(i) S = S & Str(Arr(i)) & " " End If Next i Form1.Text1.Text = S Me.Print "Sum = "; Sum End Sub 题题“存题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Save_Click() WriteData "DataOut.txt", SumEnd Sub 题量存放和的题果～在事件题程中都要使用～所以定题成全它几个即声局题量～在明部分Sum 加入题句, Dim Sum As Integer 参考文件,参考答c:\wexam\26990001\hlpsys\ 案、、、、\sjt5.vbpsjt5.frmsjt5.frxsjt5.vbwDataOut.txt题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,27 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教108 ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题 称的上题题;名分题题窗体画两个称和～题题1Form1Label1Label2分题题“姓名”和“年题”,、文本;名分题题两个框称和～Text1Text2 属个称性均题空白,和一命令按题;名题～题题题“题示”TextCommand1,。然后题命令按题的写事件题程。程序行后～在文本中运两个框Click 分题题入姓名和年题～然后题题命令按题～题在上题示文本中窗体两个框 的容～如题所示。要求程序中不得使用任内何题量。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上二题题控件～通题其性口名分题题题窗体画个属窗将称、～题题;属性,Label1Label2Caption 分题 题题“姓名”、“年题”。一命令按题控件～通题其性口名题题画个属窗将称～题题Command1 ;属性,Caption 题题“题示”。二文本控件～通题其性口名分题题题画个框属窗将称、～文本容;内Text1Text2Text 属性,均 题题空。 题题“题示”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click() 题年 题Print Text1; ", "; Text2; " " End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题 称的上一题片;名题窗体画个框称,、一个水平题2Form1Picture1题;名题条称,和一命令按题;名题个称～题题题“题HScroll1Command1置性”,～通题性口在题片中入一题形;文件名题属属窗框装个～pic1.jpg位于考生目题下,～题片的高度题形的高度相同～题片的题度任意框与框 ;如题 所示,。题适的事件题程～程序行后～如果题题命令按题～写当运1 题题置水平题题的如下性,条属 Min 100 Max 1500 LargeChange 100 SmallChange 10 之后就可以通题移题题题上的题题题放大或题小题片。行后的条来框运窗 体如题 所示。要求程序中不得使用任何题量。2 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题。sjt2.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教109 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题片控件～通题其性口名题题窗体画个框属窗将称～属将性装入题片P1Picturepic1.jpg 框画。一 个条属窗将称水平题题控件～通题其性口名题题。一命令按题控件～通题其性口画个属窗HScroll1将称名题题 ～题题;属属性,题题“题置性”。Command1Caption 题题“题置性”按题;行属即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command1_Click()HScroll1.Min = 100 HScroll1.Max = 1500 HScroll1.LargeChange = 100HScroll1.SmallChange = 10End Sub 移题水平题题;行框即运事件题程,～在题事件题程中加入题句,ChangeChangePrivate Sub HScroll1_Change()Picture1.Width = HScroll1.ValueEnd Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个;相题的文件名题窗体1sjt3.vbpsjt3.frm,～题入题文件～在上一列表;名题装窗体画个框称,和一文本个List1 框称;名题,～如题 所示。题的写窗体事件题程。程Text1 1MouseDown 序行后～如果用鼠题左题题题～题题题上题入要添加到列表中运窗体从框 的题目;容任意～不内个窗体从少于三,～如果用鼠题右题题题～题题题上题入要题除的题目～其列表中题除。程序的行将从框运况情如题 所示。2提供的文件可以题题上述功能。但题程序不完整～题把题窗体个它充完整。要求, 去掉程序中的注题符～把程序中的,改题适的容～使其正行～当内确运 但不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教110 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的控件不完整～需在题上一列表控件～通题其性口名题题窗体窗体画个框属窗将称 。一画List1 个框属窗将称文本控件～通题其性口名题题。Text1 由于所提供的程序不完整～在的窗体窗体Private Sub Form_MouseDown(Button As Integer, Shift As 事件题程中～有四题地方需要修改。Integer, X As Single, Y As Single)将题句1) 'List1.AddItem ? 改题 List1.AddItem Text1 将题句2) 'For i = 0 To ? 改题 For i = 0 To List1.ListCount - 1将题句3) 'If List1.List(i) = ? Then改题 If List1.List(i) = Text1 Then将题句4) 'List1.RemoveItem ? 改题 List1.RemoveItem i 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个;相题的文件名题窗体2sjt4.vbpsjt4.frm,～其功能是通题题用题程求题的最小题～题入题文件。程数装FindMin 序行后～在四文本中各题入一整～然后题题命令按题～可求运个框个数即 出题的最小题～在上题示出;如题所示,。题程序不完整～数并窗体来个 题把题它并确运充完整～能正行。 要求, 去掉程序中的注题符～把程序中的,改题正的容～使其题题上述功确内 能～但不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教111 解题思路,__________ 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在命令按题的窗体事件题程中～有Private Sub Command1_Click() 一题地方需 要修改。 将题句1) 'M = FindMin(?) 改题 M = FindMin(arr2()) 在函的数事件题程中～有四题地方需要修改。Private Function FindMin(a() As Integer) 将题句1) 'Start = ?(a) 改题 Start = LBound(a) 将题句2) 'Finish = ?(a) 改题 Finish = UBound(a) 将题句3) 'Min = ?(Start) 改题 Min = a(Start) 将题句4) 'If a(i) ? Min Then Min = ?改题 If a(i) < Min Then Min = a(i)参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在上建立三菜题;名分题题窗体个称、和～题题分题题“题入ReadCalcSave数并画个框称据”、“题算题出”和“存题”,～然后一文本;名题～Text1 属性题置题～属性题置题,;如题所示,。程序MultiLineTrueScrollBars2 运数行后～如果题行“题入据”命令～题题入文件中的个整datain1.txt100数个数数～ 放入一题中～题的下界题～如果题题“题算题出”按题～题并1 把题题中下题题数数框来它并偶的元素在文本中题示出～求出题的和～把所求得的和在上题示出～如果题题“存题”按题～题把所求得的和存入窗体来 考生文件题下的文件中。dataout.txt 在考生文件题下有一工程文件个～考生可以入题文件。文件装窗体sjt5.vbp 中的题程可以把文件中的个数整题入数题中～ReadDatadatain1.txt100Arr而 题程可以把指定的整题题到考生文件题下指定的文件中;整数写WriteData 数题通题题算求得～文件名题,。dataout.txt 注意, 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教112 考生不得修改文件中已题存在的程序。存题题～工程文件名窗体仍题 ～文件名窗体仍题。sjt5.vbpsjt5.frm 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的控件不完整～通题菜题题题器建立三菜题～在菜题题题器的题题题分题题入“题入窗体个数 据”、“题算题出”和“存题”～名题分题题入题并称、、。一文本控件～通题其画个框ReadCalcSave属窗性 口名题题将称～多行;属性,题题～题题;条属性,题题。Text1MultiLineTrueScrollBars2 由于所提供的程序不完整～需添加事件题程。窗体 题行“题入据”命令;行数即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Read_Click()ReadData End Sub 题行“题算题出”命令;行并即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Calc_Click()Dim S As String Sum = 0 For i = 1 To 100 If i Mod 2 = 0 Then Sum = Sum + Arr(i) S = S & Str(Arr(i)) & " "End If Next i Text1.Text = S Print "Sum = "; Sum End Sub 题行“存题”命令;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Save_Click()WriteData "DataOut.txt", SumEnd Sub 题量存放和的题果～在事件题程中都要使用～所以定题成全它几个即声局题量～在明部分Sum 加入题句, Dim Sum As Integer 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwDataOut.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第套,28 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教113 ;,在名题 称的上题题;名分题题窗体画两个称和～题题1Form1Label1Label2分题题“题名”和“作者”,、文本;名分题题两个框称和～Text1Text2 属个称性均题空白,和一命令按题;名题～题题题“题示”,TextCommand1～如题 所示。然后题命令按题的写事件题程。程序行后～在运两个1Click 文本中分题题入题名和作框窗体者～然后题题命令按题～题在的题题题上先后题示文本中的容～如题 两个框内所示。要求程序中不得使用任何题2 量。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上二题题控件～通题其性口名分题题题窗体画个属窗将称和～题题;属Label1Label2Caption 性,分题 题题“题名”、“作者”。二文本控件～通题其性口名分题题题画个框属窗将称和～文本Text1Text2 内容;Text 属画个属窗将称性,均题题空。一命令按题控件～通题其性口名题题～题题;属Command1Caption 性,题题“题 示”。 题题“题示”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click() 作者 Form1.Caption = Text1 & ", " & Text2 End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题 称的上一窗体画个条称垂直题题;名题,和一个水2Form1VScroll1平题题;名题条称,～如题 所示。在性口中题题题题属窗两个条HScroll11 题置如下性,属 Min 1500 Max 6000 LargeChange 200 SmallChange 50 题适的事件题程。程序行后～如果改题题题上的题题的位置～写当运条框 题可题大或题小。行后的如题 窗体运窗体所示。要求程序中不得使用任2 何题量。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题。sjt2.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教114 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一窗体画个条条属窗将称垂直题题和水平题题控件～通题其性口名分题题题和VScroll1 ～HScroll1 属性均题题～属性均题题～属性均题题～属性均题Min1500Max6000LargeChang200SmallChange 题。50 移题垂直题题;行框即运事件题程,～在题事件题程中加入题句,ChangeChangePrivate Sub VScroll1_Change()Height = VScroll1.Value End Sub 移题水平题题;行框即运事件题程,～在题事件题程中加入题句,ChangeChangePrivate Sub HScroll1_Change()Width = HScroll1.Value End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.frxsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在;名题窗体称～属性题,上一列表;名题画个框称1Form1KeyPreviewTrue ,和一文本;名题个框称,～如题 所示。题的写窗体List1Text11KeyDown事件题程。程序行后～如果按“运题～题题题上题入要添加到列表从框A” 中的题目;容任意～不内个少于三,～如果按“题～题题题上题入要从D” 题除的题目～其列表中题除。程序的行将从框运况情如题 所示。2 在考生文件题下有一工程文件个;相题的文件名题窗体,sjt3.vbpsjt3.frm～可以题题上述功能。但题程序不完整～题把题个它充完整。 要求, 去掉程序中的注题符～把程序中的,改题适的容～使其正行～当内确运 但不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教115 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～根据题意在题上一列表～通题其性口名题题窗体窗体画个框属窗将称 ～另List1 外再一文本～通题其性口名题题画个框属窗将称。Text1 在的窗体事件题程中～有四题地方需要修改。KeyDown 将题句1) 'List1.AddItem ? 改题 List1.AddItem Text1 将题句2) 'For i = 0 To ? 改题 For i = 0 To List1.ListCount - 1将题句3) 'If List1.List(i) = ? Then改题 If List1.List(i) = Text1 Then将题句4) 'List1.RemoveItem ? 改题 List1.RemoveItem i 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个;相题的文件名题窗体2sjt4.vbpsjt4.frm,～其功能是通题题用题程 求题的数装平均题～题入题文件。程Average 序行后～在四文本中各题入一整～然后题题命令按题～可求运个框个数即 出题的数并窗体来个平均题～在上题示出;如题所示,。题程序不完整～题把题它并确运充完整～能正行。 要求, 去掉程序中的注题符～把程序中的,改题正的容～使其题题上述功确内 能～但不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教116 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有一题Private Sub Command1_Click() 地方需要修 改。 将题句1) 'Aver = Average(?) 改题 Aver = Average(arr2()) 在的窗体事件题程中～有五题地方需要修改。Private Function Average(a() As Integer) As Single 将题句1) 'Start = ?(a) 改题 Start = LBound(a) 将题句2) 'Finish = ?(a) 改题 Finish = UBound(a) 将题句3) 'Sum = ? 改题 Sum = 0 将题句4) 'Sum = Sum + ? 改题 Sum = Sum + a(i) 将题句5) 'Average = ? 改题 Average = Sum / Finish 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在上建立三菜题题;名分题题窗体个称、和～题题分题题“题ReadCalcSave入据”、“题算题出”和“存题”,～然后一文本;名题数并画个框称 ～属性题置题～属性题置题,;如题所示Text1MultiLineTrueScrollBars2,。程序行后～如果题行“题入据”命令～题题入运数文件中datain1.txt的个数个数数整～放入一题中～题的下界题～ 如果题题“题算题出并1001 ”命令～题把题题中可以被数整除的元素在文本中题示出～ 求出题框来它3 的和～把所求得的和在上题示出～如果题题“存题”命令～题把所并窗体来 求得的和存入考生文件题下的文件中。dataout.txt在考生文件题下有一工程文件个～考生可以入题文件。文件装窗体sjt5.vbp 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教117 中的题程可以把文件中的个数整题入数题中～ReadDatadatain1.txt100Arr而 题程可以把指定的整题题到考生文件题下指定的文件中;整数写WriteData 数题通题题算求得～文件名题,。dataout.txt 注意, 考生不得修改文件中已题存在的程序。存题题～工程文件名窗体仍题 ～文件名窗体仍题。sjt5.vbpsjt5.frm 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的控件不完整～通题菜题题题器建立三菜题～在菜题题题器的题题题分题题入“题入窗体个数 据”、“题算题出”和“存题”～名题分题题入题并称、、。一文本控件～通题其画个框ReadCalcSave属窗性 口名题题将称～多行;属性,题题～题题;条属性,题题。Text1MultiLineTrueScrollBars2 由于所提供的程序不完整～需添加事件题程。窗体 题行“题入据”命令;行数即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Read_Click() ReadData End Sub 题行“题算题出”命令;行并即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Calc_Click()Dim S As String Sum = 0 For i = 1 To 100 If Int(Arr(i) / 3) = Arr(i) / 3 Then Sum = Sum + Arr(i) S = S & Str(Arr(i)) & " "End If Next i Text1.Text = S Print "Sum = "; Sum End Sub 题行“存题”命令;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Save_Click()WriteData "DataOut.txt", SumEnd Sub 题量存放和的题果～在事件题程中都要使用～所以定题成全它几个即声局题量～在明部分Sum 加入题句, Dim Sum As Integer 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwDataOut.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第套,29 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教118 ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic;,在名题 称的上一题题;名题窗体画个称～题题题“题入信息1Form1Label1”,、一文本;名题个框称～属个性题空白,和一命令按题;Text1Text 名题称～题题题“题示”,～如题 所示。然后题命令按题的写Command11 事件题程。程序行后～在文本中题入“题算运框机等题考题”～然Click 后题题命令按题～题题题和文本消失～在上题示文本中的容。框并窗体框内 运窗体行后的如题 所示。要求程序中不得使用任何题量。2 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题控件～通题其性口名题题窗体画个属窗将称～题题;属性,题题“题入信Label1Caption 息”。 画个框属窗将称一文本控件～通题其性口名题题～文本容;内属画个性,题题空。一命Text1Text令按题控件～ 通题其性口名题题属窗将称～题题;属性,题题“题示”。Command1Caption题题“题示”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click()Label1.Visible = 0 Text1.Visible = 0 Print Text1.Text End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题 称的上一文本;名题窗体画个框称～属国性题“”2Form1Text1Text～属体个条称性题“黑”,和一水平题题;名题,～如FontNameHScroll1题 所示。在性口中题题题题置如下性,属窗条属1 Min 10 Max 100 LargeChange 5 SmallChange 2 题适的事件题程。程序行后～如果移题题题上的题题～题可题写当运条框 大或题小文本中的“”字。行后的如题 框国运窗体所示。要求程序中不2 得使用任何题量。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题。sjt2.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教119 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本控件～通题其性口名题题窗体画个框属窗将称～文本容;内属性,题题Text1Text “”～点国 题属体框体体画个条属窗将性题出字题题～在字题题题“黑”。一水平题题控件～通题其性口题名Font 称题题 ～属性题题～属性题题～属性均题题～属性均题HScroll1Min10Max100LargeChang5SmallChange 题。2 移题水平题题;行框即运事件题程,～在题事件题程中加入题句,ChangeChangePrivate Sub HScroll1_Change()Text1.FontSize = HScroll1.ValueEnd Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.frxsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～题在上建立一菜题～主窗体个1sjt3.vbp 菜题题题“题目”;名题称,～有子菜题题～其名分题题它两个称ItemAdd和～题题分题题“添加题目”和“题除题目”～然后一列表画个框Delete ;名题称,和一文本;名题个框称,～如题 所示。题适写当List1Text11 的事件题程。程序行后～如果题行“添加题目”命令～题题题上题入运从 要添加到列表中的题目;容任意～不框内个少于三,～如果题行“题除题目”命令～题题题上题入要题除的题目～其列表中题除。程序的从将从框 运况行情如题 所示。2 在考生文件题下的工程文件;相题的文件名题窗体,～sjt3.vbpsjt3.frm可以题题上述功能。但题程序不完整～题把题个它充完整。 要求, 去掉程序中的注题符～把程序中的,改题适的容～使其正行～当内确运 但不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教120 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的控件不完整～通题菜题题题器建立一主菜题～在菜题题题器的题题题题入“题目”窗体个 ;题 目有要求,～名题题入没称。在题菜题下有二子菜题～在菜题题题器的题题题分题题入“添加题目”个、Item “题除题目”～名题分题题入称、。一列表控件～通题其性口名题题画个框属窗将称。AddDeleteList1 画个一 文本控件～通题其性口名题题框属窗将称。Text1 由于所提供的程序不完整～在“添加题目”命令的窗体事件题程中～Private Sub Add_Click() 有一题地方 需要修改。 将题句1) 'List1.AddItem ? 改题 List1.AddItem Text1.Text 在“题除题目”命令的事件题程中～有三题地方需要修改。Private Sub Delete_Click()将题句1) 'For i = 0 To ? 改题 For i = 0 To List1.ListCount - 1将题句2) 'If List1.List(i) = ? Then改题 If List1.List(i) = Text1.Text Then将题句3) 'List1.RemoveItem ? 改题 List1.RemoveItem i 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个;相题的文件名题窗体2sjt4.vbpsjt4.frm,～其功能是通题题用题程将数运个题按升序排序。程序行后～在四Sort 文本中各题入一整;如题 框个数所示,～然后题题命令按题～可使即数1 题按升序排序～在文本中题示出;如题 并框来所示,。题程序不完整～个2 题把题它并确运充完整～能正行。 要求, 去掉程序中的注题符～把程序中的,改题正的容～使其题题上述功确内 能～但不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教121 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在函窗体数中～有五题地方需要修Private Sub Sort(a() As Integer) 改。 将题句1) 'Start = ?(a) 改题 Start = LBound(a) 将题句2) 'Finish = ?(a) 改题 Finish = UBound(a) 将题句3) 'For i = ? To 2 Step -1 改题 For i = UBound(a) To 2 Step -1将题句4) 'For j = 1 To ? 改题 For j = 1 To i - 1 将题句5) 'If a(j) ? a(j + 1) Then 改题 If a(j) > a(j + 1) Then 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教122 在上建立三菜题;名分题题窗体个称、和～题题分题题“题入ReadCalcSave数并画个框称据”、“题算题出”和“存题”,～然后一文本;名题～Text1 属性题置题～属性题置题,;如题所示,。程序MultiLineTrueScrollBars2 运数行后～如果题行“题入据”命令～题题入文件中的个整datain1.txt100数个数数～ 放入一题中～题的下界题～如果题题“题算题出”按题～题并1 把题题中大于数等于的元素在文本中题示出～求出题的和～把所框来它并50 求得的和在上题示出～如果题题“存题”按题～题把所求得的和存入窗体来 考生文件题下的文件中。dataout.txt 在考生文件题下有一工程文件个～考生可以入题文件。文件装窗体sjt5.vbp 中的题程可以把文件中的个数整题入数题中～ReadDatadatain1.txt100Arr而 题程可以把指定的整题题到考生文件题下指定的文件中;整数写WriteData 数题通题题算求得～文件名题,。dataout.txt 注意, 考生不得修改文件中已题存在的程序。存题题～工程文件名窗体仍题 ～文件名窗体仍题。sjt5.vbpsjt5.frm 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的控件不完整～通题菜题题题器建立三菜题～在菜题题题器的题题题分题题入“题入窗体个数 据”、“题算题出”和“存题”～名题分题题入并称、和。需在题上一文本窗体画个框ReadCalcSave控件～通 题其性口名题题属窗将称～属性题题～属性题题。Text1MultiLineTrueScrollBars2由于所提供的程序不完整～需添加事件题程。窗体 题题“题入据”按题;行数即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Read_Click()ReadData End Sub 题题“题算题出”按题;行并即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Calc_Click()Dim S As String Sum = 0 For i = 1 To 100 If Arr(i) >= 50 Then Sum = Sum + Arr(i) S = S & Str(Arr(i)) & " "End If Next i Text1.Text = S Print "Sum = "; Sum End Sub 题题“存题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Save_Click()WriteData "DataOut.txt", SumEnd Sub 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教123 题量存放和的题果～在事件题程中都要使用～所以定题成全它几个即声局题量～在明部分Sum 加入题句, Dim Sum As Integer 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwDataOut.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,30 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题 称的上一题题;名题窗体画个称～题题题空白～1Form1Label1 属性题～属性题,、一文本;名题个框称BorderStyle1VisibleFalseText1～属个称性题空白,和一命令按题;名题～题题题“题示”,TextCommand1 ～如题 所示。然后题命令按题的写事件题程。程序行后～在文本运1Click 框框并中题入“题算机等题考题”～然后题题命令按题～题文本消失～在题题题示文本中的容。行后的如题 内框内运窗体所示。要求程序中不得2 使用任何题量。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题控件～通题其性口名题题题窗体画个属窗将称～题题;属性,题题空～Label1Caption 属性题题～属性题题。一文本控件～通题其性口名题题画个框属窗将称BorderStyle1VisibleFalse ～Text1Text 属画个属窗将称性题题空。一命令按题控件～通题其性口名题题～题题;属性,题Command1Caption 题“题示”。 题题“题示”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click()Label1.Visible = True Label1.Caption = Text1.TextText1.Visible = False End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题 称的上一文本;名题窗体画个框称,和一个水平题题2Form1Text1条称;名题,～如题所示。在性口中题题题题置如下属窗条属HScroll11 性, 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教124 Min 500 Max 2000 LargeChange 50 SmallChange 20 题适的事件题程。程序行后～如果移题题题上的题题～题可题写当运条框 大或题小文本的高度～使得文本的题度始题是其高度的 框并框倍。运1.2行后的如题 窗体所示。要求程序中不得使用任何题量。2 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本控件～通题其性口名题题窗体画个框属窗将称。一画个条水平题题控件～通题其Text1属窗性 口名题题将称～属性题题～属性题题～属性题题HScroll1Min500Max2000LargeChang ～属性题题50SmallChange 。20 移题题题;行框即运事件题程,～在题事件题程中加入题句,ChangeChangePrivate Sub HScroll1_Change()Text1.Width = HScroll1.Value * 1.2Text1.Height = HScroll1.ValueEnd Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～题在上题题按题;窗体画两个1sjt3.vbp名分题题称和～题题分题题“添加题目”和“题除题目”Option1Option2 ,～一列表;名题个框称,和一文本;名题个框称,～如题 List1Text11所示。题的写窗体事件题程。程序行后～如果题题“添加题目”运Click 题题按题～然后题题～题题题上题入要添加的题目;容任意～不窗体从内 少于三,～添加到列表中～如果题题“题除题目”题题按题～然后个并框 题题～题题题上题入要题除的题目～其列表中题除。程序的窗体从将从框 运况行情如题 所示。2 在考生文件题下的工程文件;相题的文件名题窗体,～sjt3.vbpsjt3.frm可以题题上述功能。但题程序不完整～题把题个它充完整。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教125 要求, 去掉程序中的注题符～把程序中的,改题适的容～使其正行～当内确运 但不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的控件不完整～在题上二题题按题控件～通题其性口名分题题题窗体窗体画个属窗将称 Option1 和～题题;属画个框性,分题题题“添加题目”和“题除题目”。一文本控件～通题Option2Caption 其性属窗 口名题题将称。一列表控件～通题其性口名题题画个框属窗将称。Text1List1另窗体窗体外所提供的程序也不完整～在的事件题程中～有四题地Private Sub Form_Click() 方需要修改。 将题句1) 'List1.AddItem ? 改题 List1.AddItem Text1.Text 将题句2) 'For i = 0 To ? 改题 For i = 0 To List1.ListCount - 1将题句3) 'If List1.List(i) = ? Then 改题 If List1.List(i) = Text1.Text Then将题句4) 'List1.RemoveItem ? 改题 List1.RemoveItem i 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个;相题的文件名题窗体2sjt4.vbpsjt4.frm,～其功能是通题题用题程将数装题按降序排序～题入题文件。程序Sort 运个框个数行后～在四文本中各题入一整;如题 所示,～然后题题命令1 按题～可使题按即数并框来降序排序～在文本中题示出;如题 所示,。2 题程序不完整～题把题个它并确运充完整～能正行。 要求, 去掉程序中的注题符～把程序中的,改题正的容～使其题题上述功确内 能～但不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教126 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在窗体题程中～有五题地方需要修Private Sub Sort(a() As Integer) 改。 将题句1) 'Start = ?(a) 改题 Start = LBound(a) 将题句2) 'Finish = ?(a) 改题 Finish = UBound(a) 将题句3) 'For i = ? To 2 Step -1 改题 For i = Finish To 2 Step -1将题句4) 'For j = 1 To ? 改题 For j = 1 To i - 1 将题句5) 'If a(j) ? a(j + 1) Then改题 If a(j) < a(j + 1) Then 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教127 在上建立三菜题;名分题题窗体个称、和～题题分题题“题入ReadCalcSave数并画个框称据”、“题算题出”和“存题”,～然后一文本;名题～Text1 属性题置题～属性题置题,;如题所示,。程序MultiLineTrueScrollBars2 运数行后～如果题行“题入据”命令～题题入文件中的个整datain1.txt100数个数数～ 放入一题中～题的下界题～如果题题“题算题出”按题～题并1 把题题中小于数的元素在文本中题示出～求出题的和～把所求得框来它并50 的和在上题示出～如果题题“存题”按题～题把所求得的和存入考生窗体来 文件题下的文件中。dataout.txt 在考生文件题下有一工程文件个～考生可以入题文件。文件装窗体sjt5.vbp 中的题程可以把文件中的个数整题入数题中～ReadDatadatain1.txt100Arr而 题程可以把指定的整题题到考生文件题下指定的文件中;整数写WriteData 数题通题题算求得～文件名题,。dataout.txt 注意, 考生不得修改文件中已题存在的程序。存题题～工程文件名窗体仍题 ～文件名窗体仍题。sjt5.vbpsjt5.frm 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的控件不完整～通题菜题题题器建立三菜题～在菜题题题器的题题题分题题入“题入窗体个数 据”、“题算题出”和“存题”～名题分题题入“并称、“和“。再一文本画个框Read”Calc”Save”控件～ 通题其性口名题题属窗将称～属性题题～属性题题。Text1MultiLineTrueScrollBars2 由于所提供的程序不完整～需添加事件题程。窗体 题题“题入据”菜题;行数即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Read_Click()ReadData End Sub 题题“题算题出”菜题;行并即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Calc_Click()Dim S As String Sum = 0 For i = 1 To 100 If Arr(i) < 50 Then Sum = Sum + Arr(i) S = S & Str(Arr(i)) & " "End If Next i Text1.Text = S Print "Sum = "; Sum End Sub 题题“存题”菜题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Save_Click()WriteData "DataOut.txt", SumEnd Sub 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教128 题量在不同的事件题程中都要使用～所以要定题成全局题量～在声明部分加入题句,Sum Dim Sum As Integer 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第套,31 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic;,在名题称题题题“题题”的上一题题题～名题题窗体画个框数称～1Form1CH1共有四题题～按题序其题题分题是“”、“题文”、“外题”、个框数学 “题算机”～其中“题文”、“题算机” 题题题在题中题下～行框状运 题的如题所示。 题控件题置相题性。窗体画并属 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题控件～通题题题题控件的题制题生题题控件题～共有四题题题～通题其窗体画个框框框数个框 属窗将称性口名题题～按题序其题题;将属数学性,分题题题“”、“题文”、“外题”、CH1Caption“题算 机”～由于题目要求“题文”、“题算机”题题题在题中题～因此其框状将属性题题。外通题另Value1Form1 窗体属窗将的性口其题题;属性,题题“题题”。Caption 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题 称的上一名题窗体画个称的水平题题～其条刻度题范题2Form1HS1 题 ,～一命令按题～名题画个称～题题题“移题题题”。题题框1100C1 写当运适的事件题程～使得在行题～每题题命令按题一次; 假定题题次数少于次 ,～题题向右移题框个运窗体刻度。行题的如题所示。1010 要求程序中不得使用题量～事件题程中只能一题句。写条 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题。sjt2.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教129 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一窗体画个条属窗将称水平题题控件～通题其性口名题题～属性题题～属性题题HS1Min1Max 。画100 一命令按题控件～通题其性口名题题个属窗将称～题题;属框性,题题“移题题题”。C1Caption题题命令按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub C1_Click() HS1.Value = HS1.Value + 10End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在名题称的上一名题窗体画个称的文本～再建立一名框个称1Form1Text1 题的题出式菜题～含三菜题题～题题分题题“加个体粗”、“斜Format ”、“下题”～名分题题划称、、。题题适的事件题程～在写当M1M2M3 运当框个行题用鼠题右题题题文本题～题出此菜题～题中一菜题题后～题按所题菜题题题题置文本中文本的格式～如题所示。框 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt3.vbp名题。sjt3.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本控件～通题其性口名题题窗体画个框属窗将称。通题菜题题题器建立一主菜题～个Text1 在菜 题题题器的题题题题入“格式”;题目有要求,～名题题入没称～“可题”题题按题题题不题题。将状Format在题菜题下有三子菜题～在菜题题题器的题题题分题题入“加个体划称粗”、“斜”、“下题”～名题分题题入、、。M1M2M3 右题题题文本～在题出的菜题中题题“加框即运粗”命令;行事件题程,～在题事件题程ClickClick中加 入题句, Private Sub m1_Click() Text1.Font.Bold = True 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教130 End Sub 右题题题文本～在题出的菜题中题题“框体即运斜”命令;行事件题程,～在题事件题程ClickClick中加 入题句, Private Sub m2_Click() Text1.Font.Italic = True End Sub 右题题题文本～在题出的菜题中题题“下题”命令;行框划即运事件题程,～在题事件题程ClickClick中 加入题句, Private Sub m3_Click() Text1.Font.Underline = True End Sub 在文本中右题按下鼠题;行框即运事件题程,～在题事件题程中加入题MouseDownMouseDown句, Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 表示右题的题If Button = 2 Then '2 PopupMenu format End If End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～含有和两个窗体～2sjt4.vbpForm1Form2 题题～上的控件如题启窗体窗体所示。程序行后～在运Form11Form1窗体框框的文本中题入有题信息;“密题”中题示“字符,～然后题*” 题“提交”按题题题出“题”题题;确框即窗体并,～在中Form2Form2题示题入的信息～如题所示。题题“题”按题题程序题束～题题“重确2 题”按题～题消失～回到窗体窗体。在题出的文件中已题题Form2Form1 出了程序～但不完整。 要求, ,把的题题改题“注”～把册的题题改题“题”～确1Form1Form2 ,题置适的性～使当属题题题上的所有按题消失;如题所示,～2Form22 ,去掉程序中的注题符～把程序中的 ,改题正的容。确内3 注意,不能修改程序中的其他部分～题题等属属窗性的修改只能在性口中题行。最后把修改后的文件按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的控件不完整～通题其性口窗体属窗将的题题;属册性,题题“注”～Form1Caption 的题Form2 题;属确将性,题题“题”～的所有按题;属性,题题。CaptionForm2ControlBoxFalse 由于所提供的程序不完整～在“题”按题的窗体确中～有三题地方需要Private Sub C1_Click() 修改。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教131 将题句1) 'Form2. ? 改题 Form2.Show 将题句2) 'Form2.Print Form1.Frame1. ?改题 Form2.Print Form1.Frame1.Caption将题句3) 'If Form1.Op1( ? ).Value Then改题 If Form1.Op1(k).Value Then在的窗体中～有一题地方需要修改。Private Sub Form_Load()将题句1) 'Text2. ? = "*" 改题 Text2.PasswordChar = "*"参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.frxsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生目题下有一工程文件个～其上有题题窗体两个和～题sjt5.vbpL1L2题分题题“口令”和“允题次”～一命令按题数个～题题题“定”～确C1 两个框称文本名分题题和 。 其中 用题入口令;题入来Text1Text2Text1题～题示“,～无初始容～ 内的初始容题内。题出了并的事*”Text23C1件题程～但不完整～要求去掉程序中的注题符～把程序中的,改题正的确内运容～使得在行题～在 中题入口令后～题题“定”～如果题入确Text1 的是“题在 中题示“口令正”～如果题入其他容～题确内123456”Text1 题“定”后～题出如题所示的题题提示题题～且确框并中的字数减。Text21最多可题入次口令～若次都题入题题～题禁止再次题入。33 注意, 不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于中的窗体文本性不完整～按框属将照题意需属性题题。外所提供的另Text1PasswordChar*窗体程序不 完整～在的窗体事件题程中～有四题地方需要修改。Private Sub C1_Click() 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教132 将题句1) 'If ? = "123456" Then 改题 If Text1.Text = "123456" Then将题句2) 'Text1.? = "" 改题 Text1.PasswordChar = "" 将题句3) 'If Text2.Text > ? Then 改题 If Text2.Text > 0 Then 将题句4) 'Text1.Enabled = ? 改题 Text1.Enabled = False 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,32 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题 称的上一名题窗体画个称的题题～题题题“题题”～再确1Form1L1 画两个称命令按题～名分题题、～题题分题题“是”、“否”～高均C1C2 题、题均题。如题所示。300800 题在性口中题置适性题足以下要求,属窗当属 ,题题题“题”～题题题上不题示最大化和最小化按题～窗体确窗体1 ,在任何情况当下～按回题题都相于题题“是”按题～按题都相于当2ESC题题“否”按题。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题控件～通题其性口名题题窗体画个属窗将称～题题;属确画性,题题“题题”。L1Caption二 个属窗将称命令按题～通题其性口名分题题题和～题题;属性,分题题题“是”和C1C2Caption“否”～高;Height 属性,均题题～题;属性,均题题。激活窗体属窗将～通题其性口题题300Width800Form1 ;属性,题题Caption “题”～最大化按题;确属性,题题～和最小化按题;属性,题题MaxButtonFalseMinButton 。激活“是”False 按题～通题其性口属窗将属性题题“。激活“否”按题～通题其性口属窗将属DefaultTrue”Cancel性题题“。True” 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教133 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一文本～名题窗体画个框称～其题度题～再2Form1Text11000画个条称一题题～名题题。其刻度题的范题是。题题题题题写条HS11000-2000 的事件题程～程序行后～如果移题题题～题可按运框条照题题的刻Change 度题改题文本的题度。行题的如题所示。程序中不能使用任框运窗体何题 量～事件题程中只能一题句。写条 注意,* 保存题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp 名题sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本控件～通题其性口名题题窗体画个框属窗将称～题度;属性,题题。Text1Width1000画个一 题题控件～通题其性口名题题条属窗将称～最大题;属性,题题～最小题;属性,HS1Max2000Min题题。1000 移题题题;行条即运事件题程,～在题事件题程中加入题句,ChangeChange Private Sub HS1_Change() Text1.Width = HS1.Value End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～上有列表～名分窗体两个框称1sjt3.vbp 题题、～在中已题题题了容～题有命令按题～ 名内两个List1List2List2 称分题题、～题题分题题“添加”、“除”。如题所示。程序的功清C1C2 能是在行题～如果题中右题列题中的一列表题～题题“添加”按题运框个 ～题把题题移到左题的列表中～若题中左题列表中的一列表题～题框框个 题“除”按题～题把题题移清框回右题的列表中。文件中已题题出了所有 控件和程序～但程序不完整～题去掉程序中的注题符～把程序中的 ,改题正的容。 但不能修改程序中的其他部分～也不能修改控件的性。确内属 最后把修改后的文件按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教134 vb r 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～在“添加”按题的窗体事件题程中～有三题Private Sub C1_Click() 地方需要 修改。 将题句1) 'While (k < List2.?) 改题 While (k < List2.ListCount)将题句2) 'If ?.Selected(k) = True Then改题 If List2.Selected(k) = True Then将题句3) 'List2.RemoveItem ? 改题 List2.RemoveItem k 在“除”按题的清事件题程中～有一题地方需要修改。Private Sub C2_Click()将题句1) 'List1.RemoveItem List1.?改题 List1.RemoveItem List1.ListIndex参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.frxsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～题在窗体个上建立一名2sjt4.vbpForm1称题的题题按题题～含有三题题按题～其题题分题题“数个,”、Op110 “,”、“,”～属性分题题、、～再一名题 画个称的1112Index012C1命令按题～题题题“题算”～一名题画个称的文本～如题所示。框Text1 程序的功能是在题定一题题按题题题“题算”按题后～ 可以题算出个并 相题的题乘题～在中题示题题乘题。题出上述控件题题程序。画并写Text1 注意, 考生不得修改工程中已题存在的容～ 在题束程序行之前～必题题内运 行一次题算。 必题通题题题右上角的题题按题题束程序～否题无窗体 成题。最后按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教135 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的控件不完整～需一题题按题控件～通题题题题按题控件的题制题生题题按题控件窗体画个数 题～共有三题题按题～通题性口名题题个属窗将称～属性分题题题、、～题题;属Op1Index012Caption 性,分 题题题“,”、“,”、“,”。一命令按题控件～通题性口名题题画个属窗将称～题题101112C1;Caption 属画个框属窗将称性,题题“题算”。一文本控件～通题性口名题题。Text1题题“题算”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub C1_Click() Dim k As Integer k = 0 判题题了题题按题断哪个' While Not Op1(k).Value And k < 3k = k + 1 Wend If k < 3 Then Text1.Text = calculat(Val(Left$(Op1(k).Caption, 2))) End If End Sub 函数是求题乘的函～数体内具容,calculat() Function calculat(n As Integer)Dim k As Integer, t As Longt = 1 For k = 2 To n t = t * k Next k calculat = t End Function 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbwout4.dat 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～其上有一文本～名窗体个框称sjt5.vbp 题～可以多行题示～有一名题个称的通用题题～题有三命令框个Text1CD1 按题～名分题题称、、～题题分题题“打题文件”、“题题”、“C1C2C3 存题”～如题所示。 命令按题的功能是,“打题文件”题出打题文件题题～框默题打题文件-- 的题型题“文本文件”。题题考生文件题下的 文件后～题文件中in5.txt 的容题示在内中～“题题”把中的所有小写英文字母题题成Text1--Text1 大～“存题”写把中的容存入考生文件题下的内文件中。--Text1out5.dat在中已题题出了部分程序～要求,窗体 ,题去掉程序中的注题符～把程序中的 ,改题正的容。但不能修改确内1 程序中的其他部分～也不能修改控件的性。属 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教136 ,题“题题”按题的写事件题程。最后把修改后的文件按原文件名2Click 存题。 注意, 考生不得修改已有的程序和控件的性～必题题考生文件题下的属in5.txt文件题行题题～把题题题果通题“存题”按题存入考生文件题下的并 文件中～否题无成题。out5.dat 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～在“打题文件”按题的窗体中～有二题地方Private Sub C1_Click() 需要修改。 将题句1) 'CD1.FilterIndex = ? 改题 CD1.FilterIndex = 2 将题句2) 'Text1.Text = ? 改题 Text1.Text = a 在“存题”按题的中～有一题地方需要修改。Private Sub C3_Click()将题句1) 'CD1.Action = ? 改题 CD1.Action = 2 题题“题题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C2_Click() Dim a As String, b As String, c As String, k As Integer, n As Integer a = Text1.Text b = "" n = Asc("a") - Asc("A") For k = 1 To Len(a) c = Mid$(a, k, 1) If c >= "a" And c <= "z" Thenc = String(1, Asc(c) - n)End If b = b + c Next k Text1.Text = b End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.dat 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教137 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,33 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上文本～其名分题题窗体画两个框称和～它1Form1Text1Text2题的高、题分题题、和、。的题题题“口”。题窗体窗 通题性口题置适的性题足以下要求,属窗当属 , 可以题示多行文本～且有垂直和水平两个条题题题～1Text2 , 行题在运中题入的字符都题示题“。2Text1*” 运窗体行后的如题所示。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp 名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上二文本控件～通题其性口名分题题题窗体画个框属窗将称、～高;属Text1Text2Height性,分题题 题、～题;属性,均题题～题题题在中题入的字符都题示题“～将的3001200Width2400Text1*”Text1PasswordChar 属性题题～题题题在中可以题示多行文本～且有垂直和水平两个条题题～题将的*Text2Text2 属性题题MultiLine ～属性题题。激活窗体属窗将～通题其性口题题;属窗性,题题“TrueScrollBars3Form1Caption口”。 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一题窗体画个框称像～名题～其高、题分题题2Form1Image1 、～通题性口把考生文件题下的题属窗像文件 装入题19001700pic1.bmp像框画两个称～再命令按题～名分题题 、～题题分题题“放大”、C1C2 “题小”～如题所示。 要求, ,题题适的事件题程～程序行后～如果题题“放大”按题～题把写当运1 题像框的高度、题度均增加～ 题题“题小”按题～题把题像框的100 高度、题度均减少。要求程序中不得使用任何题量。100 ,通题性口题置题属窗框当属框像的适性～使得在放大、题小题像题～2 其中的题像也自题放大、题小。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教138 名题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题窗体画个框属窗将称像控件～通题其性口名题题～高;属性,题题～Image1Height1900题;Width 属性,题题～通题属装性入题像文件～题使题像能自题放大、题小～将1700Picturepic1.bmpStretch 属性题题 。二命令按题控件～通题其性口名分题题题画个属窗将称、～题题;属性,分题题题TrueC1C2Caption“放大”、 “题小”。 题题“放大”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub C1_Click() Image1.Width = Image1.Width + 100Image1.Height = Image1.Height + 100End Sub 题题“题小”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub C2_Click() Image1.Width = Image1.Width - 100Image1.Height = Image1.Height - 100End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教139 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“题算”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command2_Click()需考生题写' Max = a(1) Min = a(1) For i = 2 To 100 If isnarc(a(i)) = True Then If a(i) > Max Then Max = a(i)If a(i) < Min Then Min = a(i)End If Next Text1.Text = Max Text2.Text = Min End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbwout3.dat题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp ********************************************************************** ;,在考生文件题下有一工程文件个。题在上一题合～名窗体画个框2sjt4.vbp 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教140 称题～题入三列表题,“并个、“、“;列表题的题序不cb13”7”11”限～但必题是题个数画个字,～一名题的文本～再一题题题框画个3Text1“题算”、名题称的命令按题。如题所示。题题适的事件题程～使写当C1 得程序行题～在题合中题定一字后～题题“题算”按题～题题算运框个数 以能题被题整除的所有之和～放入 内数数并中。最后～按原文5000Text1件名存题。 提示,由于题算题果题大～题使用题整型题量。注意, 考生不得修改文件中已题存在的程序～在题束程序行之前～必题窗体运 至少题行一次题算。必题用右上角的题题按题题束程序～否题无成窗体 题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的控件不完整～需在题上一题合控件～通题其性口名题题窗体窗体画个框属窗将称 ～向题合cb1 框控件添加列表题;属性,～添加的列表题分题题、、～每列表题题一行～题序无题。一个画List3711个文本 框属窗将称控件～通题其性口名题题。一命令按题控件～通题其性口名题题画个属窗将称Text1 ～题题;C1Caption 属性,题题“题算”。 由于所提供的程序不完整～需添加事件题程。窗体 题题“题算”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C1_Click()Dim n As Integer, k As Integer, s As Long n = Val(Cb1.Text) s = 0 For k = n To 5000 If k / n = Int(k / n) Thens = s + k End If Next k Text1.Text = s End Sub 参考文件,参考答案、、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.frxsjt4.vbwout4.dat 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER%在考生文件题下有一工程文件个～其名题称的上已有三窗体sjt5.vbpForm1个框文本、、～以及程序。题完成以下工作,Text1Text2Text3 ,在性口中修改 属窗的适性～使其在行题不题示～作题当属运模题1Text3 的剪题板使用。如题所示～窗体 ,建立下拉式菜题～如下表所示～2 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教141 ,文件中题出了所有事件题程～但不完整～题去掉程序中的注题符～窗体3 把程序中的 ,改题正的容。以确内当便题题以下功能, 光题所在的文本中无容题～“框内框剪切”、“题制”不可用～否题可以把题文本中的容内剪切或题制到中～若中无容～题“内粘题”不能用～Text3Text3 否题可以把中的容内框内粘题在光题所在的文本中的容之后。Text3 注意, 不能修改程序中的其他部分。各菜题题的题题名必题正。最后把修称确 改后的文件按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的控件不完整～通题其性口窗体属窗将的属性题题。通题菜题题题器Text3VisibleTrue 建立一 个称主菜题～在菜题题题器的题题题题入“题题”～名题题入～在题菜题下有三子菜题～在菜题题题器个Edit的题题题分题题入“剪切”、“题制”、“粘题”～名题分题题入称、和。CutCopyPaste 由于所提供的程序不完整～在“题题”主菜题的窗体事件题程中～有二题Private Sub Edit_Click() 地方 需要修改。 将题句1) 'If which = ? Then 改题 If which = 1 Then 将题句2) 'ElseIf which = ? Then 改题 ElseIf which = 2 Then 在“粘题”子菜题的事件题程中～有二题地方需要修改。Private Sub Paste_Click()将题句1) 'Text1.Text = ? 改题 Text1.Text = Text1 + Text3将题句2) 'Text2.Text = ? 改题 Text2.Text = Text2 + Text3参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教142 ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第套,34 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上建立一二题下窗体个运拉菜题;菜题题题下表,～1Form1 行题的如题所示。窗体 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上通题菜题题题器建立一主菜题～在菜题题题器的题题题题入“文件”～名题题入窗体个称～在File题菜题下有二子菜题～在菜题题题器的题题题分题题入“打题”、“题题”～名题分题题入个称和Open ～Close 将状“题题”按题的“有效”题题按题题题不题题。 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上文本～名分题题窗体画两个框称、～均2Form1 Text1Text2无初始容。要求,内 ,通题性口题置适的性～使属窗当属、中题示的文本的字1Text1Text2 体隶题“题”～ ,题适的事件题程～使得在 写当中题入每一字符题～立在个即2Text1 中题示中的容～如题所示。内Text2Text1 注意,* 要求程序中不得使用题量～事件题程中只能一题句。写条 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题。sjt2.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教143 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上二文本控件～通题其性口名分题题题窗体画个框属窗将称和～文本容;内Text1Text2Text 属性,均 题题空～点题文本的框属体框将体隶性～其题出的字题题中字均题题“题题”。Font 改题的容;行内即运事件题程,～在题事件题程中加入题句,Text1ChangeChangePrivate Sub Text1_Change() Text2 = Text1 End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个。程序的功能是,在行题～如运1sjt3.vbp果题中一题题按题和一或题题～题题文本题中的文字个个两个框框做相题的题置～如题所示。上的控件已题出～但有题出主要程序容～题窗体画没内 题适的事件题程～完成上述功能。写当 注意,* 不能修改已题题出的程序部分和已有的控件～在题束程序行之前～运必题题中一题题按题和个个框至少一题题～题题“题定”按题～必并确 题通题题题右上角的题题按题题束程序～否题无成题。最后把修窗体 改后的文件按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～需添加事件题程。窗体 题行“定”命令;行确即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command1_Click()If Op1.Value Then Text1.FontName = Op1.CaptionElseIf Op2.Value Then 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教144 Text1.FontName = Op2.CaptionEnd If If Ch1.Value = 1 Then Text1.FontUnderline = TrueElse Text1.FontUnderline = FalseEnd If If Ch2.Value = 1 Then Text1.FontItalic = TrueElse Text1.FontItalic = FalseEnd If End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbwout3.dat 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个。中已题题出了所有控件。窗体2sjt4.vbp程序行题～题题“题入文件”按题～题示一“打题”题题～可以运将个框 在题题题中题题考生文件题下的文本文件框～把题文件的容并内in4.txt题示到文本中。题出的程序不完整。框Text1 要求, 题去掉程序中的注题符～把程序中的 ,改题正的容～ 使其能正并确内 确运属来行～但不能修改程序中的其他部分和控件性。最后用原的文件名保存工程文件和文件。窗体 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有四题Private Sub Command1_Click() 地方需要修 改。 将题句1) 所有文件文本文件文档'CD1.? = "|*.*||*.txt|Word|*.doc"改题 所有文件文本文件文档CD1.Filter = "|*.*||*.txt|Word|*.doc"将题句2) 'CD1.? 改题 CD1.ShowOpen 将题句3) 'Open ? For Input As #1 改题 Open CD1.FileName For Input As #1将题句4) '? 改题 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教145 Close #1 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～在上题出了所有控件和不完窗体sjt5.vbp 整的程序～题去掉程序中的注题符～把程序中的 ,改题正的容。确内 本程序的功能是,如果题题“取”按题～题把考生目题下的 数文件in5.txt中的个数姓名题到题中～在上题示题些并窗体当姓名～在中题入一15aText1个个找找找姓名～或一姓氏后～如果题题“题”按题～题题行题～若到～就把所有与中相同的姓名或所有具有中姓氏的姓名题示在中～Text1Text1Text2;如题所示,若未到～题在找中题示“未到找,”～若中有题没Text2Text1找内容～题在中题示“未题入题容找内,”。Text2 注意,* 考生不得修改程序的其他部分和控件的性～最后把修改后的文件按原属 文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有一题地方需要Private Sub C1_Click修改。 将题句1) 'Close ? 改题 Close #1 另窗体外在的事件题程中～有四题地方需要修改。Private Sub C2_Click将题句2) 'n = Len( ? ) 改题 n = Len(Text1.Text) 将题句3) 'If Left(a(k), ? ) = Text1.Text Then 改题 If Left(a(k), n) = Text1.Text Then 将题句4) 'c = c + " " + ? 改题 c = c + " " + a(k) 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教146 将题句5) 'Text2.Text = ? 改题 Text2.Text = c 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第套,35 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER%********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic;,在名题称的上一名题窗体画个称的命令按题～题题题“打1Form1 Command1题文件”～再一名题 画个称的通用题题。程序行后～如果题题命框运CD1 令按题～题题出打题文件题题。题按下列要求题置性和题代题,框属写 ,题置适性～使题题的题题题“打题文件”～当属框1 ,题置适性～使题题的“文件题型”下当属框框拉式题合中有二行,“2 文本文件”、“所有文件”;如题所示,～默题的题型是“所有文件”～ ,题命令按题的事件题程～使得题题按题可以题出打题文件题题。写框3 要求,程序中不得使用题量～事件题程中只能一题句。写条 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一命令按题控件～通题其性口名题题窗体画个属窗将称～题题;属性,题题Command1Caption“打题 文件”。一通用题题控件～通题其性口名题题画个框属窗将称～题题;属性,题题CD1DialogTitle“打题文件”～ 属性题题“文本文件所有文件～属性题题。Filter|*.txt||*.*”FilterIndex2 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教147 题题“打题文件”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click()CD1.ShowOpen End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一命令按题～名题窗体画个称～其题题题“2Form1Command1移题本按题”～如题所示。 要求题适的事件题程～使得程序行题～每题题按题一次～ 按题向写当运 左移题。要求,程序中不得使用题量～事件题程中只能一题句。写条100 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp 名题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一命令按题控件～通题其性口名题题窗体画个属窗将称～题题;属性,题题Command1Caption“移题 本按题”。 题题命令按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click()Command1.Left = Command1.Left - 100End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在名题称的上一名题窗体画个称、题题题“添加题目的题1Form1Label1:”题～一名题画个称的文本～有初始容～ 一名题框没内画个称Text1Combo1的下拉式题合～通题性口题入若干题目;不框并属窗少于个内～容任意,3 ～再命令按题～名分题题画两个称、～题题分题题“添Command1Command2 加”、“题题”。在行题～向运中题入字符～题题“添加”按题后～Text1 题中的容作题一列表题被添加到题合的列表中～题题“题题”内个框Text1 按题～题在上题示题合中列表题的～ 如题所示。题题窗体框个数写两个 命令按题的事件题程。Click 注意,* 程序中不得使用题量～也不能使用循题。存题题必题存放在考生文件题下～工程文件名题～文件名题窗体。sjt3.vbpsjt3.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教148 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题控件～通题其性口名题题窗体画个属窗将称～题题;属性,题题“添加题Label1Caption目。:” 画个框属窗将称一文本控件～通题其性口名题题～文本容;内属画个性,题题空。一题Text1Text合控件～通框 题其性口名题题属窗将称～向题合中添加题目;框属内画性,～添加的题目容任意。Combo1List二命令按题个 控件～通题其性口名分题题题属窗将称、～题题;属性,题题“添加”、Command1Command2Caption“题题”。 题题“添加”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command1_Click()Combo1.AddItem Text1.TextEnd Sub 题题“题题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command2_Click()Print Combo1.ListCount End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.frxsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～其如题所示。题程序用窗体来2sjt4.vbp 题在上面的文本中题入的框称英文字母串;题“明文”,加密～加密题果;题“称框个密文”,题示在下面的文本中。加密的方法是,题中一题题按题～题题“加密”按题后～根据题中的题题按题后面的字数～ 把明文n 中的每字母改题后面的第个它个字母;“后面的字母题题是“～“nz”a”后面的字母题题是“,～如题所示。中已题题出了所有控件和窗体Z”A” 程序～但程序不完整～题去掉程序中的注题符～把程序中的 ,改题正确的容。内 注意,* 不能修改程序中的其他部分和控件的性。最后把修改后的文件按原属 文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教149 由于所提供的程序不完整～在的窗体窗体事件题程中～有四题Private Sub Command1_Click() 地方需要修 改。 将题句1) 'n = Val(Op1(k). ? ) 改题 n = Val(Op1(k).Caption) 将题句2) 'For k = 1 To ? 改题 For k = 1 To m 将题句3) 'c = Mid$(Text1.Text, ? , 1)改题 c = Mid$(Text1.Text, k, 1)将题句4) '? = a + c 改题 a = a + c 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～上有文本～ 名题窗体两个框称sjt5.vbp 、～都可以多行题示。题有三命令按题～名分题题个称、 、Text1Text2C1C2～题题分题题“取”、“数数排序”、“存题”。“取”按题的功能是把C3 考生目题下的文件中的个数数并整题到题中～在中题示出～来in5.dat50Text1“排序”按题的功能是题题个数并按升序排序～题示在中～“存题”50Text2按题的功能是把排好序的个数存到考生目题下的文件中。如题所50out5.dat示。在中已题题出了全部控件和部分程序～要求题题程序去掉程序中窗体并 的注题符～把程序中的 ,改题正的容～题题“确内并写排序”按题的事Click件题程～使其题题上述功能～但不能修改程序中的其他部分～也不能修改控件的性。最后把修改后的文件按原文件名存题。属 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教150 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需添加事件题程。窗体 题行“排序”命令;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C2_Click() Dim k As Integer, i As Integer, j As Integer, ch As String For i = 1 To 49 k = i For j = i + 1 To 50 If a(k) > a(j) Then k = j End If Next j j = a(k) a(k) = a(i) a(i) = j Next i ch = "" For k = 1 To 50 ch = ch + Str(a(k)) + " "Next k Text2.Text = ch End Sub 在“取”按题的数中～有二题地方需要修改。Private Sub C1_Click()将题句1) 'Input #1, ? 改题 Input #1, a%(k%) 将题句2) 'Text1.Text = ? 改题 Text1.Text = ch$ 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.dat 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教151 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第套,36 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER%********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic;,在名题称的上一文本～其名题窗体画个框称～然后通题性属窗1Form1Text1口题置和文本的性～题题如下功能,窗体框属 ,在文本中可以题示框多行文本1 ,在文本中题示框条垂直题题2 ,文本中题示的初始信框息题“程序题题”3 ,文本中题示的字题三题题黑框体号体4 ,的题题题“题置文本性”窗体框属5 完成题置后的如题所示。窗体 要求, 不题任写何代题。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本控件～通题其性口名题题窗体画个框属窗将称～多行文本;属性,Text1MultiLine 题题～True 文本题题题;框条属性,题题～文本容;内属性,题题“程序题题”～点题属性ScrollBars2TextFont在题出的字 体框将体体号题题中字题题“黑”～大小题题“三题”。激活窗体属窗将～通题其性口题题Form1;属性,Caption 题题“题置文本性”。框属 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.frxsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题 称的上命令按题;题题窗体画两个,～其名分题题称2Form11Cmd1和～题适的事件题程。程序行后～如果题题命令按题写当运～题Cmd2Cmd1可使题按题移到的左上角;只窗体属允题通题修改性的方式题题,～如果题题命令按题～题可使题按题在题度和题度上各题大到原的来倍。Cmd22 程序的行运况情如题所示。2 要求, 不得使用任何题量。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp 名题。sjt2.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教152 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上二命令按题～通题其性口名分题题题窗体画个属窗将称和。Cmd1Cmd2题题“按题;行即运事件题程,～在题事件题程中加入题句,Cmd1”ClickClick Private Sub Cmd1_Click() Cmd1.Left = 0 Cmd1.Top = 0 End Sub 题题“按题;行即运事件题程,～在题事件题程中加入题句,Cmd2”ClickClick Private Sub Cmd2_Click() Cmd2.Width = Cmd2.Width * 2Cmd2.Height = Cmd2.Height * 2End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～相题的文件题窗体。1sjt3.vbpsjt3.frm其功能是题生个 ,的随数个数机整～放入一题中～然后题出其中3001000 的最大题。程序行后～题题命令按题;名题运称～题题题“题出Command1 最大题”～如题所示,～可求出其最大题～在上题示出。题即并窗体来个 程序不完整～题把题它并确运充完整～能正行。 要求, 去掉程序中的注题符～把程序中的 ,改题正的容～ 使其题题上述确内 功能～但不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～在命令按题的窗体事件题程中～有Private Sub Command1_Click() 三题地方需 要修改。 将题句1) 'arrN(i) = Int(Rnd * ?) 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教153 改题 arrN(i) = Int(Rnd * 1000) 将题句2) '? = arrN(1) 改题 Max = arrN(1) 将题句3) 'If ? Then 改题 If arrN(i) > Max Then 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～相题的文件题窗体～2sjt4.vbpsjt4.frm在上有一命令按题和一文本。程序行后～题题命令按题～窗体个个框运即 可题算出,范题能被内整除或能被整除的整的～在文本数个数并1100057 框来窗体窗中题示出。在的代题口中～已题出了部分程序～其中题算能被整除或能被整除的整的的操作在通用题程数个数中题题～题题题写5 7Fun 题程的代题。 要求, 题勿改题程序中的任何内容～只在和之题Function Fun()End Function填你写入题题的若干题句。最后把修改后的文件按原文件名存题。解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于提供的函不完整～需添加题句～数体内具容,Fun() Function Fun() For i = 1 To 1000 If i Mod 5 = 0 Or i Mod 7 = 0 ThenY = Y + 1 End If Next i Fun = Y End Function 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbwouttxt.txt题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp ********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～相题的文件题窗体～此sjt5.vbpsjt5.frm 外题有一名题个的文本文件～其容如下,内datain.txt 32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 程序行后～题题～把文件运窗体将中的据题入到二题题 数数datain.txt Mat 中～在上按窗体行、列的矩题形式题示出～题出来并矩题左上右下题角题55- 上的据～如题所示。 在的代题口中～已题出了部分程序～题程序数窗体窗个 不完整～题把题它并确运充完整～能正行。 要求, 去掉程序中的注题符～把程序中的 , 改题正的容～使其题题上述功确内 能～但不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教154 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm由于所提供的程序不完整～在的窗体窗体事件题程中～有四题地方Private Sub Form_Click()需要修改。 将题句1) 'Dim ? 改题 Dim Mat(M, N) As Integer 将题句2) 'Open App.Path & "\" & "datain.txt" ? As #1改题 Open App.Path & "\" & "datain.txt" For Input As #1将题句3) '? 改题 Input #1, mat%(i, j) 将题句4) 'If ? Then Print Tab(5 * j); Mat(i, j)改题 If 0 = i - j Then Print Tab(5 * j); mat(i, j)参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,37 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题 称的上一命令按题～其名题窗体画个称;如题 所1Form1Command11示,～然后通题性口题置和命令按题的性～题题如下功能,属窗窗体属 ,题题题“题置按题性”窗体属1 ,命令按题的题题题“等题考题”2 ,程序行后～命令按题不题示运3 ,命令按题的题题用三号体常题黑题示4 程序的行运况情如题 所示。2 要求, 不题任写何代题。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教155 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一命令按题控件～通题其性口名题题窗体画个属窗将称～题题;属性,题题Command1Caption“等题 考题”～通题属体框体属体号属号性的字题题题置字性题黑～字性题三～属性题题。FontVisibleFalse 激活Form1 窗体属窗将～通题其性口题题;属属性,题题“题置按题性”。Caption 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题 称的上一题题～其名题窗体画个称～在性口中把属窗2Form1Label1 属性题置题;如题 所示,～题适的事件题程。程序写当运BorderStyle11 行后～如果题题～题可使题题移到的右上角;只窗体窗体允题在程序中修改适性题题,。当属来 程序的行运况情如题 所示。2 要求, 不得使用任何题量。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题控件～通题其性口名题题窗体画个属窗将称～属性题置题。Label1BorderStyle1题题;行窗体即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Form_Click() Label1.Left = -Label1.Width + Me.WidthLabel1.Top = 0 End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教156 *********************************************************************** ;,在考生文件题下有一工程文件个～相题的文件题窗体。1sjt3.vbpsjt3.frm其功能是题生个,的随数个数机整～放入一题中～然后题出其中3001000 的最小题。程序行后～题题命令按题;名题 运称～题题题“题Command1 出最小题”,～可求出其最小题～在上题示出;如题所示,。即并窗体来 题程序不完整～题把题个它并确运充完整～能正行。 要求, 去掉程序中的注题符～把程序中的,改题正的容～使其题题上述功确内 能～但不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有三题Private Sub Command1_Click() 地方需要修 改。 将题句1) 'arrN(i) = ? 改题 arrN(i) = Int(Rnd * 1000) 将题句2) 'Min = ? 改题 Min = arrN(1) 将题句3) 'If ? Then 改题 If arrN(i) < Min Then 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～相题的文件题窗体～2sjt4.vbpsjt4.frm在上有一命令按题和一文本。程序行后～题题命令按题～窗体个个框运即 可题算出,范题不能被内整除的整的～在文本中题示出数个数并框010007 来窗体窗。 在的代题口中～已题出了部分程序～其中题算不能被整除的7 整的的操作在通用题程数个数中题题～题题题题程的代题。写Fun 要求, 题勿改题程序中的任何内容～只在和之题Function Fun()End Function填你写入题题的若干题句。最后把修改后的文件按原文件名存题。解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在窗体函中需要加入题句,数fun() Function Fun() For i = 0 To 1000 If i Mod 7 <> 0 Then 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教157 Y = Y + 1 End If Next i Fun = Y End Function 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbwouttxt.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～题先装入题工程文件～然后完成sjt5.vbp 以下操作, 在名题称的上二命令按题～其名分题题窗体画个称和～题题分题Form1 C1C2题“题入据”和“题算”;如题所示,。程序行后～如果题题“题入数运数 据”按题～题题用题目所提供的和题程题入ReadData1ReadData2 和文件中的各个数整～分题放入和两个datain1.txtdatain2.txt20Arr1Arr2数两个数减题中～如果题题“题算”按题～题把题中题题下题的元素相～其题果放入第三题中;,第一题的第 个数即个数个减个数元素去第二题的第n 个个数元素～其题果作题第三题的第个元素。题里的题、、、,nnn12...20～最后题算第三题各个数窗体来并元素之和～把所求得的和在上题示出～题用题目中题出的 题程所求得的和存入考生文件题下的将WriteData 文件中。dataout.txt 注意, 考生不得修改文件中已题存在的程序～且必题题行此程序一次～最后窗体 把修改后的文件以原的文件名存题。来 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的控件不完整～在上三命令按题控件～通题其性口名分题题题窗体窗体画个属窗将称 、、C1C2 ～题题;属数性,分题题题“题入据”、“题算”和“存题”。C3Caption 由于所提供的程序不完整～需添加事件题程。窗体 题题“题入据”按题;行数即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub C1_Click() ReadData1 ReadData2 End Sub 题题“题算”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C2_Click() Dim Arr3(20) As IntegerDim Sum As Integer Sum = 0 For i = 1 To 20 Arr3(i) = Arr1(i) - Arr2(i)Sum = Sum + Arr3(i) Next i 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教158 Print "Sum = "; Sum WriteData "dataout.txt", SumEnd Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwDataOut.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第套,38 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic;,在名题 称的上一题题～其名题窗体画个称～然后通题性属窗1Form1Label1口题置和题题的性～题题如下功能,窗体属 ,题题题“题置题题性”窗体属1 ,题题的位置题,距窗体左题界～距窗体题题界2500300,题题的题题题“等题考题”3 ,题题可以根据题题的容自题题整其大小内4 ,题题题有题框5 程序的行运况情如题所示。 要求, 不题任写何代题。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 题上一题题控件～通题其性口名题题窗体画个属窗将称～距窗体左题属性题题～距窗Label1(Left)500 体题 部;属性,题题～题题;属性,题题“等题考题”～题题大小自题题整;属Top300CaptionAutoSize 性,题题～True 属性题题。激活窗体属窗将～通题其性口题题;属属性,题题“题置题题BorderStyle1Form1Caption性”。 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题 称的上一命令按题和一窗体画个个条称水平题题～其名分题2Form1 题和～题适的事件题程。程序行后～如果题题命写当运Command1HScroll1 令按题～题按如下要求题置水平题题的性,条属 窗体题度Max = Min = 0 LargeChange = 50 SmallChange = 10 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教159 而如果移题水平题题的题题～题在上题示题题的位置题。条框窗体框 程序的行运况情如题所示。 要求, 不得使用任何题量。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一命令按题控件～通题其性口名题题窗体画个属窗将称。一画个条水平题题控件～Command1通题其 属窗将称性口名题题。HScroll1 题题命令按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click()HScroll1.Max = Form1.WidthHScroll1.Min = 0 HScroll1.LargeChange = 50HScroll1.SmallChange = 10End Sub 移题水平题题的题题;行条框即运事件题程,～在题事件题程中加入题句,ChangeChangePrivate Sub HScroll1_Change()Print Me.HScroll1.Value End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～相题的文件题窗体。1sjt3.vbpsjt3.frm 其功能是题生个,的随数个数机整～放入一题中～然后题出题200100020个数运称整的平均题。程序行后～题题命令按题;名题～题题题Command1“题出平均题”,～可求出其即并窗体来平均题～在上题示出;如题所示,。题程序不完整～题把题个它并确运充完整～能正行。 要求, 去掉程序中的注题符～把程序中的 ,改题正的容～使其题题上述功确内 能～但不能修改程序中的其他部分。 最后把修改后的文件按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教160 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～在“题出窗体平均题”按题的事件题Private Sub Command1_Click() 程中～有 四题地方需要修改。 将题句1) 'arrN(i) = ? 改题 arrN(i) = Int(Rnd * 1000) 将题句2) 'Sum = ? 改题 Sum = 0 将题句3) 'Sum = ? 改题 Sum = Sum + arrN(i) 将题句4) 'Aver = ? 改题 Aver = Sum / 20 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～相题的文件题窗体～2sjt4.vbpsjt4.frm在上有一命令按题和一文本。程序行后～题题命令按题～窗体个个框运即 可题算出 ,范题能被内整除的所有整的和～在文本中题示出数并框02003 来窗体窗。在的代题口中～ 已题出了部分程序～其中题算能被整除的整3数的和的操作在通用题程中题题～题题题题程的代题。写Fun 要求, 题勿改题程序中的任何内容～只在和之题Function Fun()End Function填你写入题题的若干题句。最后把修改后的文件按原文件名存题。解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于提供的函不完整～需添加题句～数体内具容,Fun() Function Fun() Sum = 0 For i = 0 To 200 If i Mod 3 = 0 Then Sum = Sum + i End If Next i Fun = Sum End Function 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbwouttxt.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER%在考生文件题下有一工程文件个～界面如题所示～其功能如下,sjt5.vbp,题题“题据”按题～题把考生文件题下文件数中的题整;数1in5.dat12 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教161 其中每题含有个数～共题个数数整,题到题中～10120a ,题题“题算”按题～题题每题求数并将数平均题～所求各题的平均题截2 尾取整后存入数题中～s ,题题“题示”按题～题所求各题的将数框平均题题示在文本中～3Text1,题题“存题”按题题把题算题果存题。4 在题出的文件中已题有了全部控件～且“题据”、“题示”和“存窗体数 题”按题的事件题程已题题出～题题“题算”按题题适的事件题写当Click 程以题题上述功能。 注意, 不得修改已题存在的程序～在题束程序行之前～必题用“存题”按题运 存题题算题果～否题无成题。最后～程序按原文件名存题。解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“题算”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command2_Click()考生题写' For i = 1 To 12 Sum = a(i, 1) For j = 2 To 10 Sum = Sum + a(i, j) Next j s(i) = Int(Sum / 10) Next i End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.dat 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,39 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题 称的上一窗体画个条称水平题题～其名题～然后通1Form1HScroll1题性口题置和题题的性～题题如下功能,属窗窗体条属 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教162 ,题题题“题置题题性”窗体条属1 ,题题所能表示的最小题和最大题分题题条和20200 ,程序行后～题题题题运条两框端的箭题题～题题移题的增量题题32 ,程序行后～题题题题前面或后面的部位题～题题移题的运框框增量题4 题10 ,题题的初始位置题框5100 程序的行运况情如题所示。 要求, 不要题任写何代题。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp 名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一窗体画个条属窗将称水平题题控件～通题其性口名题题～属性题题～属HScroll1Min0Max性题题～200 属性题题～属性题题～属性题题。激活窗体～通题其LargeChang10SmallChange2Value100Form1属窗将性口题题 ;属条属性,题题“题置题题性”。Caption 移题题题;行框即运事件题程,～在题事件题程中加入题句,ChangeChange Private Sub HScroll1_Change()Text1.Width = HScroll1.Value * 1.2Text1.Height = HScroll1.ValueEnd Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一文本～其名题窗体画个框称;如题 所示,～2Form1Text11题适的事件题程。程序行后～如果题题～题可使文本移到写当运窗体框窗 体框框窗体的左上角～而如果在文本中题入信息～题可使文本移到的右上角。 程序的行运况情如题 所示。2 要求, 不得使用任何题量～只允题通题修改性的方式移题文本。属框 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题。sjt2.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教163 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本控件～通题其性口名题题窗体画个框属窗将称。Text1题题;行窗体即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Form_Click() Text1.Left = 0 Text1.Top = 0 End Sub 文本中题入信框框窗即运息题使文本移题到口的右上角;行事件题程,～在题事ChangeChange 件题程中加 入题句, Private Sub Text1_Change()Text1.Left = Form1.Width - Text1.Width Text1.Top = 0 End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～相题的文件题窗体。1sjt3.vbpsjt3.frm其功能是题生个,的随数个数机整～放入一题中～然后题出题200100020个数整中大于的所有整之和。程序行后～题题命令按题;名题数运称500 ～题题题“题出大于的整之和”,～可求出题些整的数即数Command1500 和～在上题示出;如题所示,。题程序不完整～题把题并窗体来个它充完整～能正行。并确运 要求, 去掉程序中的注题符～把程序中的 ,改题正的容～ 使其题题上述确内 功能～但不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～在“题出大于窗体的整之和”按题的数500Private Sub 事件Command1_Click() 题程中～有四题地方需要修改。 将题句1) 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教164 'arrN(i) = Int(Rnd * ?) 改题 arrN(i) = Int(Rnd * 1000)将题句2) 'Sum = ? 改题 Sum = 0 将题句3) 'If ? Then 改题 If arrN(i) > 500 Then 将题句4) 'Sum = ? 改题 Sum = Sum + arrN(i) 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～相题的文件题窗体～2sjt4.vbpsjt4.frm在上有一命令按题和一文本。程序行后～题题命令按题～窗体个个框运即 可题算出 ,范题不能被内整除的所有整的和～在文本中题示数并框01007 出。在的代题口中～已题出了部分程序～ 其中题算不能被来窗体窗整除7的整的和的操作在通用题程数中题题～题题题题程的代题。写Fun 要求, 题勿改题程序中的任何内容～只在和之题Function Fun()End Function填你写入题题的若干题句。最后把修改后的文件按原文件名存题。解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 通用题程是题算不能被整除的整的和～数体具题句如下,Fun7 Function Fun() 将求和题量的题置题Sum = 0 //0 ,的循题For i = 0 To 100 //0100 判能否被断整除If i Mod 7 <> 0 Then //7 求和算运Sum = Sum + i // End If 循题加数Next i //1 返回求和的题果Fun = Sum // End Function 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbwouttxt.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～相题的文件题窗体～此sjt5.vbpsjt5.frm外题有一名题个的文本文件～其容如下,内datain.txt 32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 程序行后～题题～把文件 运窗体将中的据题入到二题题数数datain.txtMat中～在上按窗体行、列的矩题形式题示出～然后题算来矩题第三行各题的55 和～在上题示出～如题所示。在的代题口中～已题出了部分并窗体来窗体窗 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教165 程序～题程序不完整～题把题个它并确运充完整～能正行。 要求, 去掉程序中的注题符～把程序中的 改题正的容～使其题题上述功确内? 能～但不能修改程序中的其他部分。 最后把修改后的文件按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有五题地方Private Sub Form_Click() 需要修改。 将题句1) 'Dim ? 改题 Dim Mat(M, N) As Integer 将题句2) 'Open App.Path & "\" & "datain.txt" ? As #1 改题 Open App.Path & "\" & "datain.txt" For Input As #1 将题句3) '? 改题 Input #1, Mat%(i, j) 将题句4) 'Sum = ? 改题 Sum = 0 将题句5) '? 改题 Sum = Sum + Mat%(3, j) 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,40 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上三题题按题～其名分题题窗体画个称、1Form1Option1Option2 和;如题所示,～然后通题性口题置和题题按题的性～属窗窗体属Option31 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教166 题题如下功能, ,题题题“题置题题按题性”窗体属1 ,三题题按题的题题分题题“按题个、“按题和“按题21”2”3”,初始题题～第一题题按题题“题中”状个3 ,程序行后～第二题题按题“运个禁用”4 ,程序行后～第三题题按题不可题运个5 程序的行运况情如题 所示。2 要求, 不题任写何代题。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上三题题按题控件～通题其性口名分题题题窗体画个属窗将称、和～题题Option1Option2Option3 ;属性,分题题题“按题、“按题和“按题～“按题题题题在题中题;框状属Caption1”2”3”1”Value 性, 题题～“按题可用题;状属性,题题～“按题题题题在不可题题;框状属性,12”EnabledTrue3”Visible 题题 。激活窗体属窗将～通题其性口题题;属属性,题题“题置题题按题性”。FalseForm1Caption参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题 称的上一命令按题和一窗体画个个条称垂直题题～其名分题2Form1 题和～题适的事件题程。程序行后～如果题题命写当运Command1VScroll1 令按题～题按如下要求题置垂直题题的性,条属 窗体高度Max = Min = 0 LargeChange = 50 SmallChange = 10 如果移题垂直题题的题题～题在上题示题题的位置题。条框窗体框 程序的行运况情如题所示。 要求, 不得使用任何题量。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题。sjt2.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教167 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一命令按题控件～通题其性口名题题窗体画个属窗将称。一画个条垂直题题控件～Command1通题其 属窗将称性口名题题。VScroll1 题题命令按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click()VScroll1.Max = Form1.HeightVScroll1.Min = 0 VScroll1.LargeChange = 50VScroll1.SmallChange = 10End Sub 移题题题;行框即运事件题程,～在题事件题程中加入题句,ChangeChange Private Sub VScroll1_Change()Print VScroll1.Value End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～相题的文件题窗体。1sjt3.vbpsjt3.frm其功能是题生个,的随数个数机整～放入一题中～然后题出题200100020个数整中小于的所有整之和。程序行后～题题命令按题;名题数运称500 ～ 题题题“题出小于的整之和”,～可求出题些整的数即数Command1500 和～在上题示出;如题所示,。题程序不完整～题把题并窗体来个它充完整～能正行。并确运 要求, 去掉程序中的注题符～把程序中的 ,改题正的容～ 使其题题上述确内 功能～但不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教168 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有四题Private Sub Command1_Click() 地方需要修 改。 将题句1) 'arrN(i) = ? 改题 arrN(i) = Int(Rnd * 1000)将题句2) 'Sum = ? 改题 Sum = 0 将题句3) 'If ? Then 改题 If arrN(i) < 500 Then 将题句4) 'Sum = ? 改题 Sum = Sum + arrN(i) 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～相题的文件题窗体～2sjt4.vbpsjt4.frm在上有一命令按题和一文本。程序行后～题题命令按题～窗体个个框运即 可题算出,范题所有内数并框来窗偶的平方和～在文本中题示出。在0100 体窗数的代题口中～已题出了部分程序～其中题算偶平方和的操作在通用题程中题题～题题题题程的代题。写Fun 要求, 题勿改题程序中的任何内容～只在和之题Function Fun()End Function填你写入题题的若干题句。最后把修改后的文件按原文件名存题。解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于提供的函不完整～需添加题句～数体内具容,Fun() Function Fun() Sum = 0 For i = 0 To 100 Step 2 Sum = Sum + i * i Next i Fun = Sum End Function 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbwouttxt.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～相题的文件题窗体～此sjt5.vbpsjt5.frm外题有一名题个的文本文件～其容如下,内datain.txt 32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教169 程序行后题题～把文件运窗体将中的据题入到二题题数数中～datain.txtMat 在上按窗体行、列的矩题形式题示出～题出来并矩题右上左下题角题上的55- 数窗体窗个据～ 如题所示。在的代题口中～已题出了部分程序～题程序不完整～题把题它并确运充完整～能正行。 要求, 去掉程序中的注题符～把程序中的 改题正的容～使其题题上述功确内? 能～但不能修改程序中的其他部分。 最后把修改后的文件按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有四题地方Private Sub Form_Click() 需要修改。 将题句1) 'Dim ? 改题 Dim Mat(M, N) As Integer 将题句2) 'Open App.Path & "\" & "datain.txt" ? As #1 改题 Open App.Path & "\" & "datain.txt" For Input As #1 将题句3) '? 改题 Input #1, Mat%(i, j) 将题句4) 'If ? Then 改题 If i + j = 6 Then 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,41 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上一名题窗体画个称的题题～题题的题和高分题1Form1Label1 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教170 题、～有题～利用性口题置适的性～使其框并属窗当属居中题示2000300 “等题考题”～使题题的外题如题所示。行后的题下题。并运窗体 注意, 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题控件～通题其性口名题题窗体画个属窗将称～高;属性,题题～题Label1Min300;属性,Width 题题～属性题题～题题格式;属性,题题～题题;属性,题题“等2000BorderStyle1Alignment2Caption题考题”。 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一名题窗体画个称的题像框框并～有题～可以2Form1Image1 自题题整入题片的大小以适题题装框画个像的尺寸～ 再三命令按题～名 称分题题、、～题题分题题“题桃”、 “黑Command1Command2Command3 桃”、“除”。在考生目题下有二题题文件～其名分题题“清个称 和“。程序行题～题题“题运桃”按题～题Misc34.ico”Misc37.ico” 在题像框即中题示题桃题案;文件～如题所示,～题题“黑Misc34.ico 桃”按题～题在题像框即中题示黑桃题案;文件,～题题“Misc37.ico 清清框写除”按题题除题像中的题案。题题相题控件的事件题程～Click 题题上述功能。 注意, 要求程序中不得使用题量～每事件题程中只能一题句。存题题个写条 必题存放在考生文件题下～工程文件名题～文件名题窗体sjt2.vbp 。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题窗体画个框属窗将称像控件～通题其性口名题题～属性题题Image1BorderStyle～属性1Stretch 题题。三命令按题控件～通题其性口名分题题题画个属窗将称True 、、～题题;Command1Command2Command3Caption 属清性,分题题题“题桃”、 “黑桃”、“除”。 题题“题桃”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click() Image1.Picture = LoadPicture(App.Path & "\Misc34.ico") End Sub 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教171 题题“黑桃”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command2_Click() Image1.Picture = LoadPicture(App.Path & "\Misc37.ico") End Sub 题题“除”按题;行清即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command3_Click() Image1.Picture = LoadPicture()End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp 题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个。上有一题题题“得分”窗体个1sjt3.vbp的架～在架中有一名题框框个称的文本题～含框数个六元素～ 文本Text1 框用题入题度系。程序行题～在左题的来数运个框六文本中题入个Text26得分～题入题度系后～题题“题算分”按题～题可题算出最后得分数数并 在文本框中题示;如题所示,。Text3 题算方法, 去掉个最高得分和个最低得分～求剩下得分的平均分～再乘以～ 再113乘以题度系。最后题果保留到第数位小～不四数舍五入。2 注意, 文件中已题题出了所有控件和程序～但程序不完整～题去掉程序中的注题符～把程序中的 , 改题正的容。考生不能修改程序中的其他部确内 分和各控件的性。最后把修改后的文件按原文件名存题。属 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～在“题算分”按题的窗体数事件题程Private Sub Command1_Click() 中～有四 题地方需要修改。 将题句1) 'For k = 1 To ? 改题 For k = 1 To 5 将题句2) 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教172 'If ? < Val(Text1(k).Text) Then改题 If a < Val(Text1(k).Text) Then将题句3) 's = (s - a - b) / ? 改题 s = (s - a - b) / 4 将题句4) 's = ? * 3 * Val(Text2.Text)改题 s = s * 3 * Val(Text2.Text)将题句5) '? = Int(s * 100) / 100 改题 Text3 = Int(s * 100) / 100参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp ********************************************************************** ;,在考生目题下有一工程文件个。 上的控件如题所示。程序窗体2sjt4.vbp运行题～若题中“题乘”题题按题～题“、“菜题题不可用1000”2000”;如题所示,～若题中“累加”题题按题～题“、“菜题题不可10”12”用。题中菜题中的一菜题题后～题题“题算”按题～题相题的题算题果个 题示在文本中;框例如,题中“题乘”和“～题题算,～题中“累10”10加”和“～题题算,。 题题“存题”按题题把文2000”1+2+3+ … +2000本中的题果保存到考生目题下的框文件中。out4.dat 要求, 题“题算”按题的写事件题程。Click 注意, 不得修改已题存在的程序～在题束程序行之前～必题用“存题”按题运 存题题算题果～否题无成题。最后～程序按原文件名存题。解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“题算”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command1_Click()If Option1.Value = True Thens = 1 For k = 1 To n s = s * k Next End If 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教173 If Option2.Value = True Thens = 0 For k = 1 To n s = s + k Next End If Text1 = s End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbwout4.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生目题下有一工程文件个。其功能是题生题示一列的前并个数sjt5.vbp 题。 列题生的题律是,列的前数数题是小于的正整～此数将数相乘～n2102若乘题～题以此乘题作题列的第数题～若乘题～题以乘题的十位数<103>=10题列的第数题～以乘题的位题题列的第个数数题。再用列的最后数题相乘～342用上述题题形成后面的题～直至题生了第题。上部左到右窗体从个框文本n3 的名分题题,称、、～下部的文本名题窗体框称。程Text1Text2Text3Text4序行题～ 在运、中题入列的前题～数两中题入要题生的题Text1Text2Text3数～ 题题“题算”按题题题生此列的前数题～题示在并中。如题所nnText4示。 已题题出了全部控件～但程序不完整～题去掉程序中的注题符～把程序中的,改题正的容。确内 注意, 不得修改原有程序和控件的性。最后把修改后的文件按原文件名存题。属 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的控件不完整～在“题算”按题的窗体事件题程中～Private Sub Command1_Click() 有四题地 方需要修改。 将题句1) 'Text4 = Text4 & a & " " & ?改题 Text4 = Text4 & a & " " & b将题句2) 'a = ? 改题 a = b 将题句3) 'If k <= ? Then 改题 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教174 If k <= n Then 将题句4) '? = d 改题 b = d 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,42 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上一名题窗体画个称的题片;框,～1Form1Picture1PictureBox高、题均题。在题片再一有题的名题框内画个框称的题像框;1000Image1 ,。通题性口把考生目题下的题题文件并属窗;香蕉题题,ImagePoint11装框入题像中～如题所示。Image1 注意, 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp 名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题片控件～通题其性口名题题窗体画个框属窗将称～高;属性,题题～Picture1Height1000题;Width 属性,题题。一题画个框属窗将称像控件～通题其性口名题题～属性题题～1000Image1BorderStyle1通题Picture 属将性装框入题像。Point11.ico 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.frxsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一名题窗体画个称、题题题“保存文件”的2Form1Command1 命令按题～再一名题画个称的通用题题。框CommonDialog1 要求, ,通题性口题置适的性～使得行题题题的题题题“保存文属窗当属运框1 件”～且默题文件名题～out2 ,行题题题“保存文件”命令按题～题以“保存题题”方式打题题运框2 通用题题。如题所示。框 注意, 要求程序中不能使用题量～每事件题程中只能一题句。个写条 保存题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp 名题。sjt2.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教175 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一命令按题控件～通题其性口名题题窗体画个属窗将称～题题;属性,题题Command1Caption“保存 文件”。一通用题题控件～通题其性口名题题画个框属窗将称～属性题CommonDialog1DialogTitle题保存文件～ 属性题题。FileNameout2 题题“保存文件”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click() CommonDialog1.Action = 2 End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生目题下有一工程文件个。上有题表题案～其中代表窗体个1sjt3.vbp 指题的直题的名是称～ 题有一名题个称的题题～和其他一些Line1Label1 控件;如题 所示,。在行题～若用鼠题左题题题题的题题～题指题指运1 向鼠题题题的位置;如题 所示,～若用鼠题右题题题题的题题～题指题2 恢题到起始位置;如题 所示,～若鼠题左题或右题题题其他位置～题在1 题题上题示“鼠题位置不题”。 文件中已题题出了所有控件和程序～但程序不完整～题去掉程序中的注题符～把程序中的 , 改题正的容。程序中的确内函的作用是判数oncircle断断鼠题题题的位置是否在题的题题上; 判题果略有题差 ,～是题返回 ～否题返回。 符号常量、是题心距窗体离左上角的距～符TrueFalsex0y0 号常量是题的半径。radius 注意, 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教176 不能修改程序中的其他部分和各控件的性。最后把修改后的文件按原属 文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～在鼠题题题的窗体Private Sub Form_MouseDown(Button As Integer, Shift As 事件题程中～有四题地方需要修改。Integer, X As Single, Y As Single)将题句1) 'Line1.Y2 = ? 改题 Line1.Y2 = Y 将题句2) 'Line1.X2 = Line1.? 改题 Line1.X2 = Line1.X1 将题句3) 'Line1.Y2 = y0 - ? 改题 Line1.Y2 = y0 - 750 将题句4) 鼠题位置不题'? = "" 改题 鼠题位置不题Label1 = "" 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生目题下有一工程文件个～如题所示。其功能是题题“窗体2sjt4.vbp 题入据”按题～题可题入一整数个数; 要求,,～题题“题算n8<=n<=12”按题～题题算～题算题果题示在文本中～题题并将框1!+2!+3!+ … +n! “存题”按题～ 题把文本中的题果保存到考生目题下的 框文件out4.dat中。 文件中已题题出了所有控件和程序～但程序不完整～题去掉程序中的注题符～把程序中的 ,改题正的容～题题“题算”按题的确内并写事件题Click 程。 注意, 不得修改已题存在的容和控件性～在题束程序行之前～必题用“内属运 存题”按题存题题算题果～否题无成题。最后把修改后的文件按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教177 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“题算”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command2_Click()Dim s As Long, k As Integers = 0 For k = 1 To n s = s + f(k) Next Text1 = s End Sub 在“题入据”按题的数事件题程中～有一题地方需要修改。Private Sub Command1_Click() 将题句1) 'If n > ? Or n < 8 Then 改题 If n > 12 Or n < 8 Then 在函的数事件题程中～有二题地方需要修改。Function f(n As Integer) As Long 将题句1) 's = ? 改题 s = 1 将题句2) 'f = ? 改题 f = s 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbwout4.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～含三～题题分题题“个窗体启sjt5.vbp 题”、“注”、“册运启窗体登题”～行题题示“题”～题题其上按题题题出题题题行注或窗体册登题。 注信册数息放在全局题中～注用题;最册数多个,放在全局题量users10n中;均已在题准模题中定题,。 注题用题名不能重题～且“口令”“题题口令”题相同～注成功题册与册 在“题”的题题中题示“注成功”～否题题示相题题题信启窗体册息。登 题题～题题用题名和口令～若正～题在“题”的题题上题示“确启窗体登 题成功”～否题题示相题题题信息。 题准模题中函数的功能是,在数即参数题中搜索用题名; finduserusers ,～到题找返回题用题名在中的位置～否题返回。chusers0 已题题出了所有控件和程序～但程序不完整～题去掉程序中的注题符～把 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教178 、窗体确内文件中的 ,改题正的容。Form2Form3 注意, 不得修改已题存在的程序和控件的性～最后～程序按原文件名存题。属 解题思路, 启题系题～打题考生文件题下需题题的工程文件～打题文件并窗体。Visual Basicsjt5.vbpsjt52.frm由于所提供的控件不完整～在“定”按题的窗体确事件题程中～Private Sub Command2_Click() 有二题地 方需要修改。 将题句1) 'ElseIf finduser(Trim$(Text1)) > ? Then改题 ElseIf finduser(Trim$(Text1)) > 0 Then将题句2) 注成功册,'? = "" 改题 注成功册,Form1.Label1 = "" 在事件题程中～有一题地方需要修改。Sub writeusers() 将题句1) 'n = n + ? 改题 n = n + 1 打题文件窗体。sjt53.frm 由于所提供的控件不完整～在“窗体登题”按题的事件题程中～Private Sub Command1_Click() 有二题地 方需要修改。 将题句1) 'If k = ? Then 改题 If k = 0 Then 将题句2) 'ElseIf Trim$(Text2) <> users( ? ) Then改题 ElseIf Trim$(Text2) <> users(k, 2) Then参考文件,参考答c:\wexam\26990001\hlpsys\案、、、、\sjt5.vbpsjt51.frmsjt52.frmsjt53.frmsjt5.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,43 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在题题题“文本”、名题框称的上一名题窗体画个称的文本1Form1 Text1 框内～无初始容～其高、题分题题、～可题示多行～有水平题题20001800 条并属窗框体体～通题性口把文本的字题式题置题“斜”;如题所示,。注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt1.vbp 题。sjt1.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教179 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本控件～通题其性口名题题窗体画个框属窗将称～多行文本;属性,Text1MultiLine题题～True 文本题题题;框条属性,题题～文本容;内属性,题题空～高;属性,题题ScrollBars1TextHeight ～题;2000Width 属性,题题～点题属体框将体体性在题出的字题题中字题题“斜题”。激活窗体～通题1800FontForm1其性口属窗 将题题;属框性,题题“文本”。Caption 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一名题窗体画个称的列表～通题性口题入框属窗2Form1List1 个数学学列表题,“”、“物理”、“化”、“题文”～如题所示。4 题题适的事件题程使得在入题～把最后一列表题自题改题“写当装窗体个 英题”～题题题～题题除最后一列表题。窗体个 注意, 要求程序中不得使用题量～每事件题程中只能一题句。个写条 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt2.vbp 题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一列表控件～通题其性口名题题窗体画个框属窗将称～向列表中添加题目;框属List1List性,～添 加的题目分题题“”、“数学学个物理”、“化”、“题文”～每题目题一行。启窗体题;行即运事件题程,～在题事件题程中加入题句,LoadLoad Private Sub Form_Load() 英题List1.List(List1.ListCount - 1) = "" End Sub 题题;行窗体即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Form_Click()List1.RemoveItem List1.ListCount - 1 End Sub 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教180 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.frxsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在名题称的上一名题窗体画个称的文本～二题题分题题框画个1Form1Text1 “题题方式”、“字”～名分题题体称、的架～在框Frame1Frame2Frame1框画个架中三题题按题～题题分题题“左题题”、“居中”、“右题题”～名分题题称、、～在框画个架中二题题按Option1Option2Option3Frame2题～题题分题题“宋体体称”、“黑”～名分题题、。Option4Option5要求, 题写个五题题按题的 事件题程～使程序行题～题题题些题题按运Click 题～可以题文本中的文字题题相题的操作;如题所示,。框 注意, 要求程序中不得使用题量～每事件题程中只能一题句。个写条 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt3.vbp题。sjt3.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本控件～通题其性口名题题窗体画个框属窗将称。二架控件～通题其性画个框属Text1窗将口名 称分题题题、～题题;属体性,分题题题“题题方式”、“字”。在框架中Frame1Frame2CaptionFrame1 画个三 题题按题控件～通题其性口名分题题题属窗将称、、～题题;属性,分题Option1Option2Option3Caption 题题 “左题题”、“居中”、“右题题”。在框画个属窗将称架中二题题按题控件～通题其性口名Frame2 分题题题 、～题题;属体体性,分题题题“宋”、“黑”。Option4Option5Caption 题题“左题题”题题按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Option1_Click()Text1.Alignment = 0 End Sub 题题“居中”题题按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Option2_Click()Text1.Alignment = 2 End Sub 题题“右题题”题题按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Option3_Click()Text1.Alignment = 1 End Sub 题题“宋体即运”题题按题;行事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Option4_Click() 宋体Text1.Font = "" 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教181 End Sub 题题“黑”题题按题;行体即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Option5_Click() 黑体Text1.Font = "" End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个。 其上有一题～相于窗体个当2sjt4.vbp一题题～程序行题通题的个当运窗体事件题程在题上题生个Activate 12刻度点～完成其他初始化工作～有题、并另短条;题色、题色,直题～2 名分题题称和～ 表示指题。程序行题～题题“题始”两个运Line1Line2 按题～题每隔秒;题指题,题题题题题一个刻度～;短指0.5Line1Line2题,题题题题题个即个刻度;题指题题题一圈～短指题题题一刻度,1/12 ～题题“停止”按题～指题停止题题～如题所示。两个 在文件中已题题出了全部控件～但程序不完整～要求去掉程序中的注窗体 题符～把程序中的 ,改题正的容。确内 提示, 程序中的符号常量、是题心到左上角的窗体离距～是题的半x0y0radius径。 注意, 不能修改程序中的其他部分和控件的性。最后把修改后的文件按原文属 件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在“停止”按题的窗体事件题程中～Private Sub Command2_Click() 有一题地 方需要修改。 将题句1) '? 改题 Timer1.Enabled = False 在的窗体事件题程中～有二题地方需要修改。Private Sub Form_Activate()将题句1) 'For k = 0 To 359 Step ?改题 For k = 0 To 359 Step 360 / 12将题句2) 'x = radius * Cos(k * 3.14159 / 180) + ?改题 x = radius * Cos(k * 3.14159 / 180) + x0 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教182 在题题器的事件题程中～有二题地方需要修改。Private Sub Timer1_Timer()将题句1) 'Line1.? = y0 - len1 * Sin(a * 3.14159 / 180) 改题 Line1.Y2 = y0 - len1 * Sin(a * 3.14159 / 180) 将题句2) 'b = ? - 30 / 12 改题 b = b - 30 / 12 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生目题下有一工程文件个～ 其如题所示。考生目题下有窗体sjt5.vbp 一个文件～文件中有个运题题的姓名、个裁判的打分和题作的题in5.dat57 度系。每数数人的据占一行～题序是,姓名、个数数运分、题度系。程序7 行题～题题“题入”按题～可把文件中的个数姓名题入题in5.dat5athlete中～把题得分;每题个数数,和题度系题入二题题中;每行的最后一个57a 元素是题度系,～把题些据题示在数并数文本中～题题“题出框冠题Text1 ”按题～题把冠题的姓名和成题分题题示在文本 框、中。成题Text2Text3的题算方法是, 去掉一最高分和一最个个低分～求剩下得分的平均分～再乘以～再乘以题度系～题题“存题”按题～题把数冠题姓名和成题存入考3 生目题下的文件中。out5.dat 要求, 去掉程序中的注题符～把程序中的 , 改题正的容;程序中确内getmark函的功能是题算数并返回第个运并写题题的最后得分,～题题“题出冠题n ”按题的事件题程。Click 注意, 不得修改已题存在的程序和控件的性～在题束程序行前～必题用“存属运 题”按题存题题算题果～否题无成题。最后～程序按原文件名存题。解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“题出冠题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command2_Click()Dim k As Integer maxmark = getmark(1) m = 1 For k = 2 To 5 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教183 If maxmark < getmark(k) Thenmaxmark = getmark(k) m = k End If Next k Text2 = athlete(m) Text3 = maxmark End Sub 在函的数事件题程中～有三题地方需要修改。Private Function getmark(n As Integer) As Single 将题句1) 's = ? 改题 s = a(n, 1) 将题句2) 'For k = 2 To ? 改题 For k = 2 To 7 将题句3) 'getmark = s * 3 * ? 改题 getmark = s * 3 * a(n, 8)参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.dat 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,44 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在题题题“列表”、名题框称的上一名题窗体画个称列表～框1Form1List1通题性口题入四列表题,“”、“题文”、“题属窗个数学史”、“地理”～列表题采用“题题形式”～如题所示。列表的题题框框～高不限。1100注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt1.vbp题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一列表控件～通题其性口名题题窗体画个框属窗将称～向列表中添加题目;框属List1List 性,～添 加的题目分题题“”、“题文”、“题数学个史”、“地理”～每题目题一行～题;属性,题题Width ～1100Style 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教184 属性题题。1 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上建立一名题“窗体个称、题题题“文件”的题2Form1menu1”出式菜题～含有三菜题题～题的题题分题题,“打题”、“题题”、个它 “保存”～名分题题“称、“、“。再一命令按题～名画个m1”m2”m3” 称题“、题题题“题出菜题”。要求,题命令按题的 写Command1”Click事件题程～使程序行题～题题“题出菜题”按题可题出“文件”菜题;运 如题所示,。 注意, 程序中不得使用题量～事件题程中只能一题句。写条 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt2.vbp题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上通题菜题题题器建立一主菜题～在菜题题题器的题题题题入“文件”～名题题入窗体个称～将menu1 “可题”题题按题题题不题题。在“文件”菜题下有三子菜题～在菜题题题器的题题题分题题入“打题”、状个 “题题”、“保存”～名题分题题入称、、。一命令按题控件～通题其性口名题题画个属窗将称m1m2m3 ～Command1 题题;属性,题题“题出菜题”。Caption 题题“题出菜题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command1_Click()Form1.PopupMenu menu1 或 'PopupMenu menu1 End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生目题下有一工程文件个～ 包含了所有控件和部分程序。1sjt3.vbp 程序行题～在文本中每题入一字符～题立判,若是小字母～运框个即断写 题把的大形式题示在题题它写中～若是大字母～题把的小写它写Label1 形式题示在中～若是其他字符～题把题字符直接题示在中。Label1Label1题入的字母题题题示在题题数中～如题所示。Label2 要求, 去掉程序中的注题符～把程序中的 ,改题正的容。确内 注意, 不得修改已题存在的程序～最后把修改后的文件按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教185 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～在文本题入字符～行窗体框即运事件题Private Sub Text1_Change() 程～在题 事件题程中～有三题地方需要修改。 将题句1) 'ch = Right$( ? ) 改题 ch = Right$(Text1, 1) 将题句2) 'Label1.Caption = ? 改题 Label1.Caption = Right$(Text1, 1)将题句3) 'Label2.Caption = ? 改题 Label2.Caption = n 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个。 中有一题片～题片窗体个框2sjt4.vbp 框个称中有一名题的题色题～如题所示。Shape1 程序行题～题题“题始”按题～ 题运当逐题题大;题心位置不题,～题充题题片题题题题题色～题始框并当逐题题小～ 题小到初始大小题又题 题题色～再次并逐题题大～如此往题。题题“停止”按题～题停止题化。文件中已题题出了所有控件和程序～但程序不完整～ 题去掉程序中的注题符～把程序中的 ,改题正的容。确内 提示, 程序中的符号常量表示题色的题～表示题色的题。bule_colorred_color注意, 不能修改程序的其他部分和各控件的性。 最后把修改后的文件按原属 文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教186 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在“题始”按题的窗体事件题程中～Private Sub Command1_Click() 有一题地 方需要修改。 将题句1) 'Timer1.Enabled = ? 改题 Timer1.Enabled = True 在题题器的事件题程中～有四题地方需要修改。Private Sub Timer1_Timer() 将题句1) 'Shape1.FillColor = ? 改题 Shape1.FillColor = red_color将题句2) '? = Shape1.Left + 50 改题 Shape1.Left = Shape1.Left + 50将题句3) '? = Shape1.Top + 50 改题 Shape1.Top = Shape1.Top + 50将题句4) 'Shape1.FillColor = ? 改题 Shape1.FillColor = blue_color参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生目题下有一工程文件个～包含了所有控件和部分程序。程序sjt5.vbp 运框行题～题题“打题文件”按题～题题出“打题”题题～默题文件题型题“文本文件”～默题目题题考生目题。题中文件;如题所示,～题in5.txt1题“打题”按题～ 题把文件中的容题入题示在文本;内并框,中～题Text1题“修改容”按题～题可把内中的大字母“写、“、“改题Text1E”N”T”小～把小字母“写写、“、“改题大～题题“保存文件”按题～写e”n”t” 题题出“存题”题题～另框默题文件题型题“文本文件”～默题目题题考生目题～默题文件题“;如题 所示,～题题“保存”按题～题把out5.txt”2 中修改后的容存到内文件中。Text1out5.txt 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教187 窗体中已题题出了所有控件和程序～但程序不完整～去掉程序中的注题符～把程序中的 , 改题正的容～题“修改题容”按题的确内并写内事件题Click 程。 注意, 考生不得修改已题存在的程序。必题把中修改后的容用“保存文内Text1 件”按题存题题果～否题无成题。最后～按原文件名把程序存题。解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“修改容”按题;行内即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command2_Click()s = "" str_len = Len(Text1) For k = 1 To str_len ch = Mid$(Text1, k, 1) If ch = "E" Or ch = "N" Or ch = "T" Thens = s & LCase(ch) ElseIf ch = "e" Or ch = "n" Or ch = "t" Then s = s & UCase(ch) Else s = s & ch End If Next k Text1 = s End Sub 在“打题文件”按题的事件题程中～有三题地方需要修改。Private Sub Command1_Click()将题句1) 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教188 'CommonDialog1.FilterIndex = ?改题 CommonDialog1.FilterIndex = 2将题句2) 'Open ? For Input As #1 改题 Open CommonDialog1.FileName For Input As #1 将题句3) 'Text1.Text = ? 改题 Text1.Text = s 在“打题文件”按题的事件题程中～有三题地方需要修改。Private Sub Command3_Click()将题句1) 'CommonDialog1.Action = ? 改题 CommonDialog1.Action = 2 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.dat题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,45 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上一名题窗体画个称、题题题“架”的架～在框框1Form1Frame1 框内两个称架添加名分题题、的题题按题～其题题分题题Option1Option2 “第一题”、“第二题” 。要求通题题置控件的性“第二题”题置题属将 被题中～架题不可用。行程序后的如题所示。框运窗体 注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt1.vbp题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一架控件～通题其性口名题题窗体画个框属窗将称～题题;属框性,题题“Frame1Caption架”～Enabled 属性题题。在框画个属窗将称架中二题题按题控件～通题其性口名分题题题FalseF1 、～题题Option1Option2 ;属性,分题题题“第一题”、“第二题”～“第二题”的属性题题。CaptionValueTrue参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一名题窗体画个称的题题器列表～一名框个称2Form1Drive1 题的目题列表～一名题框个称的文件列表～名题框称、Dir1File1Label1 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教189 题题题“文件名”的题题和名题称、题 的题题。窗Label2BorderStyle1 体写当的题题题置题“文件系题控件”～如题所示。 题题适的程序～使得题三文件系题控件可以同个即当框内步题化～ 题题器列表中题示的容题生题化题～目题列表和文件列表中题示的容同题题生题化。 题框框内 题文件列表题～题中的文件名题示在框将中。Label2 注意, 要求程序中不得使用题量～事件题程中只能一题句。写条 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt2.vbp题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题器列表控件～通题其性口名题题窗体画个框属窗将称。一目题列表控件画个框～Drive1通题 其性口名题题属窗将称。一文件列表控件～通题其性口名题题画个框属窗将称。一题画个Dir1File1题控件～通 题其性口名题题属窗将称～题题;属画个属性,题题“文件名”。一题题控件～通题其Label1Caption 性口窗将 名题题称～属性题题。激活窗体属窗将～通题其性口题题;属Label2BorderStyle1Form1Caption 性,题题“文 件系题控件”。 当框内即运目题列表的容题生题化题;行事件题程,～在题事件题程中加入题句,ChangeChangePrivate Sub Dir1_Change() Form1.File1.Path = Form1.Dir1End Sub 当框内即运题题器列表的容题生题化题;行事件题程,～在题事件题程中加入题句,ChangeChangePrivate Sub Drive1_Change() Dir1 = Drive1 End Sub 题题文件列表;行框即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub File1_Click() Label2 = File1.FileName End Sub 参考文件,参考答案、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frm题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生目题下有一工程文件个。程序的功能是,通题题题向文本框1sjt3.vbp 中题入字～如果题入的是数数框非字字符～题提示题入题题～且文本中不题示题入的字符。题题名题称、题题题“添加”的命令按题～题文将Command1 本中的字添加到名题框数称的题合中。在题出的文件中已题添框窗体Combo1 加了全部控件～但程序不完整。要求去掉程序中的注题符～把程序中的,改 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教190 题正的容。确内 注意, 不能修改程序中的其他部分和其他控件的性。最后把修改后的文件按原属 文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～题题“添加”命令按题～行窗体即运Private Sub Command1_Click() 事件题程～ 在题事件题程中～有一题地方需要修改。 将题句1) 'Combo1.? 改题 Combo1.AddItem Text1 题题向文本题入字～行框数即运事件题程～在题Private Sub Text1_KeyPress(KeyAscii As Integer) 事件 题程中～有二题地方需要修改。 将题句1) 'If KeyAscii > 57 Or KeyAscii < ? Then改题 If KeyAscii > 57 Or KeyAscii < 48 Then将题句2) 'KeyAscii = ? 改题 KeyAscii = 0 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp ********************************************************************** ;,在考生目题下有一工程文件个。题程序的功能是题算2sjt4.vbp 之和。上有名分题题窗体称、的两个M!+(M+1)!+(M+2)!+…+N!Text1Text2文本～用于框接收题入的和;要求,。题题名题称、 题题MNM i Then Print i; j; k n = n + 1 End If Next k Next j Next i Label1.Caption = n save Label1 End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.dat 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,46 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教192 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上一名题窗体画个称、题题题“题置速度”的1Form1 Label1题题～通题性口把题题的大小题置题自题题整。一名题属窗画个称 的水平题题～通题性口题置适性使题题的最大题条属窗当属条HScroll1 题～最小题题～题题题题条两框端的箭题题～ 题题移题～题题框80 12 的初始题题。程序行后的如题所示。运窗体30 注意, 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题控件～通题其性口名题题窗体画个属窗将称～题题;属性,题题“题置速Label1Caption度”～ 属性题题。一画个条属窗将称水平题题控件～通题其性口名题题～最大题AutoSizeTrueHScroll1 ;属性,题Max 题～最小题;属性,题题～最小移题;属性,题题～初始题;属性,题题80Min1SmallChange2Value。30 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一名题窗体画个称的形控件～名分状画两个称2Form1Shape1 题题、～题题分题题“题形”、 “题色题”的命令框Command1Command2 按题。的题题题置题“题形控件”～如题将窗体所示。题题适的事写当1 件题程使得在行题～题题“题形”按题形控件题题题形。题题“运将状 题色题”按题～ 形控件的题题色题题题色;框将状框,～如题所&HFF&2 示。 注意, 要求程序中不得使用题量～每事件题程中只能一题句。个写条 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp 名题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教193 在题上一形控件～通题其性口名题题窗体画个状属窗将称。一目题列表控件～通题其画个框Shape1 属窗性 口名题题将称。二命令按题控件～通题其性口名分题题题画个属窗将称和Dir1Command1 ～题题;Command2Caption 属框性,分题题题“题形”和“题色题”。 题题“题形”按题;行即运事件题程,～在题事件题程中加入题ClickPrivate Sub Command1_Click() 句, Private Sub Command1_Click() Shape1.Shape = 3 End Sub 题题“题色题”按题;行框即运事件题程,～在题事件题程中加ClickPrivate Sub Command2_Click() 入题 句, Private Sub Command2_Click() Shape1.BorderColor = &HFF& End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～含有名分题题称、1sjt3.vbpForm1Form2的。 其中两个窗体上有控件;题两个框个像和题题器,和一菜题题Form1 “操作”～含有三菜题命令; 如题 个所示 ,。上有一名题个称1Form2 、题题题“返回”的命令按题;如题 所示,。要求题题“当窗Command12 体菜题命令题～题藏～题示。 题题“题”菜题命令题～画2”Form1Form2 使小汽题题始移题～一旦移到口的右题界题自题窗窗体跳到的左题界重新移题。题题“退出”菜题命令题～题束程序行。题去掉程序中的注题符运 ～把程序中的 ,改题正的容。确内 注意, 考生不得修改文件中已题存在的程序。最后程序按原文件名存题。窗体 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体Visual Basicsjt3.vbpsjt31.frm 和。sjt32.frm 由于所提供的程序不完整～题题子菜题命令～行窗体即运sjt31.frmPrivate Sub mnuOper_Click(Index As 事件题程～在题事件题程中～有二题地方需要修改。Integer) 将题句1) 'Select Case ? 改题 Select Case Index 将题句2) 'Timer1.Enabled =? 改题 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教194 Timer1.Enabled = True 在题题器的事件题程中～有二题地方需要修改。Private Sub Timer1_Timer()将题句1) 'If Picture1.Left + Picture1.Width >= ? Then 改题 If Picture1.Left + Picture1.Width >= Width Then 将题句2) 'Picture1.Left = ? 改题 Picture1.Left = 0 参考文件,参考答c:\wexam\26990001\hlpsys\ 案、、、、\sjt3.vbpsjt31.frmsjt31.frxsjt32.frmsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个。其上已有部分控件～题按窗体2sjt4.vbp照如题 所示添加架和题题按题。 要求, 二架～ 名分题题框画个框称1 、～在中添加一名题个的题题按题题～含数Frame1Frame2Frame1 Option1二题题题～题题分题题“个称古典音题”、“流行音题”～在名题Frame2中添加二题题按题～名分题题个称、～题题分题题“题球Option2Option3 ”、“羽毛球”。题行程序题～“运古典音题”和“题球”题题题题题中状将题。题题 “题题” 按题～把题中的题题题的题题题示在题题Label2中～如题 所示。如果“音题”或“育”未被题中～相题的题题题不可体2 题。 要求, 按照题目要求添加控件～去掉程序中的注题符～把程序中的 , 改题正确内的容。 注意, 不能修改程序的其他部分和控件性。最后把修改后的文件按原文件名属 存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的控件不完整～需二架控件～通题其性口名分题题题窗体画个框属窗将称和Frame1 。在Frame2 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教195 中一题题按题题控件～含有二题题题～通题其性口名题题画个数个属窗将称～题题Frame1Option1 ;属Caption 性,分题题题“古典音题”和“流行音题”。在中二题题按题控件～通题其性口名画个属窗将Frame1 称分题题 题和～题题;属性,分题题题“题球”和“羽毛球”。Option2Option3Caption 由于所提供的程序不完整～在窗体事件题程中～有三题地方需Private Sub Command1_Click() 要修改。 将题句1) 'If ? = True Then 改题 If Option1(0).Value = True Then将题句2) 'If ? = True Then 改题 If Option2.Value = True Then将题句3) 'Label2.Caption = ? 改题 Label2.Caption = s 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题中有一工程文件个～其功能是,出找矩题元素的最大sjt5.vbp 题～求出并窗体运数矩题题角题元素之和～外题如题所示。程序行题～矩题据被放入二题题数中。题题“当找找矩题元素最大题”命令按题题～出矩a 题中最大的～题示在题题数并中。题题“题角题当元素之和”命令按Label3 题题～题算矩题主题角题元素之和～题示在题题并中。文件中已题出Label4 部分程序～题题“写找两个矩题元素最大题”及“题角题元素之和”命令按题的事件题程中的部分程序代题。 注意, 不得修改程序的其他部分和控件性。最后把修改后的文件按原文件名存属 题。程序题题通题后～命令按题的事件题程必题两个至少各题行一次。解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需在“窗体找矩题元素最大题”命令按题的事件题程中加入题Click 句, Private Sub Command1_Click() 考生题程序题始写'======== Max = a(1, 1) For i = 1 To 4 For j = 1 To 4 If a(i, j) > Max Then Max = a(i, j) End If Next j Next i Label3.Caption = Max 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教196 考生题程序题束写'======== 不得修改以下部分' save Label3 End Sub 在“题角题元素之和”命令按题的事件题程中加入题句,Click Private Sub Command2_Click() 考生题程序题始写'======== Sum = 0 For i = 1 To 4 Sum = Sum + a(i, i) Next i Label4.Caption = Sum 考生题程序题束写'======== 不得修改以下部分' save Label4 End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第套,47 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic;,在名题称、题题题“题题”的上一名题窗体画个称的题题～1Form1Label1 并当属题置适性以题足以下要求, ,题题的容题“题算内机等题考题”～1 ,题题可根据题示容自题题整其大小～内2 ,题题题有题～且题题容题示题三字。框内号3 运窗体行后的如题所示。 注意, 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题控件～通题其性口名题题窗体画个属窗将称～题题;属性,题题“题算机等Label1Caption题 考题”～属性题题～题;框属性,题题～点题属性～在题出的“字AutoSizeTrueBorderStyle1Font体框”题题 中～在字大小下题题“三”。激活体号窗体属窗将～通题其性口题题;属性,题题Form1Caption“题题”。 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教197 ;,在名题称的上一名题窗体画个称的水平题题～其条刻度范2Form1Hscroll1 题题～再一名题画个称的文本～初始容题框内。程序题始运1-100Text11 行题～焦点在题题上。题题适的事件题程～使得程序行题～文条写当运 本中题题题示题题的前位置。行框框当运况情如题所示。 注意, 要求程序中不得使用题量～每事件题程中只能一题句。个写条 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一窗体画个条属窗将称水平题题控件～通题其性口名题题～最大题;属性,题题Hscroll1Max ～100 最小题;属性,题题～属性题。一文本控件～通题其性口名题题画个框属窗将称Min1TabIndex0 ～初始内Text1 容;属性,题题。Text1 改题题题位置;行框即运事件题程,～在题事件题程中加入ChangePrivate Sub HScroll1_Change() 题句, Private Sub HScroll1_Change()Text1.Text = HScroll1.ValueEnd Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个。上有名题窗体称的定题1sjt3.vbpTimer1器～以及名题称和的两条水平直题。Line1Line2 题用名题称的形控件～在直题之题一题和高都相状两条画个等的形Shape1 状并当属～其题示形式题题～题置适性使其题足以下要求, ,题的题端距窗体题端的距离题～1Form1360 ,题的题色题题色;题色题题的题题,或,～如题2&H000000FF& &HFF& 所示。 程序行题～运将在和之题题。运当的题端到达Shape1Line1Line2Shape1 题～自题改题方向而向下题～会运当的底部到达题～会Line1Shape1Line2改题方向而向上题。运 文件中题出的程序不完整～题去掉程序中的注题符～把程序中的 , 改题正容～使其题题上述功能。确内 注意, 不能修改程序的其他部分和已题出控件的性。最后修改后的文件按属将 原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教198 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的控件不完整～需在题上一形控件～通题其性口名题题窗体窗体画个状属窗将称 ～Shape1 属性～属性题题～题色;属性,题题题色;题题的题题,或FillStyle0Top360FillColo&H000000FF& ,。&HFF& 由于所提供的程序不完整～在窗体事件题程中～有一题地方需要修改。Private Sub Form_Load()将题句1) 'Timer1.Enabled = ? 改题 Timer1.Enabled = True 在题题器的事件题程中～有二题地方需要修改。Private Sub Timer1_Timer()将题句1) 'If Shape1.Top <= ? Then 改题 If Shape1.Top <= Line1.Y1 Then将题句2) 'If Shape1.Top + ? >= Line2.Y1 Then改题 If Shape1.Top + Shape1.Height >= Line2.Y1 Then 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～包含了所有控件和部分程序～2sjt4.vbp 如题所示。程序功能如下, ,题题“题据”按题～可考生文件题下数将文件中的个整1in4.dat100数数题到题中～a ,题题“题算”按题～题根据名题从称的题合中题中的题目～框2Combo1 题题数中的据题算数并将平均题～题算题果四舍五入取整后题示a 在文本框中。Text1 “题据”按题的数事件题程已题题出～题题“题算”按题题适写当Click 的事件题程题题上述功能。 注意, 不得修改已题存在的控件和程序～在题束程序行之前～必题题行一运 次题算～且必题用右上角的题题按题题束程序～否题无成题。最窗体 后～程序按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教199 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～需在“题算”命令按题的窗体事件题程中加入题句,ClickPrivate Sub Command2_Click()考生题写' Select Case Combo1.ListIndexCase 0 Text1 = even() Case 1 Text1 = odd() Case 2 Text1 = all() End Select End Sub 参考文件,参考答案、、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbwsjt4.frxout4.dat 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～相题的文件题窗体～此sjt5.vbpsjt5.frm外题有一名题个的文本文件～其容如下,内datain.txt 32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 程序行后题题～把文件运窗体将中的据题入到二题题数数中～datain.txtMat在上按窗体行、列的矩题形式题示出～然后来交题矩题第二列和第四列的55 数并窗体窗体窗据～在上题出交题后的矩题～如题所示。在的代题口中～已题出了部分程序～题程序不完整～题把题个它并确运充完整～能正行。要求, 去掉程序中的注题符～把程序中的 改题正的容; 可以是确内多行,～? 使其题题上述功能～但不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教200 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有四题地方Private Sub Form_Click() 需要修改。 将题句1) 'Dim ? 改题 Dim Mat(M, N) As Integer 将题句2) 'Open App.Path & "\" & "datain.txt" ? As #1 改题 Open App.Path & "\" & "datain.txt" For Input As #1 将题句3) '? 改题 Input #1, Mat%(i, j) 将题句4) '? 改题 Mat%(i, 4) = t 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,48 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称～题题题“架”的上一名题框窗体画个称～且有没1Form1Frame1题题的架。架含有二题题按题～名分题题框框内个称和、题题Opt1 Opt2分题题“字”、“大小”。体 注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt1.vbp题。sjt1.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教201 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一架控件～通题其性口名题题窗体画个框属窗将称。在架二题题按题控件～框内画个Frame1通题其 属窗将称性口名分题题和、题题;属体性,分题题题“字”和“大小”。激活Opt1Opt2Caption 窗体～通Form1 题其性口题题;属窗将属框性,题题“架”。Caption 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,考生文件题下的工程文件中有一由直题个、和2sjt2.vbpLine1Line2Line3题成的三角形～直题、和的坐题题如下所示,Line1Line2Line3 名 称X1 Y1 X2 Y2 Line1 600 1200 1600 300 Line2 600 1200 2600 1200 Line3 1600 300 2600 1200 要求一直题画条以成三角形的高～且题直题的初始题题不可题。构状Line4 再二命令按题～名分题是画个称、～题题分题题“题示高”、“Cmd1Cmd2 题藏高”～如题所示。 题题适的事件题程使得在行题～题题“题示高”按题～题题示三角写当运 形的高～题题“题藏高”按题～题题藏三角形的高。 注意, 要求程序中不得使用题量～每事件题程只能一题句。不得修改已个写条 题存在的控件～最后修改后的文件按原文件名存题。将 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt2.vbpsjt2.frm由于所提供的控件不完整～需在题上一根直题控件～通题其性口名题题窗体窗体画属窗将称 ～点Line4X1 属性题题～点属性分题题题～点属性题题～点属性题题～属性题题1600X21600Y1300Y21200Visible 。二画False 个属窗将称命令按题控件～通题其性口名分题题题和～题题;属性,分题题题“题Cmd1Cmd2Caption示高”和“题 藏高”。 题题“题示高”按题;行即运事件题程,～在题事件题程中加入题句,ClickPrivate Sub Cmd1_Click() 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教202 Private Sub Cmd1_Click() Line4.Visible = True End Sub 题题“题藏高”按题;行即运事件题程,～在题事件题程中加入题句,ClickPrivate Sub Cmd2_Click() Private Sub Cmd2_Click() Line4.Visible = False End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～在的中有一文本窗体个1sjt3.vbpForm1 框个个运～二命令按题和一题题器。程序的功能是在行题～题题“题始题 数数”按题～就题始题～每隔秒～文本中的加框数～题题“停止题”数11 按题～题停止题;如题所示,。要求,修改适的控件的性～去掉数当属并 程序中的注题符～把程序中的,改题正的容～使其题题上述功能～但确内 不能修改程序中的其他部分。最后把修改后的文件以原的文件名存题。来解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的控件性不完整～通题性口题题器的窗体属属窗将属性题题～EnabledFalseInterval 属性题题 。1000 由于所提供的程序不完整～在命令按题的窗体事件题程Private Sub C1_Click(Index As Integer) 中～有 二题地方需要修改。 将题句1) 'Select Case ? 改题 Select Case Index 将题句2) 'Case ? 改题 Case 0 由于所提供的程序不完整～在题题器的窗体事件题程中～有一题地方Private Sub Timer1_Timer() 需要修改。 将题句1) 'Text1.Text = Text1.Text ?改题 Text1.Text = Text1.Text + 1参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教203 ;,已知出租题行题不超题公里题一律收题元。超题公里题分段题理～具24104体题理方式题,公里以每内公里加收 元～公里以上每公里收 151.2151.8元。 在考生文件题下有一工程文件个。程序的功能是,题题“题入”sjt4.vbp 按题～题出一题入题题～将个框数接收出租题行题的里程～题题“题算”按题～题可根据题入的里程题算题数并将付的出租题题～题算题果题示在名题称的文本。框内Text1 在文件中已题题出了全部控件;如题所示,～但程序不完整～要求去窗体 掉程序中的注题符～把程序中的 ,改题正的容。确内 注意, 不得修改已题存在的容和控件性～最后修改后的文件按原文件名内属将 存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在窗体事件题程中～有五题地方需Private Sub Command2_Click() 要修改。 将题句1) 'Select Case ? 改题 Select Case s 将题句2) '? 改题 f = 10 将题句3) 'f = 10 + ? 改题 f = 10 + (s - 4) * 1.2 将题句4) '? 改题 Case Else 将题句5) 'f = 10 + ? + (s - 15) * 1.8改题 f = 10 + (15 - 4) * 1.2 + (s - 15) * 1.8 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～上有二题题分题是“题窗体个数sjt5.vbp 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教204 据”和“题题”的命令按题。题二题题～名分题题画个称和～Label1Label2题题分题题“出题次最数它数画个多的字母是”和“出题的次题”～再二名称分题题和～初始题题空的文本～如题所示。框Text1Text2 程序功能如下, ,题题“题据”按题～题考生文件题下数将文件的容题到题量内1in5.dats中;此题程已题出,～ ,题题“题题”按题～题自题题题文件中所含各字母;不分大小区2in5.dat 写数并将数,出题的次～出题次最多的字母题示在文本～所框内它Text1出题的次题示在数文本。框内Text2 “题据”按题的数事件题程已题题出～题题“题题”按题题适的写当Click 事件题程题题上述功能。 注意, 考生不得修改文件中已题存在的控件和程序～在题束程序行之前～窗体运 必题题行题题～且必题用右上角的题题按题题束程序～否题无成题。窗体 最后～程序按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的控件不完整～需二题题控件～通题其性口名分题题题窗体画个属窗将称和Label1 ～题Label2 题;属数它数画个框性,分题题题“出题次最多的字母是”和“出题的次题”。二文本控件～Caption 通题其属 性口名分题题题窗将称和～初始容;内属性,均题题空。Text1Text2Text由于所提供的程序不完整～需在“题题”命令按题的窗体事件题程中加入题句,ClickPrivate Sub Command2_Click()考生题写' Dim a(26) As Integer n = Len(s) For i = 1 To n c = UCase(Mid(s, i, 1))If c >= "A" And c <= "Z" Thenj = Asc(c) - Asc("A") + 1a(j) = a(j) + 1 End If Next i Max = a(1) t = Chr(Asc("A")) For i = 2 To 26 If a(i) > Max Then Max = a(i) t = Chr(Asc("A") + i - 1)End If Next i Text1.Text = t Text2.Text = Max End Sub 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教205 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.dat 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第套,49 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic;,在名题称的上一名题窗体画个称的题片～通题性口考生框属窗将1Form1Pic 文件题下的文件 添加到题片～然后题适的事件题程。框写当运Tu1-1.jpg 行程序题～题题～在题片中题示“窗体框等题考题”～如题所示。VB 注意, 要求程序中不得使用题量～事件题程中只能一题句。存题题必题存写条 放在考生文件题下～工程文件名题～文件名题窗体。sjt1.vbpsjt1.frm解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题片控件～通题其性口名题题窗体画个框属窗将称～在属性中放入PicPictureTul-1.jpg 文件。 题题;行窗体即运事件题程,～在题事件题程中加入题句,ClickPrivate Sub Form_Click()Private Sub Form_Click() 等题考题Pic.Print "VB" End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.frxsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一名题窗体画个称的命令按题～题题题“命2Form1command1 令按题”。然后建立一菜题～题题题“控件”～名题个称～包含两menu 个个称子菜题题～一是“题示命令按题”～名题～一是“另个subMenu1 题藏命令按题”～名题称～如题所示。题适的事件题程～写当subMenu2 使得程序行题～如果题题“题示命令按题”菜题命令～题题示命令按运 题控件～而如果题题“题藏命令按题”菜题命令～题题藏命令按题控件。注意, 程序中不得使用题量～每事件题程中只能一题句。存题题必题存个写条 放在考生文件题下～工程文件名题～文件名题窗体。sjt2.vbpsjt2.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教206 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一命令按题控件～通题其性口名题题窗体画个属窗将称～题题;属性,Command1Caption“命令按题”。 通题菜题题题器建立一主菜题～在菜题题题器的题题题题入“控件”～名题题入个称。在“控件”菜题menu下 有二子菜题～在菜题题题器的题题题分题题入“题示命令按题”和“题藏命令按题”～名题分题题入个称 subMenu1 和。subMenu2 题题“题示命令按题”菜题;行即运事件题程,～在题事件题程ClickPrivate Sub subMenu1_Click() 中加 入题句, Private Sub subMenu1_Click()Command1.Visible = True End Sub 题题“题藏命令按题”菜题;行即运事件题程,～在题事件题程ClickPrivate Sub subMenu2_Click() 中加 入题句, Private Sub subMenu2_Click()Command1.Visible = FalseEnd Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～行运况情如题所示。程序的功1sjt3.vbp能是题算如下表式的题,达 z=(x-2)!+(x-3)!+(x-4)!+…+(x-N)!其中的和题通题题题分题题入到文本两个框、中。题题名称NxText1Text2题、题题题“题算”的命令按题～题题算表式的题～题算达并将command1 题果题示在名题称的题题中。Label1 在文件中已题题出了全部控件和程序～但程序不完整～题去掉程序中窗体 的注题符～把程序中的 ,改题正的容。确内 要求, 程序题题通题后～必题按照如题所示题入～～然后题算的题～N=5x=12z并将题算题果题示在题题中～否题有成题。没Label1 注意, 不能修改程序的其他部分和控件性。最后把修改后的文件按原文件名属 存题。 解题思路, 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教207 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体Visual Basicsjt3.vbpsjt31.frm 和。sjt32.frm 由于所提供的程序不完整～在窗体事件题程中～有一题地方需Private Sub Command1_Click() 要修改。 将题句1) 'z = z + ? 改题 z = z + xn(t) 在函中～有三题地方需要修改。数Private Function xn(m As Integer) As Long 将题句1) 'tmp = ? 改题 tmp = 1 将题句2) 'tmp =? 改题 tmp = tmp * i 将题句3) '? = tmp 改题 xn = tmp 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbwout3.dat 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个。上有名题 窗体称的题2sjt4.vbpLabel1题和名题称的题题器控件。题程序的功能是在名题 称的题Timer1Label1题中循题题示不同的字符串。程序题始行～在题题中题示 “第一题”运 ;如题所示,～且每隔秒题依次题示“第二题”、“第三题”、“第四1 题”～如此循题。 在题出的文件中已题有了全部控件和程序～但程窗体 序不完整～要求去掉程序中的注题符～把程序中的 ,改题正的容。确内注意, 不能修改程序的其他部分和控件性。最后把修改后的文件按原文件名属 存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在窗体事件题程中～有一题地方需要修改。Private Sub Form_Load()将题句1) 第一题第二题第三题第四题'?= Array("", "", "", "") 改题 第一题第二题第三题第四题arr = Array("", "", "", "") 在事件题程中～有三题地方需要修改。Private Sub Timer1_Timer()将题句1) '? i As Integer 改题 Static i As Integer 将题句2) 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教208 'Label1.Caption =? 改题 Label1.Caption = arr(i) 将题句3) 'i =? 改题 i = 0 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个。其中有一名题窗体个称的sjt5.vbpText1文本题～下题框数从题始。程序行题～题题“题生运随数会机”按题～就0 题生个位的数随数并机～放入数题中;如题所示,～题题“重排103Text11 数将据”按题～把中的奇数数移到前面～偶移到后面;如题所示,。Text12已题题出了所有控件和部分程序。 要求, 题去掉程序中的注题符～把程序中的 ,改题正的容～ 使其能正确内确运 行～不能修改程序的其他部分和控件性。最后把修改后的文件按原文件属 名存题。 提示, 在“重排数据”按题的事件题程中有题其算法的文字描述～题仔题题题。解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有四题Private Sub Command2_Click() 地方需要修 改。 将题句1) 'j = ? 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教209 改题 j = 9 将题句2) '? = Text1(j) 改题 temp = Text1(j) 将题句3) 'While (i < ?) 改题 While (i < j) 将题句4) 'If Text1(j) Mod 2 = ? Then改题 If Text1(j) Mod 2 = 1 Then参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第套,50 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic;,在名题称的上建立一名题窗体个称的命令按题题～含三数1Form1Command1个它命令按题～题的 属性分题题、、～题题依次题“是”、“Index012 否”、“取消”～每按题的高、题均题个、。的题题题“按题窗体300800 窗运窗体口”。行后的如题所示。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一命令按题控件～通题题命令按题控件的题制题生命令按题控件题～共有三命令窗体画个数个 按题～ 通题其性口名题题属窗将称～属性分题题题、、～按题序其题题;将属Command1Index012Caption 性,分题题题 “是”、“否”、“取消”～题的高度;它属性,均题题～题度;属性,均题题Height300Width 。激活800Form1 窗体属窗将～通题其性口题题;属窗性,题题“按题口”。Caption 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一名题窗体画个称的形控件～然后建立一菜状个2Form1Sha1 题～题题题“形”～名题状称～ 题菜题有子菜题～其题题分两个shape0 题题“正方形”和“题形”～其名分题题称和～如题所示～shape1shape2然后题适的程序。 程序行后～如果题题“正方形”菜题题～题形写当运 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教210 状窗体状控件题示题正方形～ 如果题题“题形”菜题题～题上的形控件题示题题形。 注意, 程序中不能使用题量～每事件题程中只能一题句。保存题必题存个写条 放在考生文件题下～工程文件名题 ～文件名题窗体。sjt2.vbpsjt2.frm解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一形控件～通题其性口名题题窗体画个状属窗将称。通题菜题题题器建立一主菜题～在个Sha1菜题 题题器的题题题题入“形”～名题题入状称。在题菜题下有二子菜题～在菜题题题器的题题题分题题个Shape0 入“正方形”和“题形”～名题分题题入称和。Shape1Shape2题题“正方形”菜题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Shape1_Click()Me.Sha1.Shape = 1 End Sub 题题“题形”菜题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Shape2_Click()Form1.Sha1 = 3 End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～上已题有文本～名窗体两个框1sjt3.vbp称分题题、～和一命令按题～名题个称～题题题“定”～确Text1Text2C1 题题题按题～名分题题画两个称、～题题分题题“男生”、“女生Op1Op2 ”～再题题～名题分题题画两个框称、～题题分题题“育”、“体音Ch1Ch2 题”。题题适的事件题程～使得在行题～题题“定”按题后题题写当运确 下面的操作, ,根据题中的题题按题～在中题示“我是男生”或“我是女生”。1Text1 ,根据题中的题题～在框中题示“我的题好是育”或“体我的题好2Text2 是音题”或“我的题好是育体音题”。如题所示。 注意, 不得修改已题题出的程序和已有控件的性。在题束程序行之前～必属运 题题中一题题按题和个个框并确至少一题题～题题“题定”按题。必题使用右上角的题题按题题束程序～否题无成题。窗体 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教211 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的控件不完整～需在题上二题题按题控件～通题其性口名分题题窗体窗体画个属窗将称 题、Op1 ～题题;属画个框属窗将性,分题题题“男生”、“女生”。再二题题控件～通题其性口题Op2Caption 名分题称 题题、～题题;属体性,分题题题“育”、“音题”。Ch1Ch2Caption 由于所提供的程序不完整～需添加事件题程。窗体 题题“定”按题;行确即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C1_Click() Dim a As String 我是a = "" If Op1.Value Then Text1.Text = a & Op1.CaptionElse Text1.Text = a & Op2.CaptionEnd If 我的题好是a = "" If Ch1.Value = 1 Then Text2.Text = a & Ch1.Captiona = Text2.Text End If If Ch2.Value = 1 Then Text2.Text = a & Ch2.CaptionEnd If End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbwout3.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个。上有一名题窗体个称的2sjt4.vbpList1列表～名题框称的题题器～名题称的题题～如题所示。题Timer1 Label1 通题性口向列表添加四题目～分题是,“第一题”、“第二题属窗框个 ”、“第三题”、“第四题”。程序行后～题题器的题题题运将隔题置题秒题～每一秒题列表中取出一题目题示在从框个的题题中～首1Label1先题示“第一题”～然后～依次题示“第二题”、“第三题”、“第四题”～如此循题。 在题出的文件中已题有了全部控件和程序～但不完整～题添加窗体List1中的题目～去掉程序中的注题符～把程序中的 ,改题正的容。确内注意, 考生不得修改工程中已题存在的容和控件性～ 最后把修改后的文内属 件按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教212 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的控件不完整～需在列表中添加四题目～通题其性口的窗体框个属窗属性题入List “第一题”、 “第二题”、“第三题”、“第四题”。 由于所提供的程序不完整～在窗体事件题程中～有二题地方需要修改。Private Sub Form_Load() 将题句1) 'i = ? 改题 i = 0 将题句2) 'Timer1.Interval = ? 改题 Timer1.Interval = 1000 在题题器的事件题程中～有一题地方需要修改。Private Sub Timer1_Timer()将题句1) 'Label1.Caption = ? 改题 Label1.Caption = List1.List(i)参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.frxsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在上窗体画个框称文本～名题;可题示多行,～然后再三命令按画个1Text1 题～名分题题称～和～题题分题题“题”～“数Command1Command2Command3题题”和“存题”～如题所示。程序的其功能是,题题“题”按题～题把数 考生目题下的文件中的所有英文字符放入;可多行题示,～题in5.txtText1题“题题”按题～出题题找并英文字母～～～～～;不分大小,区写ijklmn 各自出题的次～题题“存题”按题～字母数将到出题次的题题题果数依次in 存到考生目题下的题序文件中。out5.txt 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt5.vbp题。sjt5.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教213 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本～通题其性口名题题窗体画个框属窗将称～多行题示;属性,题题Text1MultiLine 。画True 三命令按题控件～通题其性口名分题题题个属窗将称、和～题题Command1Command2Command3 ;属性,分Caption 题题题题数、题题和存题。"""""" 题题题数按题;行即运事件题程,～在题事件题程中加入题句,""ClickClickPrivate Sub Command1_Click()Open App.Path & "\in5.txt" For Input As #1 Text1.Text = Input(LOF(1), #1)Close #1 End Sub 题题题算按题;行即运事件题程,～在题事件题程中加入题句,""ClickClickPrivate Sub Command2_Click()For i = 1 To 6 sum(i) = 0 Next i If Len(Text1.Text) = 0 Then 题先使用题数功能,MsgBox """" Else For i = 1 To Len(Text1.Text)c = LCase(Mid(Text1.Text, i, 1))Select Case c Case "i" sum(1) = sum(1) + 1 Case "j" sum(2) = sum(2) + 1 Case "k" sum(3) = sum(3) + 1 Case "l" sum(4) = sum(4) + 1 Case "m" sum(5) = sum(5) + 1 Case "n" sum(6) = sum(6) + 1 End Select Next i End If End Sub 题题存题按题;行即运事件题程,～在题事件题程中加入题句,""ClickClick Private Sub Command3_Click() 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教214 Open App.Path & "\out5.txt" For Output As #1 For i = 1 To 6 Print #1, sum(i) Next i Close #1 End Sub 题使题的下题数从题始～需在声明部分加入题句,1 Option Base 1 数题题量存放题题和的题果～在事件题程中都要使用～所以定题成全它几个即声局题量～在明sum 部分加入 题句, Dim sum(6) As Integer 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.txt题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,51 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称～题题题“题题”的上一名题窗体画个称、题题题1Form1Frame1“字”的架。在架二题题按题～其名分题题体框框内画个称和、Opt1Opt2题题分题题“题”和“隶体运窗体宋”。程序行后的如题所示。 注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt1.vbp 题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一架控件～通题其性口名题题窗体画个框属窗将称～题题;属性,题题“字Frame1Caption体”。在 框内画个属窗将称架二题题按题控件～通题其性口名分题题题和～题题;属性,分Opt1Opt2Caption题题题“隶 题”和“宋体”。激活窗体属窗将～通题其性口题题;属性,题题“题题”。Form1Caption参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上用名题窗体称的形控件一题～其直题状画个径2Form1shape1 ;高、题均题,～再二命令按题～题题分题是“画个垂直题”10001000 和“水平题”～名分题题 称、～如题所示。然后题写Command1Command2两个命令按题的事件题程。程序行后～如果题题“运垂直题”命令Click 按题～题题的部用内填垂直题充～如果题题“水平题” 命令按题～题题 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教215 的部用内填水平题充。 注意, 程序中不得使用题量～每事件题程中只能一题句。存题题必题存个写条 放在考生文件题下～工程文件名题～文件名题窗体。sjt2.vbpsjt2.frm解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一形控件～通题其性口名题题窗体画个状属窗将称～高;属性,题题、题Shape1Height1000 ;Width 属性,题题～属性题题。二命令按题控件～通题其性口名分题题题画个属窗将称1000Shape3 、～Command1Command2 题题;属性,分题题题“垂直题”和“水平题”。Caption 题题“垂直题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command1_Click()Shape1.FillStyle = 3 End Sub 题题“水平题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command2_Click()Shape1.FillStyle = 2 End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～题在名题称的上窗体画1sjt3.vbpForm1一名题 个称的文本和一名题 框个称～题题题“题题”的命令按Text1C1 题～如题所示。在程序行题～题题“题题” 按题～可以把 运中的Text1大字母题题题小～把小字母题题题大。 文件中已题题出了写写写写窗体 “题题”按题的事件题程～但不完整～题去掉程序中的注题符～把Click 程序中的 ,改题正的容。确内 注意, 不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的控件不完整～需在题上一文本控件～通题其性口名题题窗体窗体画个框属窗将称 。一画Text1 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教216 个属窗将称命令按题控件～通题其性口名题题～题题;属性,题题“题题”。C1Caption 由于所提供的程序不完整～在命令按题的窗体事件题程中～有三题地方Private Sub C1_Click() 需要修改。 将题句1) 'n% = Asc("a") - Asc( ? )改题 n% = Asc("a") - Asc("A")将题句2) 'b$ = String(1, Asc(b$) ? )改题 b$ = String(1, Asc(b$) + 32)将题句3) 'Text1.Text = ? 改题 Text1.Text = a 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～其功能是,2sjt4.vbp,题题“题据”命令按题～把考生文件题下数文件中已按升序方1in4.dat式排列的个数数题入题～题示在并中～60AText1 ,题题“题入”按题～题出一题入题题～个框个接收用题题入的任意一2 整～数 ,题题“入”按题～题入的入插将数插数题中合适的位置～使其仍保持3A 数将题的升序排列～最后数内题的容重新题示在中。AAText1在文件中已题题出了全部控件;如题所示,和程序～但程序不完整～窗体 要求去掉程序中的注题符～把程序中的 ,改题正的容。 本程序只考确内题入一整的插个数况情。 注意, 不得修改已题存在的容和控件性～最后修改后的文件按原文件名内属将 存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在“入”按题的窗体插事件题程中～Private Sub Command3_Click() 有五题地 方需要修改。 将题句1) 'If num < a(i) Then ? 改题 If num < a(i) Then Exit For将题句2) 'For j = 60 To i ? 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教217 改题 For j = 60 To i Step -1将题句3) 'a(j + 1) = ? 改题 a(j + 1) = a(j) 将题句4) '? = num 改题 a(i) = num 将题句5) 'For k = 1 To ? 改题 For k = 1 To 61 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～ 其上有二题题分题题“窗体个sjt5.vbp 题据”和“题题”的命令按题。题二题题～其名分题是 数画个称和Label1 ～ 题题分题题“题题的平均题度题”和“最题题题的题度题”～再Label2 画个称二名分题题 和～初始容题空的文本～如题所示。程内框Text1Text2 序功能如下, ,如果题题“题据”命令按题～题考生文件题下 数将文件的容内1in5.dat题到题量中;此题程已题出,～s ,如果题题“题题”按题～题自题题题题量;中题含有字母和空格～而2ss 空格是用分来个并将隔不同题题的,中每题题的题度～所有题题的平均题度;四舍五入取整,题示在 文本～最题题题的题度题示框内将Text1 在文本。框内Text2 “题据”命令按题的数事件题程已题题出～题题“题题”命令按题题Click 写当适的事件题程～题题上述功能。 注意, 考生不得修改文件中已题存在的控件和程序～ 在题束程序之前～必窗体 题题行题题～ 且必题通题题题右上角的“题题”按题题束程序～否窗体 题无成题。最后～程序按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的控件不完整～需二题题控件～通题其性口名分题题题 窗体画个属窗将称和Label1 ～题Label2 题;属画个框性,分题题题“题题的平均题度题”和“最题题题的题度题”。二文本控件～通题其Caption 属性 窗将称口名分题题题和～初始容;内属性,均题题空。Text1Text2Text 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教218 由于所提供的程序不完整～需在“题题”命令按题的窗体事件题程中加入题句,ClickPrivate Sub Command2_Click()需考生题写' n = Len(s): t = "" Dim word_max As Integer, word_num As Integer, word_len As Integer For i = 1 To n c = Mid(s, i, 1) If c <> " " Then t = t + c Else word_len = word_len + Len(t)word_num = word_num + 1 If Len(t) > word_max Thenword_max = Len(t) End If t = "" End If Next i Text1.Text = CInt((word_len + Len(t)) / (word_num + 1)) If Len(t) > word_max Thenword_max = Len(t) End If Text2.Text = word_max End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.dat 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,52 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上用名题窗体称的形控件一题、题都题状画个1Form1shape11200的正方形。题题置适的性题足以下要求,当属 ,的题题题“正方形”～的最小化按题不可用～窗体窗体1 ,正方形的题题题;题型不框虚运窗体限,。行后的如题所示。2 注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt1.vbp题。sjt1.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教219 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一形控件～通题其性口名题题窗体画个状属窗将称～高;属性,题题～题shape1Height1200 ;Width 属性,题题～属性题题。激活窗体属窗将～通题其性口题题;属1200BorderStyle2Form1Caption性,题题“正 方形”～最小化按题;属性,题题。MinButtonFalse 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称、题题题“题题”的上～一名题窗体画个称～可并2Form1Label1自题题整大小的题题～ 其题题题“题算机等题考题”～字大小题三体号 字～再二命令按题～ 题题分题是“画个体体称宋”和“黑”～名分题题 、。如题所示。Command1Command2 要求, 题命令按题的写两个事件题程。 程序行后～如果题题“运体宋”Click 命令按题～题题题容题示题内体体体宋字～如果题题“黑”按题～题题 题容题示题黑字。内体体 注意, 程序中不得使用题量～事件题程中只能一题句。存题题必题存放在写条 考生文件题下～工程文件名题～文件名题窗体。sjt2.vbpsjt2.frm解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题控件～通题其性口名题题窗体画个属窗将称～属性题题～题题Label1AutoSizeTrue;Caption 属性,题题“题算机等题考题”～点题属体框将号画个性在题出的字题题中大小题题“三”。二题命Font 令按题 控件～通题其性口名分题题题属窗将称、～题题;属性,分题题题“宋Command1Command2Caption体体”、“黑”。 题题“宋体即运”按题;行事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click() 宋体Label1.FontName = "" End Sub 题题“黑”按题;行体即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command2_Click() 黑体Label1.FontName = "" End Sub 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教220 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～其上有一名题窗体个称1sjt3.vbpLabel1的控件题～含三题题～题题分题是“题始题题”、“题束题题”和“数个 通题题用”～有一名题个称的控件题～含三初始题题空的文本数个Text1 框个称～此外题有二名分题题和的命令按题～题题分题是“通题Cmd1Cmd2 题始”和“通题题束”。其中通题性口题“通题题束”命令按题的初属窗 始题题置题状禁用～如题所示。题程序的功能是题算公用题题题题收题。题题收题题准题,通题题题在分题以题～内收题元～ 分题以上题～30.53 每超题分题加收元～不足分题按分题题算。程序题行的操作如下,10.1511 ,如果题题“通题题始”按题～ 题在“题始题题”右题的文本中题示框1 题始题题～ 且“通题题束”命令按题题题可用题～“通题题始”命状 令按题不可用～ ,如果题题“通题题束”按题～ 题“题束题题”右题的文本中题示题框2 束题题～同题题算通题题用～ 其题示在“通题题用”右题的文本并将 框状中～“通题题始”命令按题题题可用题～ “通题题束”命令按题不可用。 在文件中已题题出了全部控件;如题所示,和程序～但程序不完整～窗体 要求去掉程序中的注题符～把 ,改题正的容～以题题上述功能。确内 注意, 不得修改已题存在的容和控件性～最后修改后的文件按原文件名内属将 存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的控件不完整～通题“通题题束”的性口窗体属窗将属性题题。EnabledFalse 由于所提供的程序不完整～在“通题题始”按题的窗体事件题程中～Private Sub Cmd1_Click() 有一题地 方需要修改。 将题句1) '? = Str(Time()) 改题 Text1(0).Text = Str(Time())在“通题题束”按题的事件题程中～有三题地方需要修改。Private Sub Cmd2_Click() 将题句1) 's = ? + (m - 3) * 0.15 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教221 改题 s = s + (m - 3) * 0.15将题句2) '? = True 改题 Cmd1.Enabled = True 将题句3) '? = False 改题 Cmd2.Enabled = False 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp ********************************************************************** ;,在考生文件题下有一工程文件个～文件中有题据～每数2sjt4.vbpin4.txt5 题个数学学～依次代表题文、英题、、物理、化题 题题程个人的成10510 题。程序行题～题题“题入据”按题～可文件 运数从中题入据数in4.txt 放到题数中。题题“题算”按题～题题算题题程的平均分;平均分取整a5 ,～并依次放入文本题中。题题“题示题形”按题～题题示框数平Text1 均分的直方题～如题所示。文件中已题有了全部控件～但程序不完整窗体 ～要求去掉程序中的注题符～把程序中的 ,改题正的容。确内 注意, 不能修改程序的其他部分和控件性。最后把修改后的文件按原文件名存属 题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～打题文件并窗体。Visual Basicsjt4.vbpsjt4.frm由于所提供的控件不完整～在窗体题入据数按题的事件题程中～""Private Sub Command1_Click() 有一题 地方需要修改。 将题句1) 'Open App.Path & "\in5.txt" For ? As #1改题 Open App.Path & "\in5.txt" For Input As #1在题算按题的事件题程中～有二题地方需要修改。""Private Sub Command2_Click()将题句1) 's(i) = ? 改题 s(i) = a(i, j) + s(i) 将题句2) 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教222 '? = CInt(s(i) / 10) 改题 s(i) = CInt(s(i) / 10) 在题示题形按题的事件题程中～有二题地方需要修改。""Private Sub Command3_Click()将题句1) 'Shape1(k - 1).Top = ? - Shape1(k - 1).Height改题 Shape1(k - 1).Top = m - Shape1(k - 1).Height将题句2) 'Shape1(k - 1).? = True 改题 Shape1(k - 1).Visible = True 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp ********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER%在考生文件题下有一工程文件个～其上有二题题分题是“窗体个sjt5.vbp题据”和“题题”的命令按题。题二题题～其名分题是数画个称和Label1 ～题题分题题“最题题题的题度题”和“以题题度最后一次出题的Label2 题题是”～再二名分题题画个称和～初始题题空的文本～如框Text1Text2题所示。程序功能如下, ,如果题题“题据”按题～题考生文件题下数将文件的容题到内1in5.dat题量中;此题程已题出,～s ,如果题题“题题”按题～题自题题题文件;题文件中题含有字2in5.dat母和空格～ 而空格是用分来隔不同题题的,中最题题题的题度～以及 中最后一以题题度出题的题题～ 题题题的题度题示在个并将in5.dat 文本～题题题题示在框内将文本。框内Text1Text2 “题据”命令按题的 数事件题程已题题出～题题“题题”命令按题Click 题适的事件题程～题题上述功能。写当 注意, 考生不得修改文件中已题存在的控件和程序～在题束程序行之前～窗体运 必题题行题题～且必题通题题题右上角的“题题”按题题束程序～窗体 否题无成题。最后～程序按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的控件不完整～在题上二题题控件～通题其性口名分题题题窗体窗体画个属窗将称 、Label1 ～题题;属画个性,分题题题“最题题题的题度题”、“以题题度最后一次出题的题题是”。二Label2Caption 文本控件～通题其性口名题题框属窗将称、～文本容;内属性,均题题空。Text1Text2Text 题题“题题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command2_Click() 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教223 n = Len(s): t = "" Dim Max_len As IntegerFor i = 1 To n c = Mid(s, i, 1) If c <> " " Then t = t + c Else If Len(t) > Max_len ThenMax_len = Len(t) Max_word = t End If t = "" End If Next i If Len(t) > Max_len ThenMax_len = Len(t) Max_word = t End If Text1.Text = Max_len Text2.Text = Max_word End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,53 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称、题题题“鼠题光题形”的上状窗体画个称名题的1Form11Text1文本。题通题性口题置适性～使得程序行题～鼠题在文本框属窗当属运 框中题～鼠题光题题箭题;,形～在中其他位置题～鼠题状窗体光Arrow 题题十字;,形。状Cross 注意, 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本控件～通题其性口名题题窗体画个框属窗将称～属性题题。激活Text1MousePointer1Form1 窗体属窗将～通题其性口题题;属状性,题题“鼠题光题形”～属性题题。CaptionMousePointer2参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上二名分题题窗体画个称、～题题分题题2Form1Label1Label2“题始位置”、“题中的字符” 的题题～三文本～名分题题数画个框称 、、～再一名题画个称～题题题“题示题中信Text1Text2Text3Command1 息”的命令按题。程序行题～在运中题入若干字符～用鼠题题中并Text1 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教224 一些字符后～题题“题示题中信息”按题～ 题把题中的第一字符的题个 序题示在号中～题中的字符题示在个数中～如题所示。Text2Text3 要求, 画写出所有控件～题命令按题的事件题程。Click 注意, 要求程序中不得使用题量～事件题程中只能题句～分题用于题写两条 示第一字符的题序和题示题中的字符。存题题必题存放在考个号个数 生文件题下～工程文件名题～文件名题窗体。sjt2.vbpsjt2.frm解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上二题题控件～通题其性口名题题窗体画个属窗将称、～题题;属性,分题题Label1Label2Caption题 “题始位置”、“题中的字符”。三文本控件～通题其性口名分题题题数画个框属窗将称 、、。Text1Text2Text3 画个属窗将称一命令按题控件～通题其性口名题题～题题;属性,题题“题示题中Command1Caption信息”。 题题“题示题中信息”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click() Text2 = Text1.SelStart + 1 Text3 = Text1.SelLength End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp 题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～上有一窗体个个矩形和一题～1sjt3.vbp 题有垂直和水平题题各一。程序行题～移题某题题题的题题题～条个运个条 可使题做相题方向的移题。题题条刻度题的范题是题可以在矩形中移题的 范题。以水平题题题条靠例～题题题在最左题题～题在矩形的左题题上～ 题题;,～题题题在最右题题～题在靠矩形的右题题上～题题;,。垂ab 直题题的条况与情此题似。 已题题出了全部控件和程序～但程序不完整～题去掉程序中的注题符～把程序中的 ,改题正的容。确内 注意, 不能修改程序的其他部分和控件性。最后把修改后的文件按原文件名属 存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教225 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm由于所提供的程序不完整～在题题题窗体启窗体事件题程中～有二题地方Private Sub Form_load()需要修改。 将题句1) 'HScroll1.Max = Shape2.Width + Shape2.Left - Shape1.? 改题 HScroll1.Max = Shape2.Width + Shape2.Left - Shape1.Width 将题句2) 'VScroll1.Max = Shape2.Height + ? - Shape1.Height 改题 VScroll1.Max = Shape2.Height + Shape2.Top - Shape1.Height 在水平题题的条事件题程中～有一题地方需要修改。Private Sub HScroll1_Change()将题句1) '? = HScroll1.Value 改题 Shape1.Left = HScroll1.Value在垂直题题的条事件题程中～有一题地方需要修改Private Sub VScroll1_Change()将题句1) 'Shape1.Top = ? 改题 Shape1.Top = VScroll1 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个。中已题题出了所有控件～窗体2sjt4.vbp如题所示。行题～题题“题运将运射”按题～航天题机题题向上题～速度逐题加快～全部题入云中后题停止～把题行并离距;用坐题题表示,、所用题题;题位题秒,分题题示在题题和中～题题“保存”按Label1Label2 题～题把题行距离、所用题题存入考生文件题下的文件中。out4.txt已题题出了程序～但不完整～题去掉程序中的注题符～把程序中的,改题正的容。确内 注意, 不能修改程序的其他部分和控件性。最后把修改后的文件按原文件名属 存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教226 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在“题窗体射”按题的事件题程中～Private Sub Command1_Click() 有一题地 方需要修改。 将题句1) 'Timer1.? = True 改题 Timer1.Enabled = True 在题题器的事件题程中～有三题地方需要修改。Private Sub Timer1_Timer()将题句1) '? = False 改题 Timer1.Enabled = False 将题句2) 'd = ? - Image1.Top 改题 d = d - Image1.Top 将题句3) 't = ? 改题 t = t + 1 参考文件,参考答案、、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.frxsjt4.vbwout4.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～其上有三题题、三文本窗体个个sjt5.vbp 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教227 框两个称和命令按题～均使用默题名。程序的功能是, ,如果题题“题据”命令按题～题把考生文件题下数文件中题已两1in5.dat按升序方式排列的;每题 数个数数,分题题入题和～分题题并将它30AB 题示在、中～Text1Text2 ,如果题题“合”命令按题～题 并将、两个数并另个题合题一题按升序方2AB 式排列的题数～合后题并将并数中的据数依升序方式题示在中。CCText3窗体数中题出了所有控件;如题所示, 以及“题据”命令按题的事件Click题程～题完善“合”命令按题的并事件题程～使其题题上述功能。Click 注意, 不得修改已题存在的控件和程序～在题束程序行之前～必题题行合操运并 作～且必题通题右上角的“题题”按题题束程序～否题无成题。最后窗体 ～程序按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“合”按题;行并即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command2_Click()ia = 1: ib = 1: ic = 1 Do While ia <= 30 And ib <= 30If a(ia) < b(ib) Then c(ic) = a(ia): ia = ia + 1Else c(ic) = b(ib): ib = ib + 1End If ic = ic + 1 Loop Do While ia <= 30 c(ic) = a(ia): ia = ia + 1: ic = ic + 1 Loop Do While ib <= 30 c(ic) = b(ib): ib = ib + 1: ic = ic + 1 Loop 以下程序合后的题将并数题示在中'CText3 For k = 1 To 60 Text3 = Text3 + Str(c(k)) + Space(2)Next k End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.dat 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教228 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,54 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上窗体画个称名题的题角矩形～高、题分题题1Form11Shape1 、。题利用性口题置适的性题足以下要求,属窗当属10002000 ,题角矩形中题题色;题色题题,填或 ,～1&H0000FF00& &HFF00&,的题题题“题角窗体矩形”。2 运窗体行后的如题所示。 注意, 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一形控件～通题其性口名题题窗体画个状属窗将称～高;属性,题题～题shape1Height1000 ;Width 属性,题题～属性题题～属性题题～属性题题。激活2000Shape4FillStyle0FillColor&HFF00&Form1 窗体～通题 其性口题题;属窗将属性,题题“题角矩形”。Caption 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在考生文件题下有一工程文件 个。中已含有除题题器外的窗体2sjt2.vbp其他控件～题有一题程个～其功能是按照中的通题题题题算通sub1Text1题题～其题示在并将中。Text2 程序行题～题题“通题题始”按题～题在运中累加通题题题;每秒Text1 加,～题题“通题题束”按题～题停止通题题题的累加～题题“题算通1 题题”按题～题题用题程。sub1 要求, ,在上一题题器;题题,～通题性口题置适性。窗体画个并属窗当属1 ,题三按题的写个事件题程。2Click ,题题题器的事件题程。写3 注意, 要求程序中不得使用题量～每事件题程中只能一题句～ “题算个写条 通题题”按题的事件题程中只允题题用题程。 不得修改已题存在sub1 的容和控件性～最后把文件按原文件名存题。内属 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教229 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt2.vbpsjt2.frm 由于所提供的控件不完整～需在题上一题题器控件～题题器题始不题题～把窗体窗体画个即 ;属性,Enabled 题题～属性题题;每秒加,。FalseInterval10001 题题“通题题始”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command1_Click()Timer1.Enabled = True End Sub 题题“通题题束”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command2_Click()Timer1.Enabled = False End Sub 题题“题算通题题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command3_Click()sub1 End Sub 题题器的事件题程～在题事件题程中加入题句,TimerTimer Private Sub Timer1_Timer()Text1 = Text1 + 1 End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个。程序行题～题题题题示运窗体1sjt3.vbp如题所示的题案。题去掉程序中的注题符～把程序中的 , 改题正的确内容。 注意, 不能修改程序的其他部分和控件性。最后把修改后的文件按原文件名属 存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教230 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有四题地方Private Sub Form_Click() 需要修改。 将题句1) 'For i = 1 To ? 改题 For i = 1 To 5 将题句2) 'For j = 1 To ? 改题 For j = 1 To 2 * i - 1 将题句3) 'For j = 1 To ? 改题 For j = 1 To i + 1 将题句4) 'For j = 1 To ? 改题 For j = 1 To 9 - 2 * i 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～中有一窗体个个矩形和一题～2sjt4.vbp 程序行题～题题 “题始”按题～题可以题向或向题;通题题题题运横运 题按题定 ,～到来决碰运矩形的题题～题向相反方向题～题题“停止”按题～题停止题～如题所示。可以题题题题按题题改题题方向。运随运 已题题出了所有控件和程序～ 但程序不完整～题去掉程序中的注题符～把程序中的 ,改题正的容。确内 注意, 不得修改已题存在的容和控件性～ 最后把修改后的文件按原文件内属 名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在“停止”按题的窗体事件题程中～Private Sub Command2_Click() 有一题地 方需要修改。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教231 将题句1) '? = False 改题 Timer1 = False 在题题器的事件题程中～有三题地方需要修改。Private Sub Timer1_Timer()将题句1) 'Shape2.Top = ? + d * 50 改题 Shape2.Top = Shape2.Top + d * 50将题句2) 'If Shape2.Top <= Shape1.? Or Shape2.Top + Shape2.Width >= Shape1.Top + Shape1.Height Then 改题 If Shape2.Top <= Shape1.Top Or Shape2.Top + Shape2.Width >= Shape1.Top + Shape1.Height Then 将题句3) 'Shape2.Left = ? + d * 50改题 Shape2.Left = Shape2.Left + d * 50 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个。 程序行题～题题“入据运装数sjt5.vbp ”按题～题考生目题下的从文件中题入所有城市名和称离距～城市in5.txt 名按题序添加到列表称框中～距离数放到题中～题中列表中的当框List1a 一个它离城市题～的距就题示在中～如题所示～此题～题题“题算运Text1 题”按题～题题算到题城市的每题;题果取整～不四吨运并舍五入,～题示在中。Text2 每题的题算方法是,吨运离距 折扣 题价。× × 其中,题价题。0.3 折扣离题 距折扣题<500 1 距离折扣题500?<1000 0.98 距离折扣题1000?<1500 0.95 距离折扣题1500?<2000 0.92 距离扣 折题2000?0.9 题题“保存”按题～题把距离吨运和每题存到文件中。out5.txt已题题出了所有控件和部分程序～要求, ,去掉程序中的注题符～把程序中的 ,改题正的容～确内1 ,题列表的写框事件题程～2Click ,题“题算题”按题的写运事件题程～3Click 注意, 不得修改已题存在的程序～在退出程序之前～必题至少题算一次题～运且必题用“保存”按题存题题算题果～否题无成题。最后～程序按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教232 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“题算题”按题;行运即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command2_Click()p = 0.3 d = Int(Text1.Text / 500)Select Case d Case 0 discount = 1 Case 1 discount = 0.98 Case 2 discount = 0.95 Case 3 discount = 0.92 Case Else discount = 0.9 End Select Text2 = Int(discount * p * Text1)End Sub 题题列表中的某框个即运城市;行事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub List1_Click()Text1 = a(List1.ListIndex + 1)End Sub 在“入据”按题的装数事件题程中～有二题地方需要修改。Private Sub Command1_Click() 将题句1) 'n = n + ? 改题 n = n + 1 将题句2) 'List1.AddItem ? 改题 List1.AddItem ch$ 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.dat 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,55 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教233 ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称～题题题“考题”的上一名题窗体画个称、初始内1Form1Combo1容题空的下拉式题合。下框隶体体拉列表中有“题”、“宋” 和“楷”三题目。行后的如题所示。个运窗体 注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt1.vbp题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题合控件～通题其性口名题题窗体画个框属窗将称～其初始容;内属性,题题Combo1Text 空～向 题合中添加题目;框属隶体体性,～添加的题目分题题“题”、“宋” 、“楷”。激活ListForm1 窗体～通题 其性口题题;属窗将属性,题题“考题”。Caption 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.frxsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上二文本～其名分题题窗体画个框称、～初2Form1Text1Text2始容都题空～题示题三字～且内号的初始题题不可用。再一状画个Text1 名题称、题题题“题始”的命令按题。如题所示。Command1 要求, 题适的事件题程～使得题题“题始”按题后～写当文本题题可框Text1 用题～且在状文本中题入字母串题～框文本中用大字框写Text1Text2 母形式题示文本中的容。程序中不得使用题量～每事件题框内个Text1 程中只能一题句。写条 注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt2.vbp 题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上二文本控件～通题其性口名分题题题窗体画个框属窗将称、～其文本容;内Text1Text2Text 属性, 均题题空～点题属体框将号性在题出的字题题中大小题题“三题”～的属性题题FontText1Enabled 。一画个False 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教234 命令按题控件～通题其性口名题题属窗将称～题题;属性,题题“题始”。Command1Caption题题“题始”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click()Text1.Enabled = True End Sub 内容改题引起的改题;行即运事件题程,～在题事件题程中加入题句,Text1Text2ChangeChangePrivate Sub Text1_Change() Text2 = UCase(Text1) End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～其功能是,1sjt3.vbp ,题题“题据”按题～题把考生文件题下数文件中的个数整题1in3.dat20 入题数中～同题题示在文本中～框aText1 ,题题“题题”按题～题题数中元素的位置自题题题;第一题即个数元2a 素最后一题与个数个数与数个数元素题题～ 第二题元素倒第二题元素 题题……,～位置题整后的题题示在文本并将数框中。Text2在文件中已题题出了全部控件;如题所示,～但程序不完整。窗体 要求, 完善程序使其题题上述功能。 注意, 考生不得修改文件中已题存在的控件和程序～在题束程序行前～窗体运 必题题行“题题”操作～且必题用右上角的“题题”按题题束程序窗体 ～否题无成题。最后～程序按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“题题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command2_Click()For i = 1 To 10 temp = a(i) a(i) = a(20 - i + 1) a(20 - i + 1) = temp Next i For k = 1 To 20 Text2 = Text2 + Str(a(k)) + Space(2) 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教235 Next k End Sub 参考文件,参考答案、、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.frxsjt3.vbwout3.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～ 上有二题题分题题“窗体个2sjt4.vbp题据”和“题题”的命令按题～二名分题题数个称和～初始题Text1Text2题空的文本。如题所示。框 程序功能如下, ,题题“题据”按题～题考生文件题下数将文件的容;题文件内1in4.dat中题含有字母和空格,题示在文本中～框Text1 ,在文本中题中容后～题题“题题”按题～题自题题题题中文框内2Text1 本中未出题题的字母;题题题程中不分大小, ～题些字母从区写并将 以大形式题示在写文本。框内Text2 题“题题”按题将事件题程中的注题符去掉～把 ,改题正容～确内Click 以题题上述程序功能。 注意, 考生不得修改文件中已题存在的控件和程序。最后把修改后的文件窗体 按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在“题题”按题的窗体事件题程中～Private Sub Command2_Click() 有四题地 方需要修改。 将题句1) 'If ? Then 改题 If sl = 0 Then 将题句2) 'For i = 1 To ? 改题 For i = 1 To sl 将题句3) 'a(n) = ? 改题 a(n) = a(n) + 1 将题句4) 'For i = 1 To ? 改题 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教236 For i = 1 To 26 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp ********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER%在考生文件题下有一工程文件个～ 在题工程文件中已题定题了一sjt5.vbp个学数生题题题型据。 有三题题分题题“”、“个学号姓名”和StudType “平均分”的题题～三初始容题空～ 用于个内学号接收、姓名和平均分的 文本框、和～一用于题示个框个排序题果的题片。题有二Text1Text2Text3 题题分题是“添加”和“排序”的命令按题。如题所示。程序功能如下, ,在、和三文本中题入、个框学号姓名和平均分后～题1Text1Text2 Text3 题“添加”按题～题题入容存入自定题的生题题题型题将内学数中stud～;注,最多只能题入个学学号生信息～且不能题空,10 ,题题“排序”按题～题生题题题型题将学数中存放的生信学息～按2stud平均分降序排列的方式题示在题片中～每生一行～且题示三题信框个学 息。 题“添加”、“将排序”按题事件题程中的注题符去掉～把 , 改题Click 正的容～以题题上述程序功能。确内 注意, 考生不得修改文件中已题存在的控件和程序～ 最后把修改后的文件窗体 按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～打题文件并窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的控件不完整～在“添加”按题的窗体事件题程中～Private Sub Command1_Click() 有二题地 方需要修改。 将题句1) 'n = ? 改题 n = n - 1 将题句2) '? = Text1 改题 stud(n).Num = Text1 在“排序”按题的事件题程中～有三题地方需要修改。Private Sub Command2_Click()将题句1) 'For k = ? To n 改题 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教237 For k = j + 1 To n 将题句2) 'If stud(k).Average > stud(j).? Then改题 If stud(k).Average > stud(j).Average Then 将题句3) 'stud(k) = ? 改题 stud(k) = stud(j) 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,56 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称～题题题“题题”的上～ 一名题窗体画个称～容内1Form1Label1题“题算机等题考题”～题示题四字的题题。题题置适的性题足以号当属 下要求, ,不题有最大化、最小化及题题按题～窗体1 ,题题题有题～框2 ,题题可依据属内性指定的容自题题整其大小。3Caption 运窗体行后的如题所示。 注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt1.vbp题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题控件～通题其性口名题题窗体画个属窗将称～题题;属性,题题“题算机等Label1Caption题 考题”～点题属体框将号性在题出的字题题中大小均题题“四题”～题题大小自题题整;FontAutoSize 属性,题 题～题;框属性,题题。激活窗体属窗将～通题其性口题题;属TrueBorderStyle1Form1Caption性,题题“题 题”～控制;框属性,题题。ControlBoxFalse 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一名题窗体画个称～ 容题“程序题题”的文内2Form1Text1 本～且题示题三字、框号画个体居中～再二命令按题～ 题题分题是“粗 ”和“斜体称”～名分题题、。如题所示。Command1Command2 要求, 题命令按题的写两个事件题程～使得题题“粗体”按题题～文本Click 框内体体框内的容题示题粗格式～ 题题“斜”按题题～文本的容题示 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教238 题斜体格式。 注意, 程序中不得使用题量～每事件题程中只能一题句。个写条 存题题必题存放在考生文件题下～工程文件名题～ 文件窗体sjt2.vbp 名题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本控件～通题其性口名题题窗体画个框属窗将称～文本容;内属性,题题Text1Text“程序题题”～ 点题属体框将号性在题出的字题题中大小题题“三题”～题题格式;属性,题题。二画FontAlignment2个命令按 题控件～通题其性口名分题题题属窗将称、～题题;属性,分题题题“粗Command1Command2Caption体”和“斜 体”。 题题“粗体即运”按题;行事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click() Text1.FontBold = True End Sub 题题“斜体即运”按题;行事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command2_Click() Text1.FontItalic = True End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp 题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生目题下有一工程文件个～其中的中有一名题窗体个1sjt3.vbpText1的文本～初始容题框内～一题题～一题题器～一有个个个两个元素的题0 题按题题～名题数称～题题依次题“秒”、“秒”～命令按题～两个Op113 名分题题称、～题题分题题“题始题”、“停止题”～ 同题题数数C1C2 出了事件题程～但不完整。在行题要完成下面的功能,两个并运 题题一题题按题～可以题置题题题个隔题 秒或秒～题题“题始题”～数13 题中的按题定的题题题数隔每次加～题题“停止题”～题数Text11Text1中的不再题化。数 题按下面的要求题置性和题程序～以属写便题题上述功能,,题置题题器的性～使其在初始题下不题题。属状1 ,去掉程序中的注题符～把程序中的 ,改题正的容。确内2 ,题命令按题题适的事件题程～每事件题程中只能有一题两个写当个条3 句～不能使用题量。 注意, 不能修改已有程序的其他部分和控件的其他性。最后把修改后的文属 件按原文件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教239 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的控件不完整～通题题题器性口窗体属窗将题题。EnabledFalse由于所提供的程序不完整～需添加事件题程。窗体 题题题始题数按题;行即运事件题程,～在题事件题程中加入题句,""ClickClickPrivate Sub C1_Click() Timer1.Enabled = True End Sub 题题停止题数按题;行即运事件题程,～在题事件题程中加入题句,""ClickClickPrivate Sub C2_Click() Timer1.Enabled = False End Sub 在题题按题题的数事件题程中～有一题地方需要修改。Private Sub Op1_Click(Index As Integer) 将题句1) 'Select Case ? 改题 Select Case Index 在题题器的事件题程中～有一题地方需要修改。Private Sub Timer1_Timer()将题句1) 'Text1.Text = ?.Text + 1改题 Text1.Text = Text1.Text + 1参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～其功能是,2sjt4.vbp,题题“题据”按题～ 题把考生文件题下数文件中已按升序方1in4.dat式排列的个数数题入题～题示在并中～60AText1,题题“题入”按题题出题入供将框个数接收用题题入的任意一～2 ,题题“题除”按题～ 题首先判“题入”的是否存在于断数数题中～3A若不存在～题题出相题提示～若存在～ 题题题题题题将数从数中题除～并A将题除后数内题的容重新题示在中。AText1 在题出的文件中已题有了全部控件;如题所示,～ 但程序不完整～窗体 要求, 去掉“题除”按题事件题程中的注题符～把 ,改题正的容～确内Click 以题题上述程序功能。 注意, 不得修改已题存在的容和控件性～ 最后修改后的文件按原文件内属将 名存题。 解题思路, 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教240 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在“题除”按题的窗体事件题程中～Private Sub Command3_Click() 有五题地 方需要修改。 将题句1) 'If num = ? Then Exit For改题 If num = a(i) Then Exit For将题句2) 'If ? Then 改题 If i > n Then 将题句3) 'For j = i To ? 改题 For j = i To n 将题句4) 'a(j) = ? 改题 a(j) = a(j + 1) 将题句5) 'For k = 1 To ? 改题 For k = 1 To n 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp ********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER%在考生文件题下有一工程文件个～上有二题题分题是“题窗体个数sjt5.vbp据”和“题题”的命令按题和初始题题空、名分题题称和的二个Text1Text2 文本。如题所示。框 程序功能如下, ,题题“题据”按题～题考生文件题下数将文件的容;题文件中内1in5.dat题含有字母和空格,题示在文本中;此题程已题出,～框Text1 ,在文本中题中容后～题题“题题”按题～题题题题中文本中出框内2Text1 题次最数区写写多的字母;不分大小,～以大形式在文本题示框内Text2题些出题次最数多的字母。 题“题题”按题将事件题程中的注题符去掉～把 ,改题正的容～确内Click 以题题上述程序功能。 注意, 考生不得修改文件中已题存在的控件和程序～最后程序按原文件名窗体将 存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教241 解题思路, 启题系题～打题考生文件题下需题题的工程文件～打题文件并窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的控件不完整～在“题题”按题的窗体事件题程中～Private Sub Command2_Click() 有五题地 方需要修改。 将题句1) 'sl = ? 改题 sl = Text1.SelLength将题句2) 'a(n) = ? 改题 a(n) = a(n) + 1 将题句3) 'For j = ? To 26 改题 For j = 2 To 26 将题句4) 'If ? Then 改题 If a(j) > max_n Then将题句5) 'If ? Then 改题 If a(i) = max_n Then 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,57 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称～题题题“题片”的上窗体画个称名题的题像框～1Form11Image1其高题～题题。题通题性口题置适性～入考生目题下属窗当属装25002000 的题片文件～使题片适题题并框像的大小;如题所示,。pic1.jpg 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教242 注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt1.vbp题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题窗体画个框属窗将称像控件～通题其性口名题题～高;属性,题题～Image1Height2500 题;Width 属性,题题～通题属装性入题像文件。激活窗体属窗将～通题其性口2000Picturepic1.jpgForm1题题;Caption 属性,题题“题片”。 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.frxsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上窗体画个称名题～题题题“口令”的题题～画2Form11Label1 一名题 个称的文本～再三命令按题～名分题题框画个称、Text1Command1 、～题题分题题“题示口令”、“题藏口令”、“重新Command2Command3 题入”。 程序行题～在 运中题入若干字符～题题“题藏口令”按题～题只题Text1 示同题量的“数;如题所示,～题题“题示口令”按题～题题示题入*”2 的字符;如题所示,～题题“重新题入”按题～题除清中的容～内1Text1并把光题定位到中。Text1 要求, 题出所有控件～题命令按题的画写事件题程～程序中不得使用题Click 量～在“题示口令”、“题藏口令”按题的事件题程中只能写条题句。1 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt2.vbp题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题控件～通题其性口名题题窗体画个属窗将称～题题;属性,题题“口令”。Label1Caption画 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教243 一文本控件～通题其性口名题题个框属窗将称。三命令按题控件～通题其性口名画个属窗将Text1称分题题题 、、～题题;属性,分题题题“题示口令”、“题藏口令”、Command1Command2Command3Caption“重新题入”。 题题“题示口令”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command1_Click()Text1.PasswordChar = ""End Sub 题题“题藏口令”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command2_Click()Text1.PasswordChar = "*"End Sub 题题“重新题入”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command3_Click()Text1.Text = "" End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～在程序行题～题题“题入整运1sjt3.vbp数从个数并窗体数”按题～可以题题题入一整～在上题示此整的所有不同因子和因子。题个数是题入后的题果～ 题是题入的题果。已题题1532100出了全部控件和程序～但程序不完整。 要求, 题去掉程序中的注题符～把程序中的 ,改题正的容。 不能修改程确内 序中的其他部分～也不能修改控件的性。最后用原的文件名保存工属来 程文件和文件。窗体 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有一题Private Sub Command1_Click() 地方需要修 改。 将题句1) 题题入一整个数'? = InputBox("") 改题 题题入一整个数n = InputBox("") 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教244 由于提供的函不完整～有二题地方需要修改。数Fun() 将题句1) 'If m Mod k = ? Then 改题 If m Mod k = 0 Then 将题句2) '? 改题 fun = s 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个。在其中“窗体待题城市”下的2sjt4.vbp 列表中有若干框个称运城市名。程序行题～题中中若干列表个List1List1 题;如题所示,～题题“题中”按题题把题中的题目移到中～题题1List2 “题示”～题在文本中题示题些题中的框城市;如题所示,。已题Text12 题出了所有控件和程序～但程序不完整。 要求, 题去掉程序中的注题符～把程序中的 ,改题正的容～ 使其能正确内确 运属来行～但不能修改程序中的其他部分和控件性。最后用原的文件名保存工程文件和文件。窗体 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有三题Private Sub Command1_Click() 地方需要修 改。 将题句1) 'For k = List1.ListCount - 1 To 0 ?改题 For k = List1.ListCount - 1 To 0 Step -1将题句2) 'List2.AddItem ? 改题 List2.AddItem List1.Text 将题句3) 'List1.RemoveItem ? 改题 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教245 List1.RemoveItem k 在的窗体事件题程中～有一题地方需要修改。Private Sub Command2_Click()将题句1) 'Text1 = ? & " " & List2.List(k)改题 Text1 = Text1 & " " & List2.List(k)参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.frxsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～其中有一题心题。程序窗体个运sjt5.vbp 行题～用鼠题左题题题任当窗体何位置题～题心题题向题题位置直题移题～若用鼠题右题题题～题题心题停止移题。文件中已题题出了全部控窗体窗体 件～但程序不完整。 要求, 题去掉程序中的注题符～把程序中的 ,改题正的容～ 使其能正确内确运 行～不能修改程序的其他部分和控件性。最后把修改后的文件按原文件属 名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～在的窗体窗体Private Sub Form_MouseDown(Button As Integer, Shift As 事件题程中～有四题地方需要修改。Integer, x As Single, y As Single)将题句1) 'stepx = ? 改题 stepx = 0 将题句2) '? = a * stepx 改题 stepy = a * stepx 将题句3) '? = True 改题 Timer1.Enabled = True 将题句4) '? = False 改题 Timer1.Enabled = False 在的窗体事件题程中～有一题地方需要修改。Private Sub Timer1_Timer()将题句1) 'Shape1.Move Shape1.Left + stepx, Shape1.Top + ? 改题 Shape1.Move Shape1.Left + stepx, Shape1.Top + stepy 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,58 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教246 ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上窗体画个称名分题题、的架～题题分框1Form12Frame1Frame2题题“字”、“修题”～在号中画个称题题按题～名分题题Frame12 、～题题分题题“号字”、“号字”～且题题题示在Option1Option21020 题题按题的左题～在中画个称名题的题题～ 题题题“下框Frame21Check1 划运窗体题”。行后的如题所示。 注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt1.vbp题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上二架控件～通题其性口名分题题题窗体画个框属窗将称和～题题;属Frame1Frame2Caption 性,分题 题题“字”和“修题”。在号框画个属窗将称架中二题题按题控件～通题其性口名分题题题Frame1 和Option1 ～题题;属性,分题题题“号字”和“号将字”～题使题题题示在题题按题的左题～Option2Caption1020二个 题题按题的题题方式;属性,都题题。在框画个框属窗架中一题题控件～通题其性题Alignment1Frame2口名将称 题题～题题;属划性,题题“下题”。Check1Caption 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上上到下窗体从画个框称文本～名分题题、2Form12Text1Text2 ～再画个称命令按题～名题～题题题“题中字符是”。程序数运1Command1 行题～在中题入若干字符～题中部分容后～题题“题中字符是”内数Text1 按题～题在中题示题中的字符;如题所示,。 题题按题的个数写Text2 事件题程。Click 要求, 程序中不得使用题量～事件题程中只能一题句。写条 注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt2.vbp题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上二文本控件～通题其性口名分题题题窗体画个框属窗将称和。一命令按题控画个Text1Text2件～通 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教247 题其性口名题题属窗将称～题题;属数性,题题“题中字符是”。Command1Caption题题“题示口令”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click()Text2.Text = Text1.SelLengthEnd Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个。程序行后～题题“题入据”运数1sjt3.vbp ～可把考生文件题下文件中的所有英文题题题入～题示在并in3.txtText1文本中～题题“入列表”按题～题按题序把每题题作题一题添加框插框个 到列表中;如题所示,。框List1 在文件中每题题之题用一空格字符个个个隔题～最后一题题的后in3.txt 面有空格。已题题出了所有控件和程序～但程序不完整。没 要求, 题去掉程序中的注题符～把程序中的 ,改题正的容～ 使其能正确内确 运属来行～但不能修改程序中的其他部分和控件性。最后用原的文件名保存工程文件和文件。窗体 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有一题Private Sub Command1_Click() 地方需要修 改。 将题句1) 'st = ? & ch 改题 st = st & ch 在的窗体事件题程中～有二题地方需要修改。Private Sub Command1_Click()将题句1) '? = Mid(st, k, 1) 改题 c = Mid(st, k, 1) 将题句2) '? = "" 改题 word = "" 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教248 ********************************************************************** ;,在考生文件题下有一工程文件个～ 上已题出所有控件～窗体画2sjt4.vbp 如题所示。在行题～如果题题“题始”按题～题上的汽题题题每运窗体 秒向右移题一次;初始题下不移题,～ 如果题题“停止”按题～状0.1 题停止移题。 题完成以下工作, ,题置适控件的适性～使得汽题题题每 当当属秒向右移题一次～而10.1 初始题下不移题～状 ,题去掉程序中的注题符～把程序中的 ,改题正的容～确内2 ,题命令按题题适的事件题程。最后以原文件名存题。两个写当3 注意,* 不得修改已题题出的程序。题的事件题程中不能使用题量～每写个 事件题程中只能有一题句。条 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的控件不完整～通题其性口题题器的窗体属窗将属性题题～属EnabledFalseInterval 性题题100 ;每秒加,。0.11 题题“题始”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C1_Click() Timer1.Enabled = True End Sub 题题“停止”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C2_Click() Timer1.Enabled = False End Sub 提供的题题器程序不完整～在中～有一题地方需要修改。Private Sub Command1_Click() 将题句1) 'P1.? P1.Left + 20 改题 P1.Move P1.Left + 20 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.frxsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个。在文件中已题题出了全部控窗体sjt5.vbp 件及部分程序。程序行题～在文本 运框中题入一大于个的偶数并～Text12题题“分解题”命令按题～题可以题将数两个数偶分解题素之和～且要求其中一素是所能题分解出的最小的素;一个数数个数偶有题可以分解题多题素数的题合～例如可以分解题 和～也可以分解题和～要求取含有最245191113小素的题合～如题所示,。要求题“分解题”命令按题事件题程中“考数写 生题程序题始” 和 “考生题程序题束” 之题的代题～ 以题题上述功写写 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教249 能。题程用判一是否题素～如果是～来断个数数返回题题～否IsPrime True题返回题题。False 注意, 不得修改原有程序和控件的性。属确运运至少正行一次程序～且行题在文 本中题入 框～题题“分解题”按题～题果题示在题题中～否题无将23456 成题。最后把修改后的文件按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm由于所提供的程序不完整～需添加事件题程。窗体 题题分解题按题;行即运事件题程,～在题事件题程中加入题句,""ClickClick Private Sub Command1_Click() 考生题程序题始写' '======================================Dim i As Integer Dim n As Integer n = Val(Text1.Text) If n Mod 2 <> 0 Then 题题入偶,数MsgBox "" Exit Sub End If For i = 3 To n / 2 If IsPrime(i) And IsPrime(n - i) ThenLabel1.Caption = i Label2.Caption = n - i Exit For End If Next '=========================================考生题程序题束写' Open App.Path & "\out5.dat" For Output As #1Print #1, Text1.Text, Label1.Caption, Label2.Caption Close #1 End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.dat题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,59 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教250 ;,在名题称～题题题“题题”的上窗体画个称名题、题题题“1Form11Frame1效果”的架。架含有框框内个框称题题～其名题分题题、和～3Chk1Chk2Chk3题题分题题“题斜”、“加粗”和“下题”。划 运窗体行后的如题所示。 要求, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt1.vbp 题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一架控件～通题其性口名题题窗体画个框属窗将称～题题;属性,题题“效Frame1Caption果”。在 题架中三题题控件～通题其性口名题分题题题框画个框属窗将称、和～题题;属Chk1Chk2Chk3Caption性,分题题 题“题斜”、“加粗”和“下题”。激活划窗体属窗将～通题其性口题题;属性,题题Form1Caption“题题”。 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上窗体画个称名题的题题～ 其初始容题空～且内2Form11Label1 能根据指定的题题容自题题整题题的大小～再内画个命令按题～题题分题2 是“日期”和“题题”～ 名分题题 称、。题题写个命Command1Command22 令按题的事件题程～使得题题“日期”按题题～题题题示系题前内当Click 日期～题题“题题”按题题～题题题示系题前题题。如题所示。内当 要求, 程序中不得使用题量～每事件题程中只能一题句。个写条 注意, 存题题必题存放在考生文件题下～工程文件名题～ 文件名窗体sjt2.vbp 题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题控件～通题其性口名题题窗体画个属窗将称～题题容;内属性,题题空。Label1Caption画二 个属窗将称命令按题控件～通题其性口名分题题题和～题题;属Command1Command2Caption性,分题题题“日期” 和“题题”。 题题“日期”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click() 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教251 Label1.Caption = Date() End Sub 题题“题题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command2_Click() Label1.Caption = Time() End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“题算”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command2_Click()Dim sum As Integer, Aver As SingleDim n As Integer For i = 1 To 100 If Fix(Sqr(a(i))) = Sqr(a(i)) Thenn = n + 1 sum = sum + a(i) End If 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教252 Next i Aver = sum / n Text1.Text = Fix(Aver) End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbwout3.dat 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～ 其上有窗体个命令按题和个2sjt4.vbp21题题器。个命令按题的初始题题分题是“演示”和“退出”～题题器2 的初始题题不可用。题状画个称名题～且能根据题示容自内Timer11Label1 题题整大小的题题～其题题题“程序题题”～ 题示格式题黑Visual Basic 体号小四字。如题所示。程序功能如下, ,题题题题题“演示”的命令按题题～题题按题的题题自题题题题“题停1 ”～且题题在上左向右窗体从当窗体从循题题题～完全题题出右题题～ 窗体左题重新题入～ ,题题题题题“题停”的命令按题题～题题按题的题题自题题题题“演示2 ”～题停题题的题题。并 ,题题“退出”按题～题题束程序行。运3 要求, 题去掉程序中的注题符～把程序中的 ,改题正的容～使其题题上述确内 功能～但不能修改文件中已题存在的控件和程序。 最后把修改后的窗体 文件按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的控件不完整～需在题上一题题控件～通题其性口名题题窗体窗体画个属窗将称 ～题题Label1 ;属性,题题“程序题题”～自题题整;属性,题题～通题属CaptionVisual BasicAutoSizeTrueFont性的字体 题题题置字性题黑～字性题题小四。框体属体号属号 由于所提供的程序不完整～在的窗体窗体事件题程中～有三题Private Sub Command1_Click() 地方需要修 改。 将题句1) 'If Command1.Caption = ? Then改题 演示If Command1.Caption = "" Then 将题句2) '? = True 改题 Timer1.Enabled = True 将题句3) '? = False 改题 Timer1.Enabled = False 在的窗体事件题程中～有二题地方需要修改。Private Sub Timer1_Timer()将题句1) 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教253 'If ? > Form1.Width Then改题 If Label1.Left > Form1.Width Then将题句2) 'Label1.Left = ? + 100 改题 Label1.Left = Label1.Left + 100参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～上有窗体个框称文本～其名分sjt5.vbp3 题题、和～其中、可多行题示。题画个称名分Text1Text2Text3Text1Text23题题、和～题题分题题“题生题”、“题题”和“数退出”的Cmd1Cmd2Cmd3 命令按题。如题所示。程序功能如下, ,题题“题生题”按题题～用数随数机函生成个,之题;不含和,120010010的题～其保存到一题题数并将数中～同题也题将个数题题示在a20Text1文本。框内 ,题题“题题”按题题～题题出题数中出题题率最高的题及其出题的次数2a 数并将数～出题题率最高的题题示在文本、出题题框内率最高的次Text2 数题示在文本。框内Text3 ,题题“退出”按题题～题束程序行。运3 题程序中的注题符去掉～把 ,改题正的容～以题题上述程序功能。将确内 注意, 不得修改文件中已题存在的控件和程序～最后修改后的文件按原文窗体将 件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的控件不完整～需在题上三命令按题控件～通题其性口名分窗体窗体画个属窗将称 题题题、Cmd1 和～题题;属数性,分题题题“题生题”、“题题”和“退出”。Cmd2Cmd3Caption 由于所提供的程序不完整～在的窗体窗体事件题程中～有一题地方Private Sub Cmd1_Click() 需要修改。 将题句1) 'a(i) = Fix(Rnd * ? + 1)改题 a(i) = Fix(Rnd * 9 + 1) 在的窗体事件题程中～有三题地方需要修改。Private Sub Cmd2_Click()将题句1) 'For j = 1 To ? 改题 For j = 1 To i - 1 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教254 将题句2) 'If b(i) > ? Then fmax = b(i)改题 If b(i) > fmax Then fmax = b(i)将题句3) 'If b(i) = ? Then 改题 If b(i) = fmax Then 在的窗体事件题程中～有一题地方需要修改。Private Sub Cmd3_Click()将题句1) '? 改题 End 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第套,60 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上窗体画个称名题、题题题“列表的使用”的框1Form11Label1题题。 再画个称名题的列表～列表中含有框个内表题～表题容分1List15 题题“北京”、“山西”、“题”、“宁广并浙江”和“题”～且可以在列表中同题题题多个运窗体表题。行后的如题所示。 要求, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt1.vbp题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题控件～通题其性口名题题窗体画个属窗将称～题题;属框性,题题“列表Label1Caption的使 用”。一列表控件～通题其性口名题题画个框属窗将称～向列表中添加题目;框属性,List1List 添加的题目 分题题“北京”、“山西”、“题”、“宁广个浙江”和“题”～每题目题一行～多题题题;MultiSelect 属性, 题题。1 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.frxsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一名题窗体画个称的题像框～其高、题分题题2Form1Image1 、～且不题片大小而题化～ 再随画个命令按题～题题分题是“200030002 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教255 题示题片”和“题藏题片”～名分题题称、。如题所示。需题写Cmd1Cmd2 个命令按题的事件题程～使得题题“题示题片”按题题～前当将当2Click 文件题下的题片文件“题片题示在题像框中～而如果题题“题藏题.jpg” 片”按题～题除题清框像中的题片。 要求, 程序中不得使用题量～每事件题程中只能一题句。存题题必题存个写条 放在考生文件题下～工程文件名题～文件名题窗体。sjt2.vbpsjt2.frm解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题窗体画个框属窗将称像控件～通题其性口名题题～高;属性,题题～Image1Height2000 题;Width 属性,题题～属性题题。二命令按题控件～通题其性口名分题题题画个属窗将称3000StretchTrue 和～Cmd1Cmd2 题题;属性,分题题题“题示题片”和“题藏题片”。Caption 题题“题示题片”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Cmd1_Click() 题片Image1.Picture = LoadPicture(".jpg") End Sub 题题“题藏题片”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Cmd2_Click() Image1.Picture = LoadPicture("")End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教256 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“题题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command2_Click()Amax = 1 For i = 1 To 100 If Fix(Sqr(a(i))) = Sqr(a(i)) Thenn = n + 1 If a(i) > Amax Then Amax = a(i) End If End If Next i Text1.Text = Amax Text2.Text = n End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbwout3.dat 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～其上有窗体个题题分题题“添2sjt4.vbp2加”和“退出”的命令按题～个内框容题空的列表。题画个题题～1List11 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教257 其名题称～题题题“题题入题”～ 再号画个称名题～初始题Label11Text1题空的文本～如题所示。程序功能如下,框 ,系题题题～自题向列表添加一题题信启框个号息“。1a0001”,系题行题～在文本运框中题入一题～题题题“添加”按题题～个号并2Text1 如果题题已存在于列表中的其他题不重题～题其添加到列表号与框号将 框已有题目之后～否题～题出“不将允题重题题入～题重新题入,List1 ”题题～题题题题题中的“定”按题～可以重框框确新题入。 ,题题“退出”按题～题题束程序行。运3 要求, 题去掉程序中的注题符～把程序中的 ,改题正的容～使其题题上述确内 功能～但不能修改文件中已题存在的控件和程序。 最后把修改后的窗体 文件按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的控件不完整～需在题上一题题控件～通题其性口名题题窗体窗体画个属窗将称 ～题题Label1 ;属号画个框属窗将称性,题题“题题入题”。一文本控件～通题其性口名题题～文本CaptionText1 框的初始 内容;属性,题题空。Text 由于所提供的程序不完整～在的窗体窗体事件题程中～有一题地方需Private Sub Form_Load() 要修改。 将题句1) '? "a0001" 改题 List1.AddItem "a0001" 在的窗体事件题程中～有三题地方需要修改。Private Sub Command1_Click()将题句1) 'For i = 0 To ? 改题 For i = 0 To List1.ListCount - 1将题句2) 'List1.ListIndex = ? 改题 List1.ListIndex = i 将题句3) '? Text1.Text 改题 List1.AddItem Text1.Text 在的窗体事件题程中～有一题地方需要修改。Private Sub Command2_Click()将题句1) '? 改题 End 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教258 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.frxsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～其上有窗体画个称名分题题sjt5.vbp2 、的文本～其中框可多行题示。题画个称名题、Text1Text2Text12Command1 ～题题题“题生题”、“题”的命令按题。如题所示。程序功数找Command2 能如下, ,题题“题生题”按题～题用数随数机函生成个 ,之题;不含和1100100 0 ,互不相同的题～题保存到一题题数并将它数中～ 同题也题将个100a10数题题示在文本～框内Text1 ,题题“题”按题题出题入题题～ 找将框个数并接收用题题入的任意一～2 在一题题数中题题～若题题失题～题在找数找文本题示题“框内数aText2 不存在于题中”～否题题出题在题中的位置。数数数 要求, 题去掉程序中的注题符～把程序中的 ,改题正的容～使其题题上述确内 功能～但不能修改文件中已题存在的控件和程序。 最后把修改后的窗体 文件按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的控件不完整～需在题上二命令按题控件～通题其性口名分窗体窗体画个属窗将称 题题题 和～题题;属数找性,分题题题“题生题”和“题”。Command1Command2Caption 由于所提供的程序不完整～在的窗体窗体事件题程中～有三题Private Sub Command1_Click() 地方需要修 改。 将题句1) 'a(i) = Fix(Rnd * ? + 1)改题 a(i) = Fix(Rnd * 99 + 1)将题句2) 'For j = 1 To ? 改题 For j = 1 To i - 1 将题句3) 'i = ? 改题 i = i - 1 在的窗体事件题程中～有二题地方需要修改。Private Sub Command2_Click() 将题句1) 'If a(i) = ? Then 改题 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教259 If a(i) = num Then 将题句2) 'If ? > 10 Then 改题 If i > 10 Then 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第套,61 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER%********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上一名题窗体画个称、题题题“改题题色”的命令按1Form1C1 题～题题题“改题窗体窗体写背景色”。题程序～使得题题命令按题题～将窗体的背景题色改题题色;,。行程序后的如题所示。运窗体&HFF& 要求, 程序中不得使用题量～每事件题程中只能一题句。存题题必题存个写条 放在考生文件题下～工程文件名题～文件名题窗体。sjt1.vbpsjt1.frm解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一命令按题控件～通题其性口名题题窗体画个属窗将称～题题;属性,题题“改题题C1Caption色”。 激活窗体属窗将～通题其性口题题;属窗体性,题题“改题背景色”。Form1Caption 题题“改题题色”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub C1_Click() Form1.BackColor = &HFF& End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp*********************************************************************** ;,在名题称的上一名窗体画个称的形控件～在性口中其状属窗将2Form1Shape1 题置题题形。一名题画个称的列表～在性口中题置列表题的框并属窗List1 题分题题、、、、。的题题题题“题形控件”。题题列表中将窗体框12345 的某一题～题所题的题作题形控件的将状填参数充。例如～题题～题形状3 控件中被题题填充。如题所示。 要求, 程序中不得使用题量～每事件题程中只能一题句。存题题必题存个写条 放在考生文件题下～工程文件名题～文件名题窗体。sjt2.vbpsjt2.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教260 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一形控件～通题其性口名题题窗体画个状属窗将称～形;状属性,题题。画Shape1Shape3一列表个 框属窗将称控件～通题其性口名题题～向列表中添加题目;框属性,～添加的题目分题题List1List“、“、1”2” “、“和“～每题目题一行。激活个窗体属窗将～通题其性口题题;属性,题3”4”5”Form1Caption 题“题形 控件”。 题题列表中的某一题;行框即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub List1_Click() Shape1.FillStyle = List1.TextEnd Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.frxsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp 题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个。程序的功能是通题题题向文本1sjt3.vbp框数数框个中题入正整。在“除”架中题题一题题按题～然后题题“题理数将框数并数据”命令按题～大于文本中的正整、且能题被所题除整除的个数框添加到列表中～如题所示。在文件中已题题出了全部控窗体5List1 件～但程序不完整。 要求, 题去掉程序中的注题符～把程序中的 ,改题正的容～ 使其题题上确内 述功能～但不能修改程序的其他部分和控件性。最后把修改后的文件属 按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有二题Private Sub Command1_Click() 地方需要修 改。 将题句1) 'If ? = True Then 改题 If Option1.Item(i) = True Then将题句2) 'y = val(Option1(i).?) 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教261 改题 y = Val(Option1(i).Caption)在题程中～有二题地方需要修改。Private Sub calc(y As Integer)将题句1) 'Do While i <= ? 改题 Do While i <= 5 将题句2) 'List1.AddItem ? 改题 List1.AddItem x 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个。程序行后～题题“题始”按运2sjt4.vbp题～题片自上而下移题～同题题题的条随滑题之移题～每秒移题一次。0.5当窗体离题片题端移题到距的下题界的距少于题～再回到题部～窗体200 重新向下移题～如题所示。在文件中已题题出了全部控件～但程序不窗体 完整。 要求, 题去掉程序中的注题符～把程序中的 ,改题正的容～ 使其题题上确内 述功能～但不能修改程序的其他部分和控件性。最后把修改后的文件属 按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有一题地方需Private Sub Form_Load() 要修改。 将题句1) 'Timer1.Interval = ? 改题 Timer1.Interval = 500 在的窗体事件题程中～有二题地方需要修改。Private Sub Timer1_Timer()将题句1) 'VScroll1.Value = ? 改题 VScroll1.Value = Picture1.Top将题句2) 'Picture1.Top = ? 改题 Picture1.Top = 0 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教262 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.frxsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～如题所示。行程序题～窗体运从sjt5.vbp 数学数写数并据文件中题取生的成题;均题整,。要求题程序～题题题人～题题不及格、,、,、,及,各分数数将段的人～题题00 题果题示在相题的文本中。题束程序之前～必题题题“保存”按题～保存框 题题题果。 注意, 不能修改程序的其他部分和控件性。程序题题通题后～行程序～属运将 题题题果题示在文本中～再按“保存”按题保存据～否题无成题。框数 最后把修改后的文件按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“题题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command1_Click()Text1.Text = n count1 = 0 count2 = 0 count3 = 0 count4 = 0 count5 = 0 count6 = 0 For i = 1 To n y = Int(arr(i) / 10)Select Case y Case 1, 2, 3, 4, 5 count1 = count1 + 1Case 6 count2 = count2 + 1Case 7 count3 = count3 + 1Case 8 count4 = count4 + 1Case 9, 10 count5 = count5 + 1End Select Next Text2.Text = count1Text3.Text = count2Text4.Text = count3Text5.Text = count4Text6.Text = count5 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教263 End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第套,62 基本操作;小题～每小题分～共题分,1. 21530注意,下面出题的“考生文件题”均题%USER%********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic;,在名题称的上一名题窗体画个称、题题题“题题” 的命令按题～1Form1C1窗体称写名题“改题按题大小”。题程序～使得题题命令按题题～命令按 题水平方向的题度增加。程序行后的如题所示。运窗体100 要求, 程序中不得使用题量～每事件题程中只能一题句。存题题必题存个写条 放在考生文件题下～工程文件名题～文件名题窗体。sjt1.vbpsjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一命令按题控件～通题其性口名题题窗体画个属窗将称～题题;属性,题题“题题”。C1Caption激 活窗体属窗将～通题其性口题题;属性,题题“改题按题大小”。Form1Caption 题题“题题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub C1_Click() C1.Width = C1.Width + 100 End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一名窗体画个称的形控件～ 一名题状画个称2Form1Shape1L1的列表～在性口中题置列表题的题题框并属窗、、、、。 的将窗体12345 题题题题“题形控件”。题题列表中的某一题～题按框照所题的题改题形状状控件的形。例如～题题～题形控件被题题题形～如题所示。状3 要求, 程序中不得使用题量～每事件题程中只能一题句。存题题必题存个写条 放在考生文件题下～工程文件名题～文件名题窗体。sjt2.vbpsjt2.frm 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教264 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一形控件～通题其性口名题题窗体画个状属窗将称。一列表控件～通题其画个框属Shape1性口窗将 名题题称～向列表中添加题目;框属性,～添加的题目分题题“、“、“、“和L1List1”2”3”4” “～每5” 个题目题一行。激活窗体属窗将～通题其性口题题;属性,题题“题形控件”。Form1Caption题题列表中的某一题;行框即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub L1_Click() Shape1.Shape = L1.Text End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.frxsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题中有一工程文件个～控件窗体布局如题所示。程序1sjt3.vbp1运框行题～在文本中题入一正整～题题“个数数数奇和”或“偶和”Text1 ～题在中题示所题的题算题题。 题题“题算”按题题～按将照题定Label2 的“题算题题”题算小于或等于题入据的数数数并将奇和或偶和～ 题算题果题示在中。程序的一次行题果如题运所示。在文件中已题题窗体Label32 出了全部控件～但程序不完整。 要求, 题去掉程序中的注题符～把程序中的 ,改题正的容～ 使其题题上确内 述功能～但不能修改程序的其他部分和控件性。最后把修改后的文件属 按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有二题Private Sub Command1_Click() 地方需要修 改。 将题句1) 'Call ? 改题 Call calc(i) 将题句2) 'Label2.Caption = ? 改题 Label2.Caption = Option1(i).Caption在题程中～有三题地方需要修改。Private Sub calc(c As Integer)将题句1) 'x = ? 改题 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教265 x = Val(Text1.Text) 将题句2) 'If ? <> 0 Then 改题 If i Mod 2 <> 0 Then 将题句3) 'Label3.Caption = ? 改题 Label3.Caption = result 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个。程序行后～如果题题“题始运2sjt4.vbp ”按题～题题片自左向右移题～同题题题的条随滑题之移题～每秒移0.5题一次。题片完全移出的右题界题～立再的左题界题始重当窗体即从窗体 新移题～若题题“停止”按题～题题片停止移题～如题所示。在文件窗体中已题题出了全部控件～但程序不完整。 要求, 题去掉程序中的注题符～把程序中的 ,改题正的容～ 使其题题上确内 述功能～但不能修改程序的其他部分和控件性。最后把修改后的文件属 按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有一题Private Sub Command2_Click() 地方需要修 改。 将题句1) 'Timer1.Enabled = ? 改题 Timer1.Enabled = 0 在的窗体事件题程中～有一题地方需要修改。Private Sub Form_Load()将题句1) 'Timer1.Interval = ? 改题 Timer1.Interval = 500 在的窗体事件题程中～有二题地方需要修改。Private Sub Timer1_Timer()将题句1) 'If HScroll1.Left >= ? Then改题 If HScroll1.Left >= Form1.Width Then 将题句2) 'Picture1.Left = ? 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教266 改题 Picture1.Left = 0 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.frxsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题中有一工程文件个～如题所示。行程序题～窗体运sjt5.vbp 从数学写数据文件中题取生的成题。要求题程序～题题题人、平均分;四舍五入取整,、及格人数数将框和不及格人～题题题果题示在相题的文本中。题束程序之前～必题题题“保存”按题～保存题题题果。注意, 不能修改程序的其他部分和控件性。程序题题通题后～行程序～属运将 题题题果题示在文本中～再按“保存”按题保存据～否题无成题。框数 最后把修改后的文件按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“题题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command1_Click()Text1.Text = n Sum = 0 count1 = 0 count2 = 0 For i = 1 To n Sum = Sum + arr(i) If arr(i) < 60 Then count1 = count1 + 1 Else count2 = count2 + 1 End If Avg = Sum / n Next Text2.Text = Int(Avg + 0.5)Text3.Text = count1 Text4.Text = count2 End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.txt 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,63 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教267 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称～题题题“文本题题”的上 框窗体画个称名题的1Form11Text1文本～题置性～使其题度题框属、初始容题空、题示字题“三内号1600 号”～且最多只能题入个运窗体字符。行后的如题所示。6 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本控件～通题其性口名题题窗体画个框属窗将称～文本容;内属性,题题空～Text1Text题;Width 属性,题题～点题属体框将号号性在题出的字题题中字题题“三题”～属性题题。1800FontMaxLength6 激活Form1 窗体属窗将～通题其性口题题;属框性,题题“文本题题”。Caption 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上～窗体画个称名题的题题～其题题题“题算2Form11Label1 机等题考题”～题示题宋体号内字～且能根据题题容自题题整题题的12 大小。再画个称名分题题“、“～题题分题题2Command1”Command2”“放大”、“题原”的命令按题。 要求, 题适的事件题程～使得题题“放大”按题～写当中所题示的题Label1题容自题内增大 个号字～题题“题原”按题～中所题示的题2Label1题容自题内恢题到号字。12 注意,* 要求程序中不得使用题量～每事件题程中只能一题句。存题题个写条 必题存放在考生文件题下～工程文件名题～文件名题窗体sjt2.vbp 。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题控件～通题其性口名题题窗体画个属窗将称～题题;属性,题题“题算机等Label1Caption 题 考题”～属性题题～点题属体框将体体号性在题出的字题题中字题题“宋”～字题题AutoSizTrueFont 题“。12” 画个属窗将称二命令按题控件～通题其性口名分题题题“和“～题题Command1”Command2” ;属性,分Caption 题题题“放大”和“题原”。 题题“放大”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command1_Click() 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教268 Label1.FontSize = Label1.FontSize + 2 End Sub 题题“题原”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command2_Click()Label1.FontSize = 12 End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～中有窗体个数个控件题～一名1sjt3.vbp2称题～含有个框另个称文本～一名题～含有个命令按题～且“题Text3Cmd3停”按题的初始题题不可用。如题所示。题状画个题题器～题置题1Timer1题题隔题秒～初始题题不可用～使程序题题如下功能,状并1 ,题题“题始”按题～题题题器和“题停”按题题题题可用～且状1Timer1 “题始”按题的题题题题“题题”～且题不可用。此同题～与的 Text3个框文本题始题示题题的小题、分、秒题～ ,题题“题停”按题～题停止工作～“题停”按题题题不可用～“2Timer1 题题”按题题题可用～ ,题题“题题”按题～题接着题始工作～“题题”按题题题不可用3Timer1 ～“题停”按题题题可用～ ,题题“题束”按题～题题束程序行。运4 要求, 去掉程序中的注题符～把程序中的,改题正的容～ 使其能正行确内确运 ～但不能修改程序中的其他部分。最后把修改后的文件按原文件名存题。解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的控件不全～添加一题题器控件～通题其性口窗体个属窗将属性题题Enabled ～FalseInterval 属性题题。1000 由于所提供的程序不完整～在命令按题题的窗体数事Private Sub Cmd_Click(Index As Integer) 件题程中～ 有三题地方需要修改。 将题句1) 'Select Case ? 改题 Select Case Index 将题句2) 'Timer1.Enabled = ? 改题 Timer1.Enabled = True 将题句3) 'Cmd(0).Enabled = ? 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教269 改题 Cmd(0).Enabled = False 在题题器的事件题程中～有二题地方需要修改。Private Sub Timer1_Timer()将题句1) 'If t(3) = ? Then 改题 If t(3) = 60 Then 将题句2) 'Text( ? ).Text = t(i) 改题 Text(i - 1).Text = t(i) 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题下有一工程文件个～其中有窗体个内初始容题空2sjt4.vbp1的文本框～个数题题分题是“题据”和“题算”的命令按题～题Text12 画个数题题题“所有行中最大的平均题题”的题题～再 画个初1Label11始容题空的文本内框～如题所示。Text2 程序功能如下, ,题题“题据”按题～题考生文件题下数将文件的容题入内1in4.dat 20行列的二题据数中～同题题示在文本中～框5aText1 ,题题“题算”按题～题自题题题二题题中每行最大的数数平均题;截2 尾取整,～最题题果题示在并将文本。框内Text2 “题据”按题的数事件题程已题题出～题题“题算”按题的写Click 事件题程题题上述功能。Click 注意, 考生不得修改文件中已题存在的控件和程序～在题束程序行之前窗体运 ～必题题行“题算”～且必题用右上角的题题按题题束程序～否题窗体 无成题。最后～程序按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的控件不全～添加一题题控件～通题其性口名题题窗体个属窗将称～题题Label1 ;属性,Caption 题题“所有行中最大的数画个框属窗将称平均题题”。一文本控件～通题其性口名题题～文本Text2 内容;Text 属性,题题空。 由于所提供的程序不完整～需添加事件题程。窗体 题题“题算”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command2_Click()If Len(Text1) = 0 Then 题先题行“题据”功能数,MsgBox "" Else 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教270 For i = 1 To 20 Max = a(i, 1) For j = 2 To 5 If a(i, j) > Max Then Max = a(i, j) Next j s = s + Max Next i Avg = s / 20 Text2 = Avg End If End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbwout4.dat 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题下有一工程文件个～其中有窗体个题题分题是“题sjt5.vbp2数据”和“题题”的命令按题～个称名题的文本。题框画个称名题1Text11 、题题题“同题含有字母、、的题题题”的题题～再个数画个Label1the 1名题称、初始题题空的文本～如题所示。程序功能如下,框Text2 ,题题“题据”按题～题考生文件题下数将文件的容;题文件内1in5.dat 中题含有字母和空格,题示在文本中～框Text1 ,题题“题题”按题～题以不分大小字母的方式～自题题题 区写题2Text1示容中同题含有“内、“、“三字母的题题的;如,个个数t”h”e” 、和都于题足件的题题,～题题题果题示在属条并将thetherewhatever 文本。框内Text2 “题据”按题的数事件题程已题题出～题“题题”按题的 将事ClickClick件题程中的注题符去掉～把 ,改题正的容～以题题上述程序功能。确内 注意, 考生不得修改文件中已题存在的控件和程序～在题束程序行之前～窗体运 必题题行“题题”～且必题用右上角的题题按题题束程序～ 否题无窗体 成题。最后～程序按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的控件不全～添加一题题控件～通题其性口名题题窗体个属窗将称～题题Label1 ;属性,Caption 题题“同题含有字母、、的题题题”。一文本控件～通题其性口名题题个数画个框属窗将称～the Text2 文本内 容;属性,题题空。Text 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教271 由于所提供的程序不完整～在命令按题的窗体事件题程中～有Private Sub Command2_Click() 四题地方需 要修改。 将题句1) 'If Len(s) = ? Then 改题 If Len(s) = 0 Then 将题句2) 'If ? <> " " Then 改题 If c <> " " Then 将题句3) '? = LCase(t) 改题 x = LCase(t) 将题句4) 'm = ? 改题 m = m + 1 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.dat 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,64 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称～题题题“控件题”的上～数窗体画个称名题的控1Form11Cmd1件题～题控件题由三命令按题题成～其题题分题是“入”、“数数个插 题除”、“更新”～索引号分题题、、。行后的如题所示。运窗体012 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt1.vbp名题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一命令按题控件题～通题其性口名题题窗体画个数属窗将称～通题题命令按题控件的题制题Cmd1生 命令按题控件题～共有三命令按题～通题性口名题题数个属窗将称～属性分题题题Cmd1Index、、～题题;012Caption 属插性,分题题题“入”、“题除”、“更新”。激活窗体属窗将～通题其性口题题;Form1Caption 属性,题 题“控件题”。数 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教272 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题 称的上 窗体画个称名题～容题“题算内机”的文本2Form11Text1 框号画～且题示题小四字～再个称命令按题～名分题题“、3Command1”“、“～题题分题是“居左”、“居中”、“居Command2”Command3” 右”。如题所示。 要求, 题 写个命令按题的事件题程～使得题题“居左”按题题～文本3Click 框内靠框内的容左题题～题题“居中”按题题～ 文本的容居中题题～题题“居右”按题题～文本的容右题题。 程序中不得使用题量～每框内靠 个写条事件题程中只能一题句。 注意,* 存题题必题存放在考生文件题下～工程文件名题～文件窗体sjt2.vbp名题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一文本控件～通题其性口名题题窗体画个框属窗将称～文本容;内属性,题题“题Text1Text算机”～ 点题属体框将号画个属窗性在题出的字题题中字题题“小四”。三命令按题控件～通题其性题口Font 将称名分题 题题“、“和“～题题;属性,分题题题“居左”、“居Command1”Command2”Command3”Caption中”和“居 右”。 题题“居左”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click()Text1.Alignment = 0 End Sub 题题“居中”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command2_Click()Text1.Alignment = 2 End Sub 题题“居右”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command3_Click()Text1.Alignment = 1 End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题下有一工程文件个～包含个称名分题题、1sjt3.vbp2Form1 的。上已有部分控件～题在窗体窗体窗体画上再个称名题Form2Form11 的文本～初始容题空～初始题题不可用;如题所示,～题入框内状Text1 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教273 字符题文本题示字符“框内将。*” 程序功能如下, ,题题 窗体的“题入密题”按题～题 题题可用～且题得焦1Form1Text1 点。 ,题入密题后题题 窗体断的“密题校题”按题～题判 中题2Form1Text1入容是否题小字符“内写～若是～题题去 窗体～题示abc”Form1 窗体～若密题题入题题～题提示重新题入～三次密题题入题题～Form2 题退出系题。 ,题题 窗体的“返回”按题～题题去 窗体～题示 窗3Form2Form2Form1体。 窗体的控件和程序已题出。但 窗体将的程序不完整～题程序Form2Form1 中的注题符去掉～把 ,改题正的容～以题题上述程序功能。确内 注意, 考生不得修改文件中已题存在的控件和程序。 最后～程序按原文窗体 件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体Visual Basicsjt3.vbpsjt31.frm 和。sjt32.frm 由于在窗体个框属窗将称中所提供的控件不全～添加一文本控件～通题其性口名题题Form1 ～文本内Text1 容;属性,题题空～属性题题～属性题题。TextEnabledFalsePasswordChar*由于在窗体中所提供的程序不完整～在“题入密题”按题的Form1Private Sub 事件题程Command1_Click() 中～有一题地方需要修改。 将题句1) 'Text1.Enabled = ? 改题 Text1.Enabled = True在“密题校题”按题的事件题程中～有四题地方需要修改。Private Sub Command2_Click() 将题句1) 'If Text1 <> "?" Then改题 If Text1 <> "abc" Then将题句2) 'If ? = 3 Then 改题 If n = 3 Then 将题句3) '?.Hide 改题 Form1.Hide 将题句4) '?.Show 改题 Form2.Show 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教274 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt31.frmsjt32.frmsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp ********************************************************************** ;,在考生文件题下有一工程文件 个～如题所示。程序功能如窗体2sjt4.vbp下, ,题题“题据”按题～题考生文件题下数将文件的容;题文内1in4.dat件中题含有字母和空格,题示在文本中～框Text1 ,在中题中一部分文本～题题“题题”按题～题以不分大小并区2Text1 写字母的方式～自题题题题中文本中题题“出题的次～数并将the”题题题果题示在文本。框内Text2 题“题题”按题将事件题程中的注题符去掉～把 ,改题正的确内Click 容～以题题上述功能。 注意, 考生不得修改文件中已题存在的控件和程序～最后程序按原文窗体将 件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有四题Private Sub Command2_Click() 地方需要修 改。 将题句1) 'If Len(s) = ? Then 改题 If Len(s) = 0 Then 将题句2) 'If Text1.? = 0 Then 改题 If Text1.SelLength = 0 Then将题句3) 'If ? = "the" Then 改题 If LCase(t) = "the" Then将题句4) '? = Str(m) 改题 Text2.Text = Str(m) 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教275 ********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER%在考生文件题下有一工程文件个～其功能是,sjt5.vbp,题题“题据”按题～题把考生文件题下数文件中的个数正整1in5.dat100题入题数中～同题题示在文本中～框aText1 ,题题“分题”按题～题题将数中所有 的倍数数的元素存入题中～并2a3b题题数中的元素小到大从框排序后题示在文本中。bText2在题出的文件中已题有了全部控件;如题所示,～但程序不完整。窗体 要求, 题适的程序部分使其题题上述功能。写当 注意, 考生不得修改文件中已题存在的控件和程序～在题束程序行之前～窗体运 必题先题行“分题”操作～然后再用右上角的题题按题题束程序～否窗体 题无成题。最后～程序按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“分题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command2_Click()Dim b(100) As Integer num = 0 If Len(Text1.Text) = 0 Then 题先题行“题据”功能数,MsgBox "" Else 考生题写功能,生成 数从题～且按小到大题序排序'(b ) 注意,题题必题 将数的元素存入题量 个数中'b num For i = 1 To 100 If a(i) / 3 = Fix(a(i) / 3) Thennum = num + 1 b(num) = a(i) End If Next For i = 1 To num - 1 For j = i + 1 To num If b(i) > b(j) Then 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教276 tem = b(i) b(i) = b(j) b(j) = tem End If Next Next 以下程序段将已排序的 数题题示在中'b Text2 For i = 1 To num Text2.Text = Text2.Text + Str(b(i)) + Space(2) Next i End If End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.dat 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,65 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称、题题题“菜题”的上～题题题足如下要求的菜题。窗体1Form1 运窗体将行后的如题所示。存题题～文件保存至考生文件题下～且工程文件名题～文件名题窗体。sjt1.vbpsjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上通题菜题题题器建立二主菜题～在菜题题题器的题题题分题题入“文件”和“窗体个称退出”～名 题分题题入和。在“文件”菜题下有二子菜题～在菜题题题器的题题题分题题入“个新建”和“保fileexit 存”～ 名题分题题入称和。newsave 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上～窗体画个称名题的题像框～左界题～且2Form11Image1360 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教277 题像框中题示考生文件题下的题片文件“。再画个称名分题Duck.bmp”2 题“、“～题题分题题“移题”、“题位”的命Command1”Command2” 令按题。如题所示。 要求, 题适的事件题程～使得每题题“移题” 按题一次～题写当框像向右移题～题题“题位”按题～题像框自题回位到左界题的位置。10360 注意,* 要求程序中不得使用题量～每事件题程中只能一题句。存题题个写条 必题存放在考生文件题下～工程文件名题～文件名题窗体sjt2.vbp 。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题窗体画个框属窗将称像控件～通题其性口名题题～左题界;属性,题题～Image1Left360 点题 属框将性在题出的加题题片题题中题片文件打题题题加题功能。二命令按题控件即画个～PictureDuck.bmp 通题 其性口名分题题题“属窗将称、“～题题;属性,分题题题“移题”、Command1”Command2”Caption“题位”。 题题“移题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command1_Click()Image1.Left = Image1.Left + 10End Sub 题题“题位”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command2_Click()Image1.Left = 360 End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.frxsjt2.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,考生文件题下有一工程文件个～其中的上有窗体个称名题 的1sjt3.vbp1Cmd命令按题控件题～有数个称名题的题像框画。题个称名题 1Image11Timer1的题题器～题题题隔题秒～初始题题不可用～如题所示。状3 程序功能如下, ,题题“前题”按题～题 的题题题可用～且在题状框像中题示秒1Timer13黄灯;题像文件题考生文件题下的“,后～题示题;题灯yellow.ico” 像文件题考生文件题下的 “, 直至下次题题某命令按个green.ico” 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教278 题～ ,题题“停止”按题～题 的题题题可用～且在题状框像题示秒黄2Timer13灯灯后～题示题; 题像文件题考生文件题下的“,直至下次red.ico”题题某命令按题～个 ,题题“题束”按题～题题束程序行。运3" 题命令按题 将事件题程中的注题符去掉～把 ,改题正的容～以确内Click 题题上述程序功能。 注意, 考生不得修改文件中已题存在的控件和程序～ 最后程序按原文件窗体将 名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的控件不全～添加一题题器控件～通题其性口窗体个属窗将属性题题Enabled ～FalseInterval 属性题题。3000 由于所提供的程序不完整～在命令按题题的窗体数事Private Sub Cmd_Click(Index As Integer) 件题程中～ 有二题地方需要修改。 将题句1) 'If Index = ? Then 改题 If Index = 2 Then 将题句2) 'Timer1.Enabled = ? 改题 Timer1.Enabled = True 在题题器的事件题程中～有一题地方需要修改。Private Sub Timer1_Timer()将题句1) 'Select Case ? 改题 Select Case flag 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.frxsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,考生文件题下有一工程文件个～其中的上已有如题所示的控窗体2sjt4.vbp件。程序功能如下, ,题题“题据”按题～题考生文件题下数将文件的容;题文件内1in4.dat中题含有字母和空格,题示在文本中～框Text1 ,在中题中部分文本～题题“题题”按题～题以不分大小字并区写2Text1 母的方式～自题题题题中文本中同题出题“、“两个字母的题o”n” 题的; 如,个数、都于题足件的题题,～题属条并将millioncompany 题题果题示在文本。框内Text2 题“题题”按题将事件题程中的注题符去掉～把 ,改题正的容确内Click ～以题题上述程序功能。 注意, 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教279 考生不得修改文件中已题存在的控件和程序～最后程序按原文件窗体将 名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在的窗体窗体事件题程中～有四题Private Sub Command2_Click() 地方需要修 改。 将题句1) 'If Len(s) = ? Then 改题 If Len(s) = 0 Then 将题句2) 'If Text1.? = 0 Then 改题 If Text1.SelLength = 0 Then将题句3) 'x = ? 改题 x = LCase(t) 将题句4) '? = Str(m) 改题 Text2.Text = Str(m) 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER%在考生文件题下有一工程文件个～其功能是,sjt5.vbp,题题“题据”按题～题把考生文件题下数文件中的个数正整1in5.dat100题入题数中～同题题示在文本中～框aText1 ,题题“素”按题～题题数将数中所有素;只能被数和自身整除的数称2a1题素,存入题数数中～题并将数中的元素题示在文本框中。bbText2在题出的文件中已题有了全部控件;如题所示,～但程序不完整。窗体 要求, 完善程序使其题题上述功能。 注意, 考生不得修改文件中已题存在的控件和程序～在题束程序行之前～窗体运 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教280 必题先题行“素”操作～然后再用右上角的题题按题题束程序～否数窗体 题无成题。最后～程序按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“素”按题;行数即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command2_Click()Dim b(100) As Integer num = 0 If Len(Text1.Text) = 0 Then 题先题行“题据”功能数,MsgBox "" Else 考生题写功能,生成存放素的题 数数'(b ) 注意,题题必题 将数的元素存入题量 个数中'b num For i = 1 To 100 flag = 0 For j = 2 To a(i) - 1 If a(i) / j = Fix(a(i) / j) Thenflag = 1 Exit For End If Next If flag = 0 Then num = num + 1 b(num) = a(i) End If Next 以下程序段将 数内题的容题示在中'b Text2 For i = 1 To num Text2.Text = Text2.Text + Str(b(i)) + Space(2) Next i End If End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.dat 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教281 ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第套,66 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic;,在名题称的上一名题 窗体画个称的形控件～要求在性状属窗1Form1Shape1 口中其形题置题题题～其题题;将状水平方向,、短题;垂直方向,的题 度分题题、。把的题题改题“窗体控件”～上有最大窗体没1600800Shape 化、最小化按题。程序行后的如题所示。运窗体 注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt1.vbp 题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一形控件～通题其性口名题题窗体画个状属窗将称～属性题题～题题;属Shape1Shape2Width性,题 题～短题;属性,题题。激活窗体属窗将～通题其性口题题;属性,1600Height800Form1Caption题题“Shape 控件”。 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题称的上一名题窗体画个称的水平题题～最大题题条～最2Form1HS100小题题。再一名题画个称的列表～在性口中题入列表题的题框属窗1List1 ～分题是、、～如题所示。题题适的程序～使得行程写当运100015002000 序题～题题列表中的某一题～当框将条水平题题的题度改题题所题中的题。要求程序中不得使用题量～每事件题程中只能一题句。个写条 注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt2.vbp 题。sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一窗体画个条属窗将称水平题题控件～通题其性口名题题～最大题;属性,题题～HSMax100最小题 ;属性,题题。一列表控件～通题其性口名题题画个框属窗将称～向列表中添加题目框Min1List1;属性,～List 添加的题目分题题“、“、“～每题目题一行。个1000”1500”2000” 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教282 题题列表中某一题目;行框即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub List1_Click() HS.Width = List1.Text End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.frxsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题中有一工程文件个。行程序题～运框先向文本1sjt3.vbpText1中题入一不个超题的正整～然后题题“数的题乘”或“;,的题乘10NN+2 ”题题题～可题行题算～题算题果题示在文本即框中～如题所示。Text2在题出的文件中已题添加了全部控件～但程序不完整。要求,去掉程窗体 序中的注题符～把程序中的 ,改题正的容。确内 注意, 不能修改程序的其他部分和控件性。最后把修改后的文件按原文件名属 存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～在窗体事件题程中～Private Sub Option1_Click(Index As Integer) 有三题地 方需要修改。 将题句1) 'Select Case ? 改题 Select Case Index 将题句2) 'Text2.Text = f1(?) 改题 Text2.Text = f1(n) 将题句3) 'Text2.Text = f1(?) 改题 Text2.Text = f1(n + 2)在事件题程中～有二题地方需要修改。Public Function f1(n As Integer) As Integer 将题句1) 'For i = 1 To ? 改题 For i = 1 To n 将题句2) '? = x 改题 f1 = x 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教283 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题中有一工程文件个。题程序的功能是文件将2sjt4.vbpin4.txt 中的文本题出题示在文本并框中。在文本框中题入一个英文字Text1Text2母～然后题题“题题”命令按题～题题题字母;大小被题题是不同的字写 母,在文本中出题的次～题题题果题示在题题数中。Label3题出的文件中已题有了全部控件～如题所示。程序不完整～要求,去窗体 掉程序中的注题符～把程序中的 ,改题正的容。确内 注意, 不能修改程序的其他部分和控件性。最后把修改后的文件按原文件名属 存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在窗体事件题程中～有四题地方需Private Sub Command1_Click() 要修改。 将题句1) 'p = ?(s, s1) 改题 p = InStr(s, s1) 将题句2) 's = ?(s, p + 1) 改题 s = Mid(s, p + 1) 将题句3) 'Loop While p ? 0 改题 Loop While p <> 0 将题句4) 'Label3.Caption = ? 改题 Label3.Caption = n 在事件题程中～有一题地方需要修改。Private Sub Form_Load()将题句1) 'Text1.Text = ? 改题 Text1.Text = s 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.frxsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题中有一工程文件个。题程序的功能是从文件中sjt5.vbpin5.txt 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教284 题入个数数数个数并找数数据～题题题些据中素的～出所有素中最小的素;40 判素的函已题出,。最后题题和题的题果分题题示在题题断数数将找和Label3 中;外题如题所示,。程序不完整～题在指定的位置把程序题窗体充完Label4 整。 注意, 不得修改原有程序和控件的性。在题束程序行之前～必题属运确运至少正行一次程序～题题的题果题示在题题中～否题无成题。最后把修改后的将 文件按原文件名存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“题题”按题;行即运事件题程,～在题事件题程中加入题句,ClickClick Private Sub Command2_Click() 考生题程序题始写'====================================n = 0 For k = 1 To 40 If prime(arr(k)) Then If n = 0 Then mini = arr(k) Else If mini > arr(k) Then mini = arr(k) End If End If n = n + 1 End If Next Label3.Caption = Str(n) Label4.Caption = Str(mini) 考生题程序题束写'=====================================Open App.Path & "\out5.txt" For Output As #1 Print #1, Label3.Caption, Label4.CaptionClose #1 End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.txt题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,67 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教285 ;,在名题 称的上一名题窗体画个称、题题题“题题控件”的条1Form1Label1 题题～一名题 个称的水平题题。题通题性口题置性使条属窗属HScroll1 水平题题取题范题的最小题题条～最大题题～题题的题度题条～11003000 高度题～题题题的初始位置题。程序行后的如题所示。运窗体30020 注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt1.vbp 题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一题题控件～通题其性口名题题窗体画个属窗将称～题题;属条性,题题“题题控Label1Caption件”。 画个条属窗将称一水平题题控件～通题其性口名题题 ～最大题;属性,题题～最HScroll1Max100小题;属Min 性,题题～题度;属性,题题～高度;属性,题题～属性题题。1Width3000Height300Value20参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp*********************************************************************** ;,在名题称的上一名题窗体画个称的形控件～位置在的题状窗体2Form1Shape1 部～在性口中其题置题题形。一名题 属窗将画个称的题题器～在属Timer1 性口中其题置题不可用～题题题窗将隔题秒～如题所示。题题窗体写窗0.5 体的 事件题程和题题器的事件题程～使得程序一题始行～题题器运即Load 题题可用～且每隔秒形控件向下移题状。0.5100 注意, 要求程序中不得使用题量～每事件题程中只能一题句。存题题必题个写条 存放在考生文件题下～工程文件名题～文件名题窗体。sjt2.vbpsjt2.frm解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一形控件～通题其性口名题题窗体画个状属窗将称～属性题题。一题画个Shape1ShapeCircle题器控 件～通题其性口名题题属窗将称～属性题题～属性题题。Timer1EnabledFalseInterval500在事件题程中加入题句,Private Sub Form_Load() Private Sub Form_Load() 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教286 Timer1.Enabled = True End Sub 在事件题程中加入题句,Private Sub Timer1_Timer() Private Sub Timer1_Timer() Shape1.Top = Shape1.Top + 100End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题中有一工程文件 个。程序的功能是题入用题名和密1sjt3.vbp 题。程序行题～向文本运当框中题入密题题～若“题示密题”题题框Text2 没框有被题中～题在文本 中同题题示“;如题所示,～若“题示Text3#” 密题”题题被题中～再重框新题入密题题～题在中同题题示的是密题Text3 字符本身。 在题出的文件中已题添加了全部控件～但程序不完整。 要求,去掉程窗体 序中的注题符～把程序中的 ,改题正的容。确内 注意, 不能修改程序的其他部分和控件性。最后把修改后的文件按原文件名属 存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～在窗体事件题程中～有四题地方需要修Private Sub Text2_Change 改。 将题句1) 'If ? = 1 Then 改题 If Check1.Value = 1 Then 将题句2) 'Form1.Text3.PasswordChar = ?改题 Form1.Text3.PasswordChar = ""将题句3) 'Text3.PasswordChar = ? 改题 Text3.PasswordChar = "#" 将题句4) 'Text3.Text = ? 改题 Text3.Text = Text2.Text 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教287 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,考生文件题中有一工程文件个。题程序的功能是,程序行题～运2sjt4.vbp 向文本控件题框数;有个框文本,中任意题入个数称～题题名题Text155 的命令按题～题出其中最小题示在题题找数并中。Command1lblResult题出的文件中已题有了全部控件～但程序不完整～其中函窗体数FindMin返回两个数数中的题小。要求,去掉程序中的注题符～把程序中的 ,改题正的容。确内 注意, 不能修改程序的其他部分和控件性。最后把修改后的文件按原文件名属 存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的程序不完整～在窗体事件题程中～有四题地方需Private Sub Command1_Click() 要修改。 将题句1) 'For k = 2 To ? 改题 For k = 2 To 5 将题句2) 'x = FindMin(Val(Text1(k).Text), ?)改题 x = FindMin(Val(Text1(k).Text), x)将题句3) 'lblResult.Caption = ? 改题 lblResult.Caption = x 在事件题程中～有一题地方需要修改。Public Function FindMin(x As Integer, y As Integer) 将题句1) 'If x ? y Then 改题 If x > y Then 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题中有一工程文件个。题程序的功能是,分题题题数sjt5.vbp7*7题四周元素之和及四周元素中能题被整除的元素的～题题题果题示个数并将7 在相题的题题中。题仔题题题已有程序～然后在题出的位置题适的程序写当 题题上述功能。 要求, 不得修改原有程序和控件的性。在题束程序行之前～必题属运确运至少正行一次程序～题题的题果题示在题题中～否题无成题。最后把修改后的将 文件按原文件名存题。 解题思路, 题无题准答案 ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第套,68 基本操作;小题～每小题分～共题分,1. 21530 注意,下面出题的“考生文件题”均题%USER% 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教288 ********************************************************************** 题根据以下各小题的要求题题题用程序;包括界面和代题,。Visual Basic ;,在名题称的上一名题窗体画个称的通用题题～通题性口题框属窗1Form1CD1 置的初始路题径～默题的文件名题～～题题题“保存等题考题CD1C:\None ”。题题的写窗体事件题程～使得程序行题～题题题打题题保存运框Load 文件题题;如题所示,。要求程序中不得使用题量～每事件题程中只框个 能一题句。写条 注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt1.vbp题。sjt1.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上一通用题题控件～通题其性口名题题窗体画个框属窗将称～属性题题“保存等CD1DialogTitle题考 题”～属性题题～属性题题。FileNameNoneInitDirc:\ 在事件题程中加入题句,Private Sub Form_Load() Private Sub Form_Load() CD1.ShowSave End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt1.vbpsjt1.frmsjt1.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt1.vbp********************************************************************** ;,在名题 称的上题题一题出式菜题。要求如下,窗体个2Form1 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教289 按以上要求题置菜题题～题适的事件题程～使得在上题题鼠题并写当窗体 右题题出题菜题～如题所示。要求程序中不得使用题量。 注意, 存题题必题存放在考生文件题下～工程文件名题～文件名窗体sjt2.vbp 题sjt2.frm 解题思路, 启题系题～题建一个窗体。Visual BasicForm1 在题上通题菜题题题器建立一主菜题～在菜题题题器的题题题题入“右题菜题”～名题题入窗体个称。mnu0在“右题菜题”菜题下有三子菜题～在菜题题题器的题题题分题题入“菜题命令”、“不可用菜题”和个 “题 题题的菜题题”～名题分题题入称、和。mnu1mnu2mnu3 在Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 事件题程中加入题句, Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Call PopupMenu(mnu0) End If End Sub 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt2.vbpsjt2.frmsjt2.vbw题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt2.vbp题题题用;小题～每题分～题分,2. 22040 注意,下面出题的“考生文件题”均题%USER% *********************************************************************** ;,在考生文件题中有工程文件 ～其中的如题所示。程序题行窗体运1sjt3.vbp 题～生成一有 会个个数找元素的整型题。若题中“题最大题”;或“题10 找找找数最小题”,题题按题～再题题“题”按题～题出题中的最大题; 或最小题,～题示在题题并中。题去掉程序中的注题符～把程序中Label2 的 ,改题正的容。确内 注意, 考生不得修改文件中已题存在的程序。最后把修改后的文件按原文窗体 件名存题。 培题中心部题料～ 咨题内教学,BCE QQ1052205362?家育部考题中心题题? 国教290 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt3.vbpsjt3.frm 由于所提供的程序不完整～在窗体事件题程中～有四题地方需Private Sub Command1_Click() 要修改。 将题句1) 'If a(i) ? x Then 改题 If a(i) > x Then 将题句2) '? = a(i) 改题 x = a(i) 将题句3) 'ElseIf a(i) ? Then 改题 ElseIf a(i) < y Then 将题句4) '? = a(i) 改题 y = a(i) 参考文件,参考答案、、c:\wexam\26990001\hlpsys\\sjt3.vbpsjt3.frmsjt3.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt3.vbp********************************************************************** ;,在考生文件题中有一工程文件个。上已有控件～如题所示。窗体2sjt4.vbp题在性口中属窗将题置题可以多题题题;允题使用或题行List1ShiftCtrl题题,列表题。要求,题双中的某一题题～被题中的题目被添加到List1 中～同题除清中相题的题目。若题题“;中已有题List2List1>>”List2 目不题,按题～中所有的题目题示在中～中的容不题。内List1 List2List1要求, 按照题目要求题置控件性～去掉程序中的注题符～把程序中的,改题属 正的容。确内 注意, 不能修改程序的其他部分和控件性。最后把修改后的文件按原文件名属 存题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt4.vbpsjt4.frm 由于所提供的控件性不完整～通题窗体属属窗将性口属性题题。List1MultiSelectSimple 由于所提供的程序不完整～在窗体事件题Public Sub MoveItem(L1 As ListBox, L2 As ListBox) 程中～有 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教291 二题地方需要修改。 将题句1) 'L2.AddItem ? 改题 L2.AddItem L1.List(L1.ListIndex)将题句2) 'L1.RemoveItem ? 改题 L1.RemoveItem L1.ListIndex在事件题程中～有一题地方需要修改。Public Sub MoveAll() 将题句1) 'For i = 0 To ? 改题 For i = 0 To List1.ListCount - 1在事件题程中～有一题地方需要修改。Private Sub List1_DblClick()将题句1) 'Call MoveItem(?) 改题 Call MoveItem(List1, List2)参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt4.vbpsjt4.frmsjt4.frxsjt4.vbw 题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt4.vbp********************************************************************** 题合题用;小题～题分,3. 130 注意,下面出题的“考生文件题”均题%USER% 在考生文件题中有一工程文件个～如题所示。行程序题～文件运从sjt5.vbp 中题入矩题据放入二题题 数并数中。题题“题算”命令按题题～题题将矩a 题题角题的两个元素中能被整除的～题题题果题示在题题个数中～3lblFirst同题题算矩题主题角题的元素之和～题算题果题示在题题 中。要lblSecond求,工程文件中已题出部分程序～题题写题算命令按题事件题程中的部分"" 程序代题～以便完成上述功能。 注意, 不能修改程序的其他部分和控件性。最后把修改后的文件按原文件名存属 题。程序题题通题后～必题题行程序～用“题算”按题题行题算～否题并 无成题。 解题思路, 启题系题～打题考生文件题下需题题的工程文件～相题的文件名题窗体。Visual Basicsjt5.vbpsjt5.frm 由于所提供的程序不完整～需添加事件题程。窗体 题题“题算”按题;行即运事件题程,～在题事件题程中加入题句,ClickClickPrivate Sub Command1_Click()Dim Sum As Long N = 7 Counter = 0 Sum = 0 考生题程序题始写'===================================== 培题中心部题料～ 咨题内教学,BCE QQ1052205362 ?家育部考题中心题题? 国教292 For k = 1 To N Sum = Sum + a(k, k) If a(k, k) / 3 = Int(a(k, k) / 3) ThenCounter = Counter + 1 End If If k <> N - k + 1 Then Sum = Sum + a(k, N - k + 1) If a(k, N - k + 1) / 3 = Int(a(k, N - k + 1) / 3) Then Counter = Counter + 1 End If End If Next lblSecond.Caption = Sum lblFirst.Caption = Counter 考生题程序题束写'=====================================Save End Sub 参考文件,参考答案、、、c:\wexam\26990001\hlpsys\\sjt5.vbpsjt5.frmsjt5.vbwout5.txt题把题些文件题制到中～然后打题文件行。并运c:\wexam\26990001sjt5.vbp__