vb习题集

For i = 1 To 4

第一章 VB环境战程序设想初步习题

          triangle=sqr(s*(s-a)*(s-b)*(s-c))

1-5: ACBCA    6-10: BACBA    11-15: DCDAD    16-20: BDBCA  

 

(20)  TabIndex

(1)     ADO ActiveX Database Object 第9章介绍

Private Sub Command1_Click()

(3)     对象箱

(4)     对象

(5)     选项

    msgbox (“x 的平方是： ” & a & “    ” & “x 的平方根是：” & b & chr(13) _

(7)     对象的性质，来描述战反映对象特征的参数

(8)     对象的行动战行为

(17)  Form1.Show

(10)  Font

(11)  MultiLine

4、Private Sub Form_Resize()

第二章 简单的VB程序设想习题

 

(15)  工程属性

(16)  通用

一、选择题

(18)  SelStart

       用Ucase()函数将小写字母转换成大写字母；

2、填空题

1-       6：BCADAD

三、编程题

5、int(x/5)=x/5 or int(x/9)=(x/9)

        txtShow.Caption=”Hi,Welcome”

        txtShow.Backup=RGB(200,200,0)

        txtShow.Forecolor=RGB(0,230,0)

        TxtShow.FontBold=True

    Text1.Height = Form1.Height / 2

    End sub

Private Sub lang4_Click()

①Private Sub cmd运行_Click()

     AutoRedraw = True

     For i = 1 To 4

     For j = 1 To 2 * i - 1

        Print i;

       Else

     Print

(6)     编辑器

End Sub

②private Sub cmd竣事_Click()

unload me

  end sub

Private Sub Command2_Click()

①Private Sub cmd运行_Click()

     Private Sub Form_Load()

VB语言习题集答案

     Print tab(30-2*i);

     For j = 1 To 2 * i - 1

             Print  str(i);

(3)int(x/5) =x/5 or int(x/7)=x/7

          Print

     Next i

(1)     (2) (6) (9) (10) (11)

 

unload me

  end sub

 

    math = InputBox("please input a Student's Math：", "math scroe")

     Label1.BackColor = vbGreen

6、false

     Label1.caption=”天天想你的365个日”

   (1)188  (2)200100  (3)68.56  (4)876543  (5)2000-2-29

Private Sub Form_DblClick()

一、选择题：

(36)optW20000或optW2000.value

    Label1.Caption = "还原"

    print a,b,c,d

三、   编程题

    Text1.Width = Form1.Width / 2

(3)(10*x+sqr(3*y))/(x*y)

     Next i

    Text1.Top = Form1.Top/2

End Sub

5、办法1：用办法实现

     AutoRedraw = True

(7)略

        Text3.SetFocus

1～5:CBDB(因为调用n后，过程执行完毕, 将值返回调用过程，所以不能采用c)D

办法2：用属性实现

Private Sub Form_Load()

     AutoRedraw = True

   x = InputBox("x=")

一、概念题

3、Private Sub Form_Click()

(16)问题有错?       （17）问题有错?

        Print format(y,”0.00”)       显示2位小数位

end sub

(1)Single  (3)Single  (4)Double  (7)String   (9)Date  (10) Double (12)八进制的整型  (13) 八进制的整型  (14) 十六进制的整型  (15)Boolean   (18)Single

2、合法变量:

End Sub

3、(1)abs(x+y)+z^5

8、CDEF

        txtShow.FontSize=35

(4)sin(45*3.1415926/180)+(exp(10)+log(10))/sqr(x+y+1)

(6)略

(2)int(rnd*101)+100

          Next j

(4)略

(5)int(x*100+0.5)/100

4、(1)chr$(67) and chr$(76)

        Show

(8)x>=10 and x<20

(9)x<z or y<z

(10)x>z and y>z

5、写出下列表达式的值：

End Sub

(6) 6

6、略       7、略        8、略

9、答：数字字符串转换成数值，用Val函数；

       用IsNumeric()函数可判断是否是数字字符串；

       用Mid()函数取字符串中的某几个字符；

a)               Private Sub Form_load()        ‘假设输入的三边使得三角形一定成立

    If lang6.Value = True Then

(30)TypeOf             (31)OLEDropMode     (32)OLEDropMode

End Sub

Print format(z,”0.000”)      显示3位小数位

11、答：(1)10x=sin(x)+y    10x弗成以，这是一个非法的变量名

        (2)c=3+sqr(—3)         平方根为负数

        (3)c+x+y=c*y           左边表达式

        (4)x=sin(x)/(20 mod 2)    分母为零

12、答：MsgBox返回所按按钮的值，InputBox返回文本框输入的值。

       If english >= 85 And english <= 100 Then

1～5、BC(A战D)DB    6～10、DDBCC    11～15、DBCBA

16～20、CACCA      21～22、DA

三、填空题

1、整型，少整型，单精度型，双精度型

