当前位置:首页 >> 其它课程 >>

Vb常用内部函数练习题加答案


1、 编写一个计算器,在 text1 和 text2 中输入数字,text3 中输出结果。实现的功能为“加、 减、乘、除、绝对值、符号函数、平方根函数、取余、乘方、负号、整除”

2、 编写一个程序,在 text1 中输入,text2 中输出结果。实现的功能为“int(x) 、asc(x) 、 chr(x) 、val(s) 、str(s) ”

/>3、 编写一个程序,在 text1 中输入一个身份证号码,先去除该数字前的空格(ltrim(s) ) 从该身份证号码中截取此身份证号码的出生年月日

4、 编写以一下程序,实现如下的效果

5、 编写一个程序, 在 text1 和 text2 中输入一串字符开始查找, 如果 text2 中找到 text1 中的 字符,text3 返回位置,如果找不到 text3 则返回 0

6、 编写一个程序,在 text1 中输入一段英文语句,text2 中返回其大写或小写

7、 编写一个程序,获取当前系统时间

8、 编写一个随机函数,产生 1-20 之间的 5 组随机函数,且第二次初始化时不能重复出现

答案
1、Private Sub Command1_Click() Dim a As Single Dim b As Single a = Text1.Text b = Text2.Text Text3.Text = a + b End Sub Private Sub Command10_Click() Text3.Text = Sgn(Text3.Text) End Sub Private Sub Command11_Click() Text3.Text = Sqr(Text3.Text) End Sub

Private Sub Command2_Click() Dim a As Single Dim b As Single a = Text1.Text b = Text2.Text Text3.Text = a - b End Sub Private Sub Command3_Click() Dim a As Single Dim b As Single a = Text1.Text b = Text2.Text Text3.Text = a * b End Sub Private Sub Command4_Click() Dim a As Single Dim b As Single a = Text1.Text b = Text2.Text Text3.Text = a / b End Sub Private Sub Command5_Click() Dim a As Single Dim b As Single a = Text1.Text b = Text2.Text Text3.Text = a Mod b End Sub Private Sub Command6_Click() Dim a As Single Dim b As Single a = Text1.Text b = Text2.Text Text3.Text = a \ b End Sub Private Sub Command7_Click() Dim a As Single Dim b As Single a = Text1.Text

b = Text2.Text Text3.Text = a ^ b End Sub Private Sub Command9_Click() Dim a As Single Text3.Text = Abs(Text3.Text) End Sub 2、Private Sub Command1_Click() Dim a As Single a = Text1.Text Text2.Text = Int(a) End Sub Private Sub Command2_Click() Dim a As String a = Text1.Text Text2.Text = Asc(a) End Sub Private Sub Command3_Click() Dim a As String a = Text1.Text Text2.Text = Chr(a) End Sub Private Sub Command4_Click() Dim a As Single a = Text1.Text Text2.Text = Str(a) End Sub Private Sub Command5_Click() Dim a As String a = Text1.Text Text2.Text = Val(a) End Sub 3、Private Sub Command1_Click() Dim a As String Dim b As String a = Text1.Text b = LTrim(a) Text2.Text = Mid(b, 7, 6) End Sub

4、Private Sub Form_Click() Print String(1, "*") Print String(2, "*") Print String(3, "*") Print String(4, "*") Print String(5, "*") Print String(6, "*") Print String(6, "*") Print String(5, "*") Print String(4, "*") Print String(3, "*") Print String(2, "*") Print String(1, "*") End Sub 5、Private Sub Command1_Click() Dim a As String Dim b As String a = Text1.Text b = Text2.Text Text3.Text = InStr(a, b) End Sub 6、Private Sub Command1_Click() Dim a As String a = Text1.Text Text2.Text = LCase(a) End Sub Private Sub Command2_Click() Dim a As String a = Text1.Text Text2.Text = UCase(a) End Sub 7、Private Sub Command1_Click() Dim a As String Text1.Text = Now() End Sub 8、Private Sub Form_Click() Dim a As Integer Dim b As Integer a=1 b = 20 Randomize Print Int((b - a) * Rnd + a); Int((b - a) * Rnd + a); Int((b - a) * Rnd + a); Int((b - a) * Rnd + a); Int((b a) * Rnd + a)

End Sub


相关文章:
初二函数练习题与答案
初二函数练习题答案_数学_初中教育_教育专区。初二函数练习题答案一、选一选,慧眼识金(每小题 3 分,共24分) 1.下列函数关系式:① y ? ?2 x, ② y...
第7章函数练习题(含答案)
第7章函数练习题(含答案)_数学_初中教育_教育专区...函数内部和外部定义的变量同名是合法的 B.只要形参...构成 c 语言程序的基本结构单位是( A ) A)函数 ...
函数及其表示知识点+练习题+答案
应关系) (4)函数的表示方法 表示函数常用方法有:解析法、图象法和列表法。...函数及其表示测试题 ? x 2 ? 4 x ? 6, x ? 0 1、设函数 f ( x) ...
高一数学函数习题(练习题以及答案
高一数学函数习题(练习题以及答案_数学_高中教育_教育专区。高一数学函数练习题以及答案(人教版) 一、 求函数的定义域 1、求下列函数的定义域: ⑴y? x 2 ? ...
数列函数专题练习含答案
{bn}的前 n 项为 Tn,求使得 2Tn(2n+1)≤...日数列函数练习题参考答案与试题解析 一.选择题(共...得到如图的△ ABO 及其内部,其中 A( , ),B(1,...
函数的图象练习题(含答案)
函数的图象练习题(含答案)_数学_高中教育_教育专区。函数的图象练习题 [函数的...2 时,函数 y?kx?2 和 y?2x?k 的函数值相等,则 k? 三、基础训练: 。...
函数奇偶性练习题(内含答案)
函数奇偶性练习题(内含答案)_高三数学_数学_高中教育_教育专区。函数奇偶性练习...f(x1)> f(x2) ,即单调减函数.点评:此题要注意灵活运用函数奇偶性和单调性...
一次函数练习题(附答案)
一次函数练习题(附答案)_初二数学_数学_初中教育_教育专区。初二,一次函数附...(c≤5);若用水量超过 am 时,除了付同上的基本损耗费外,超过部 分每 ...
练习题答案汇总
(2)利用 Excel 的“CORREL”函数计算的相关系数为 r ? 0.8621 。相关系数 r...四大名著汇总及练习题答... 14页 免费 课后习题答案汇总 6页 免费 分录汇总习...
函数的周期性练习题兼答案
函数的周期性练习题答案_数学_高中教育_教育专区。高中数学 函数周期性分类解析 一.定义:若 T 为非零常数,对于定义域内的任一 x,使 f ( x ? T ) ? ...
更多相关标签: