实验四数据类型、表达式与函数1、设计简单界面，完成功能：在文本框text1中输入一个正实数赋给变量x，对x的第3位小数四舍五入后的结果在文本框text2中输出PrivateSubForm_Load()DimXAsSingieX=Text1.TextText2.Text=CInt(X*100)/100EndSub2、表达式Val(“.123E2CD”)的值是_____12.3_____3、表达式Str(Len(“123”))+Str(77.7)的值为___“377.7”_______4、表达式Len(Str(Val(“123.4”)))的值为___6_______5、设变量A=“12345678”，则表达式Val(Left(A,4)+Mid(A,4,2))的值为123456__________，Val(Left(A,4))+Mid(A,4,2)的值为1234+“56”__________。6、函数InStr(“VB程序设计教程”，”程序”)的值为___3______7、函数UCase(MID(“visualbasic”,8))的值为BASIC_________8、表达式25.28Mod6.99的值是_4______9、表达式"12"+"34"的值是“1234”_____。表达式"12"&"34"的值是_“1234”_________。表达式12&34的值__46________，表达式12+34的值是_46________，表达式12+"34"的值是___46______。10、从键盘上输入一个两位正整数，赋给变量N，将N的个位数与十位数对换后赋给变量M，在窗体上输出M的值N=InputBox(“12”)M=N\10+(NMOD10)*10PrintM11、表达式Int(-17.8)+Sgn(17.8)的值是-17_______，表达式Int(-17.8)+Abs(17.8)的值是___-0.2_____，表达式Left(“howareyou”,3)的值是_“how”_______，表达式Right(“Beijing”,4)的值是_”jing”______，表达式Abs(-5)+Len(“ABCDE”)的值是__10_____12、设A=7,B=3,C=4,求下列表达式的值：(1)A+3*C19(2)A^2/68.17(3)A/2*3/25.25(4)AMod3+B^3/C\5213、写出下列函数的值：(1)Int(-3.14159)-4(2)Sqr(Sqr(256))4(3)Fix(-3.1415926)-3(4)Int(Abs(99-100)/2)0(5)Sgn(7*3+2)1(6)Lcase("Hello")helle(7)Left("hello",2)he(8)Val("16Year")16(9)Str(-459.65)“-459.65”(10)Len("Hello")514、设a=2，b=3，c=4，d=5，求下列表达式的值：（1）a＞bANDc＜=dOR2*a＞cfalse（2）3＞2*bORa=cANDb＜＞cORc＞dfalse（3）NOTa＜cOR4*c=b＾2ANDb＜＞a+ctrue15、写出下面Format函数的值：（1）Format(5459.4,“##,##0.00”)值为：5459.40（2）Format（334.9，“####”）值为：335（3）Format（0.6725，“0.00”)值为：0.67（4）Format（0.6725，“#.00”）值为：0.67(5)Format（”HELLO”,”<”）值为：hello(6)Format(“Thisisit”,”>”)THISISIT16、要弹出如下输入对话框，给变量x赋值，请写出相应的语句。PrivateSubForm_Click()DimxAsStringx=InputBox("请输入x的值！Chr(13)&Chr(10)&x必须大于10","输入框",20)EndSub17、请写出如下消息提示框对应的语句。PrivateSubForm_Click()x=MsgBox("输入错误，请重新输入！",16,"错误提示")EndSubPrivateSubForm_Click()x=MsgBox("操作完成！Chr(13)&Chr(10)&是否继续？",4+64,"提示信息")EndSub