End Sub

3、sin(15*3.1415926/180)+sqr(x+exp(3))/abs(x-y)

(37)i+1      (38)list1.removeItem j      (39)cbocomputer.Text=cboComputer.List(i)

1、   private sub cmd运行_Click()

     Label1.ForeColor = RGB(250, 0, 200)      &&或者 Label1.ForeColor = &H8080FF

7、-4， 3， -3， 3， -4， 4

(2)(1+x*y)^6

9、Ucase(s) or Lcase(s)

三、编程题

(19)  Locked

(9)     Form窗体

          Dim a as single, b as single,  c as single, triangle as single

          A=val(inputbox(“请输入三角形的第一条边a:”))

          b=val(inputbox(“请输入三角形的第二条边b:”))

          c=val(inputbox(“请输入三角形的第三条边c:”))

1、   请设想一个进入一个工程，要求使用者输入密码，如果密码正确，进入该工程。如果密码错误，要求使用者重新输入（输入密码的文本框清空，重新得到核心）， 并给出提示。若输入三次密码都不对，就退出该工程。书上有例题，略来。

          Show

          picture1.print “三角形的面积是：”，triangle

end sub

2、 办法一：

private sub form_click()

    dim x as single, a as single, b as single, c as single, d as single

    x=val(inputbox(“Please input a real number to x:”))

    a=x*x: b=int(sqr(x)*1000+0.5)/1000: c=x^3: d=int(x^(1/3)*1000+0.5)/1000

End Sub

end sub

   办法二：用Msgbox函数输出

 private sub form_click()

    dim x as single, a as single, b as single, c as single, d as single

    x=val(inputbox(“Please input a real number to x:”))

    a=x*x: b=int(sqr(x)*1000+0.5)/1000: c=x^3: d=int(x^(1/3)*1000+0.5)/1000

    Text1.Left = Form1.Left/2

 & “x 的立方是：” & c & spc(4) & “x 的立方根是：” & d)

(43)i=0      (44)image(i+1).visible      (45)load lblgride(i)

 

3、程序：

Dim x As Integer

Private Sub Form_Click()

   Text1.SelStart = x

     Text1.SelLength = 5

End Sub

2、(87 mod 10)*10+87\10

②private Sub cmd竣事_Click()

Private Sub Form_Load()

     AutoRedraw = True

     Text3.TabIndex = 0

 

 

第三章 VB基本语言(选择结构部份)习题

    Label1.BackColor = &H8000000F

1～5、BACAD      6～9、ADDC

2、填空题

1、7    2、分别统计由文本框1输入的数据中奇数的战、偶数的战，奇数放入M战偶数放入N变量中。

3、(1) chr(keyascii)     KeyAscii转换成字符   (2)chr(keyascii)     

(3)count1=count1-1   遇到右括号,括号数减1   (4)count1=0    括号数配对    

(5)count1>0         左括号即是右括号, 多于

