二级真题与解答.doc

二级真实模拟上机操作1要求：图片框在运行前设置为隐藏。在文本框中输入“AAA”点击按钮后，文本框隐藏，图片框PICTURE1激活，并显示文本框中内容“AAA”t = Text1Picture1.Print tPicture1.Visible = TrueText1.Visible = False 事先设置picture1的visible属性为false2要求：1双击窗体后，命令按钮屏蔽，。2单击窗体后，激活命令按钮：Private Sub Form1_Click() Private Sub Form1_DblClick()Command1.Visible = True Command1.Visible = FalseEnd Sub End Sub3要求：建立一个框架，标题为“AAA”框架高为2500，宽为4000在框架中建立一个文本框，其内容为“BBB”Private Sub Form_Activate()Frame1.Height = 2500Frame1.Width = 4000Text1 = BBB4要求：打开一个窗体，建立一个图片框和一个命令按钮,将按钮名称设置为颜色设置,单击按钮时,将图片框中的颜色改为红色、内容改为”BBB”，并保存窗体名为：F1，工程名为：FFFPicture1.BackColor = vbred Picture1.Print BBB5要求：打开一个窗体，建立一个图片框和一个命令按钮，要求产生10个100到150之间的随机整数，并将能被3整除的数显示在图片框中。 Dim x As Integer For i = 1 To 10 x= Int(Rnd * 51 + 100) If x Mod 3 = 0 Then Picture1.Print x Next i6要求：打开一个窗体，建立一个图片框和一个文本框，要求：当向文本框中输入内容时，图片框中显示文本框中完整的内容。 Private Sub Text1_Change()t = Text1.Text Picture1.Print tEnd Sub7要求：打开一个窗体，建立一个文本框和一个按钮，要求：单击按钮时，将窗体的标题内容送到文本框中显示。TEXT1=FORM2.CAPTION8打开一个窗体，建立二个文本框和一个按钮，要求：向第一个文本框中输入小数时，点击按钮，对小数进行四舍五入并取整数，送入第二个文本框中。t = Val(Text1)m = Int(t)n = t - mIf n 0.5 Then Text2 = mElse Text2 = Int(Round(t + 0.1)End If9打开一个窗体，建立四个文本框和一个标签，一个按钮。要求：向这四个文本框中输入四个整数，并放入数组S中，求出这个数组中的最小值，放在标签中min = a(1)for i = 2 To 4if a(i) min Then min = a(i)next ilabel1.Caption = minDim a(4), min As Integer min = a(1)a(1) = Text1 8 For i = 1 To 4a(2) = Text2 5 If a(i) min Then min = a(i)a(3) = Text3 1 Next ia(4) = Text4 3 Label1.Caption = min10打开一个窗体，建立三个文本框、一个标签、一个命令按钮，命令按钮的面版为“求平均值”，要求：向三个文本框输入学生三科（物理、化学、数学）成绩，点击按钮计算出该学生的平均成绩、去掉小数点，送到标签中显示Dim avg As Integer a = Val(Text1) avg = Fix(a + b + c) / 3b = Val(Text2) Label1.Caption = avgc = Val(Text3)11打开一个窗体，建立一个命令按钮，点击按钮后，弹出一个数据输入对话框，输入内容为“AAA”，将窗体名保存为“T1”，工程保存名为：TTTt = InputBox(AAA)12打开一个窗体，创建一个下拉菜单和一个文本框，菜单有：输入、编辑、删除，要求：当点击编辑菜单项时，光标进入文本框，可编辑其中的内容，当点击删除菜单项时，可删除文本框中的内容，当点击退出项时，退出窗体。13打开一个窗体，建立一个框架，一个文本框，框加的标题为AAA, 在框加中入三个单选按钮,标题分别为红、黄、蓝，当点击单选按钮时，文本框中的字体颜色随之而变化。Private Sub Option1_Click() Private Sub Option2_Click() Private Sub Option3_Click()Text1.ForeColor = vbRed Text1.ForeColor = vbYellow Text1.ForeColor = vbBlueEnd Sub End Sub End Sub14打开一个窗体，建立一个标签和一个定时器，要求：标签的标题为“AAA”，定时器初值为三秒，并编写事件，每隔三秒标签隐藏，再隔三秒标签再现。Dim t As Integer （通用） ElsePrivate Sub Timer1_Timer() Label1.Visible = FalseIf t = 0 Then t = 0Label1.Visible = True End Ift = 1 End Sub（注意timer1的interval 属性值要设置为2000）15打开一个窗体，一个文本框，一个组合框，三个单选，二个复选，组合框中的内容为20，30，40，单选标题分别为：红、绿、蓝，复选按钮分别为：粗体，斜体。要求：当点击组合框中的字号时，文本框中的字随之改变大小，当点击单选与复选项时，文本框中的字体颜色与粗体，斜体也随之而变化。（Check1） End IfIf Check1.Value = 1 Then （Option1）Text1.FontBold = True If Option1.Value = True ThenEnd If Text1.ForeColor = vbRed（Check2） End IfIf Check2.Value = 1 Then （Option2）Text1.FontItalic = True If Option2.Value = True ThenEnd If Text1.ForeColor = vbBlue（Combo1） End Ift = Combo1.ListIndex （Option3）If t = 0 Then If Option3.Value = True ThenText1.FontSize = 20 Text1.ForeColor = vbGreenEnd If End IfIf t = 1 Then Text1.FontSize = 30 End IfIf t = 2 ThenText1.FontSize = 4016打开一个窗体，建立一组（二个）单选按钮和三个文本框，单选按钮的标题分别为：男、女，要求在文本框1中输入姓名，在文本框2中输入年龄，并选择男或女，这时在文本框3中显示完整的输入信息。Private Sub Text3_GotFocus()a = Text1b = Text2If Option1.Value = True Then c=option1.captionEnd IfIf Option2.Value = True Thenc = option2.captionEnd IfText3 = a + b + c17要求：1当垂直滚动条滑动时，文本框上下移动2当水平滚动条滑动时，文本框左右移动Private Sub HScroll1_Change()t = HScroll1.ValueIf t = 0 ThenText1.Move 0, 0, Text1.Width, Text1.HeightEnd IfIf t = 32767 Thenm = Form1.WidthText1.Move m - (Text1.Width), 0, Text1.Width, Text1.HeightEnd IfEnd SubPrivate Sub VScroll1_Change()t = VScroll1.ValueIf t = 0 ThenText1.Move 0, 0, Text1.Width, Text1.HeightEnd IfIf t = 32767 Thenm = Form1.HeightText1.Move 0, m - (Text1.Height) * 2, Text1.Width, Text1.HeightEnd IfEnd Sub18要求当光标焦点进行文本后，其鼠标指针变为十字星。窗体背景变为红色说明： 文本框的鼠标指示属性名：MOUSEPOINT=（0，1，2，3。15，99）代码： Text1.MousePointer = 2 FOMR1.BACKCOLOR=&HFF&事件： TEXT1文本框的GOTFOCUS事件19要求：当鼠标选择文本框TEXT1中的内容时，文本框TEXT2中显示选择的字符在原字串中的起始位置，文本框TEXT3中显示选择的字符个数Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)t = Text1.SelTextn = InStr(Text1, t)Text2 = nm = Len(t)Text3 = mEnd Sub20要求：在不同按钮中编写程序打印三角形 方法2方法1： Private Sub Command1_Click()Private Sub Command1_Click() For I = 1 To 5For i = 1 To 5 Print Tab(10 - I); Print Tab(10 - i); String(2 * i - 1, *) For J = 1 To 2 * I - 1 Next I Print *;End Sub Next JPrivate Sub Command2_Click() PrintFor i = 1 To 5 Next I Print Tab(4 + i); String(11 - (2 * i), *) End SubNext I Private Sub Command2_Click()End Sub For I = 1 To 5 Print Tab(4 + I); For J = 1 To 11 - 2 * I Print *; Next J Print Next I End Sub21 要求：当点击图片框时，显示右图窗体所示 Picture1.Print 1;For i = 2 To 6 Picture1.Print For j = 1 To i If j = 1 Then Picture1.Print 1; ElseIf j i Then Picture1.Print i - 1; ElseIf j = i Then Picture1.Print 1 End IfNext j Next i22要求：当窗体边框变化时，窗体中的图片框与窗体保持一致的变化Dim t1, t2, p1, p2 As IntegerPrivate Sub Form_Load()t1 = Form1.Heightt2 = Form1.Widthp1 = Picture1.Heightp2 = Picture1.WidthEnd SubPrivate Sub Form_Resize()p = Form1.Height If q t2 Thenq = Form1.Width j = (q - t2)If p t1 Then