S a , b
Print a ; b
End Sub
四、程序填空
1.以下程序用来产生80个小于50~165之间的随机整数,将这些数中能被3和5除余2的数在窗体上显示。
Private Sub Command1_Click()
Randomize
For I = 1 To 80 X =()If () Then
Print X
End If
Next I
End Sub
2. 该程序是单击命令按钮,用InputBox函数输入二个整数后,调用自定义函数,求组合Cm
n 即m! / (n!(m - n)!),在图形框中输出结果。
Private Sub Command1_Click()
Dim M%, N%,S%
M = InputBox(“输入M”)
N = InputBox(“输入N”) S=( )
Picture1.Print “S=”;S
End Sub Function Zh( ) As Long
P = 1
For H = 1 To X
P = P * H
Next H
Zh= P
End Function
3.该程序是输入任意三角形的三个边,调用子过程求出三角形的面积。
Private Sub Form_Click()
Dim A%, B%, C%, AREA!
A = InputBox("输入三角形的第一个边A")

B = InputBox("输入三角形的第二个边B")
C = InputBox("输入三角形的第三个边C")
Print A, B, C
( )
Print AREA
End Sub
Sub Triangle( )
P = (X + Y + Z) / 2
S = Sqr(P * (P - X) * (P - Y) * (P - Z))
End Sub
五、程序设计
数组C是一维动态定长字符数组,每个字符串长度最多9个字符,数组元素个数M由文本框Text1输入的值确定,当在文本框中输入数组元素个数失去焦点后,用InputBox函数输入M个字符串赋予C数组中;单击图形框(Picture1)在该图形框输出这些字符串的升序;单击“清空”命令按钮(Command1),清除文本框、图形框中的内容;单击“退出”命令按钮(Command2),结束程序运行。
要求:
(1)设计(画出)界面
(2)给出对象(控件)属性表
(3)编写Text1失去焦点事件、Picture1单击事件、Command1单击事件和Command2单击事件的事件过程代码。
篇二:VB练习题二
VB练习题二
一、选择题:
1、以下4种描述中,错误的是:
A 常量是在程序执行期间其值不会发生改变
B 根据数据类型不同,常量可分为字符型常量、数值常量、日期/时间型常量和布尔型常量 C 符号常量是用一个标识符来代表一个常数,好像是为常数取一个名字,但仍保持常数的性质D 符号常量的使用和变量的使用没有差别 2、下面合法的常量是:
A 1/2B ?acd? C 1.2*5D False
3、VB中可以用类型说明符来标识变量的类型,其中表示货币型的是: A% B # C @ D $ 4、下面() 是不合法的整常数。
A 100 B %0100 C&H100 &o100 5、以下关键字中,不能定义变量的是:
A Declare BDim C PublicD Private 6、表达式16/4- 5*8/4 mod 5\2的值为: A 14B4 C 20 D 2 7、VB日期型常量的定界符是 :
本文来自电脑杂谈,转载请注明本文网址:
http://www.pc-fly.com/a/jisuanjixue/article-22686-3.html
也不能再拖了
所有的朋友们一起都来