4、(1)UCase(chr(keyascii)      (2)C      (3)”A”,“E”,”I”,”O”,”U”      (4)Else      (5)keyAscii=13

三、编程题

1、输入三角形的三条边a，b，c的值，根据其数值，判断能否构成三角形。若能，还要显示三角形的性质：等边三角形、等腰三角形、直角三角形、任意三角形。

2、输入一年份，判断它是否为闰年，并显示有关信息。判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除。

*3．(选作)已知软件学院入学测试计分情况为：数学(math)谦分50分；计算机(computer)谦分100分；外语6级(lang6)为“优秀”加15分、“通过”加8分，外语4级(1ane4)为“合格”加6分，外语只能计一次最高的分数。利用InputBox输入一个学生的对应课程的成绩，编写计算考试总分(sum)的程序段。

注意：括号内为对应课程的变量名。

程序代码：

‘窗体级变量定义

Option Explicit

Dim math As Single, computer As Single, english As Single, sum As Single

 

(2)     视图

    If math >= 50 Or computer >= 100 Then

       math = 50: computer = 100

    End If

               english = english + 8

    Text4.Text = sum

End Sub

 

第二小题：（高级问题）

    End

End Sub

(14)  工程

Private Sub Form_Load()

     label1.autosize=true

(12)  在程序运行时无效。有些属性只能在设想时才能设置，例如：BorderStyle, MaxButton等；有些属性只能在运行时设置，例如：SelStart, SelLenght等。

    computer = InputBox("please input a Student's Computer：", "Computer scroe")

10、答：Print format(x,”0.0”)    显示1位小数位

    english = InputBox("please input a Student's English：", "English scroe")

    Rem 此题假设四、六级为一套考题,考生分数在75分以上为通过六级,75－60分之间为通过四级。

    Rem 若实际情况下四、六级分别会商就更复杂

       

    If english >= 85 And english <= 100 Then

          Text3.Text = "优秀"        '成绩在100－85分为优秀

          lang6.Value = True

1～5、ABBCB      

    If english >= 75 And english <= 84 Then

          Text3.Text = "通过"    '成绩在84－75分为通过

          lang6.Value = True

    End If

1、(1) 1 4 4    (2)用递归函数实现将十进制转换成r进制

          Text3.Text = "合格"    '成绩在69－60分为合格

     Text2.Text = Text1.SelText

    End If

    If english <= 59 Then Text3.Text = "不合格"

End Sub

2、第一小题：(必作题)

   If lang4.Value = True Then

      english = english + 6

   End If

End Sub

 

Private Sub lang6_Click()

用Lease()函数将大写字母转换成小写字母。

2、选择题最强弃少

           english = english + 15

     Next j

           If english >= 75 And english <= 84 Then

    sum = math + computer + english

           End If

       End If

    End If

 End Sub

第三章 VB基本语言(循环结构部份) 习题

一、   选择题：

    End If

一、选择题

1、33 根据计算循环次数公式而定 int[（终值-初值）/步少值] +1=20   2、10   3、（1）4次  （2）12次

4、si=2,sj=3,sk=2,I=3,j=3,k=4        

5、2 20

        3 21

4 22

     5 23

6、(12)**$$$****$$$$$       7、(13)13               6           8、(14) len(a)     (15)int(n\2)  

(13)  Style

9、(18) n mod 3=1 and n mod 5=1 and n mod 7=1         (19) until CountN n=5

10、(20)min1=mark   (21)min1=mark  (22)max1=mark  (23)aver=aver+mark      (24) (aver-max1-min1)/5

 

    Text1.Text = math

          s=(a+b+c)/2

2、有一个少阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有当如果每步跨7阶时恰好走完，问这个阶梯有多少阶?

[提示] 利用其一定是7的倍数这个条件，然后根据同时谦足除n余m(n=2，3，4，5，6；m=1，2，3，4，5)的逻辑干系即可。

3、一个球从100m高度自由下落，每次落地后反跳回原高度的一半，再落下。求它在第10次落地时，共经过多少米?落地10次反弹高度多少?

End Sub

第三章 VB基本语言(数组部份)习题

一、选择题

(21)  0

2、填空题

1、(1)int(rnd*100+1)       (2)string(a(i)\2,”*”); "A("; i; ")="; a(i)

2、(3) ReDim a(n, n)       (4)1 to (n+1)\2       (5) a(j,k)=I      (6) print

3、(10) a(7)              最后元素移出

(11) a(j+1)=a(j)         每个元素往右移, 最左位置留出

(12) a(1)=t

4、(10) Preserve a(n+1)  插入一个数,先让数组元素加1,保存原来的数组元素值

(11) a(I+1)=a(i)      找插入的位置

(12) a(I+1)=m       新数据插入到数组中

三、编程题

21-24: BDAD

第三章 VB基本语言(过程部份)习题

2、(1)6        (2)用辗转相除法求m,n的最大公约数

          lang4.Value = True

6～10:CAD（P1是递归函数）CB

1、程序：

    If english <= 74 And english >= 60 Then

一、选择题

三、程序设想

程序：

第四章 常用控件与窗体

2、   填空题：

1～5:BBCAB（D错误是应为遗漏列表框名称）

6～10:DDDB(ListIndex返回选定项目的序号,List1.Select (Listl.ListIndex)语句的结果是true)(注:Debug为立即窗体)  10:D

11～15:DDDAA     16～20: DBCAD    21～23: CBD

2、填空题

(1)value     (2)Alignment     (3) style    (4)Enable   (5)0      (6)listcount-1     (7)list              (8)select        (9)clear      

(10)下拉式列表框    (11)Scroll     (12)largeChang     (13)value    (14)15000    (15)Time$     (16)progressbar   (17)Slide      (18)tabsPerRow

(19)UpDown  (20)AVI或视频     （21）vbrightButton 或者 2

(22)vbshiftMask or vbCtrlMask 或者3

(23)Mouseicon    (24)vbDefault 或者 0     (25)KeyPreview     (26)DragMode          (27) DragOver    (28) DragDrop    (29)DragIcon

    Text2.Text = computer

(33)chkCompter_click    (34)cboComputer.Text或txtcomputer

(35)txtComputer.Text 或txtComputer     

2、填空题

4、(a+b)/(1/(c+5)-c*d/2)

(40)Not flag 或flag=false

(41)cbocomputer.AddItem cboComputer.Text

(42)image(i).Picture

1、合法常量有:

(46)lblgrid(i-1).height      (47) lblgrid(i-1).width      (48)lblgride(i).visible

(49)chessboard(I,y) or chessboard(x,i)    (50)chessboard(I,abs(y+(x-i)))

(51)chessboard(x,y)          (52)lblgrid(index).backcolor=oldcolor

 

三、编程题

    Label1.ForeColor = &H80000012