sysu计算机程序设计VB编程VIP专享VIP免费

顺序结构：Dimvar1AsInteger,var2AsStringvar1=12345var2=InputBox("输入Var2=","输入对话框")MsgBox(var2&Chr(13)+Chr(10)&"var1="&Str(var1))'MsgBox(var2&vbCrLf&"var1="&Str(var1))赋值类型一、模仿第1题的实验，通过编程运行，理解变量、表达式和函数的定义、书写规则。(1)在变量说明语句中，将变量A、变量B……变量J分别说明成什么类型，才能与下列的值匹配。325、546.2、5383149、2003-12-31、“ABCDEF”、false、“123456”、3.2434E+100、1.2563E+12DimaAsShortDimbAsSingleDimcAsIntegerDimdAsDateDime1AsStringDimfAsBooleanDimgAsStringDimhAsDoubleDimiAsSingleDimj(4,3)AsIntegera=3.25b=546.2c=5383149d=#12/31/2003#e1="ABCDEF"f=Falseg="123456"h=3.24E+100i=1.2563E+15j(0,0)=456MsgBox(a&vbCrLf&b&vbCrLf&c&vbCrLf&d&vbCrLf&e1&vbCrLf&f&vbCrLf&g&vbCrLf&h&vbCrLf&i&vbCrLf&j(0,0))二、分析下列表达式的运算结果，在窗体单击事件过程中，通过定义与运算结果类型相符合的变量，并将运算结果赋值给已定义的对应变量。观察程序编写过程中的语法编译提示。1)2)+|0.123-3|3)-sin(300)4)e6+ln(+2.135)5)89&12<>89126)"AB"+STR(32.56)+"CD"7)mid("student”,5)=“ent”And(5>2)8)Not(6>2)Or(7<9))Dimx21,x22,x23,x24AsSingleDimx25,x27,x28AsBooleanDimx26AsStringx21=Sqrt(3^2/(2*4))x22=+Abs(0.123-3)x23=-Sin(30*PI/180)x24=Exp(6)+Log(2.135)x25=89&12<>8912x26="AB"+Str(32.56)+"CD"'x27=Mid("student",5)="ent"And(5>2)x27=Microsoft.VisualBasic.Right("student",3)="ent"And(5>2)x28=Not(6>2)Or(7<9)MsgBox(x21&vbCrLf&x22&vbCrLf&x23&vbCrLf&x24&vbCrLf&x25&vbCrLf&x26&vbCrLf&x27&vbCrLf&x28)三、1、产生一个100以内的随机整数DimyAsIntegery=Int(Rnd()*100)MsgBox(y)2、给出任意字符串，测其长度DimyAsStringDimy1AsIntegery="VB程序设计语言"y1=Len(y)MsgBox(y&"长度为"&y1)3、在给出的字符串中找到stu的位置DimyAsIntegery=InStr("abcstudent","stu")MsgBox(y)4、去除字符串"VisualC++"中两端的空格DimyAsStringy=Trim("VisualC++")MsgBox("去除左边空格"&y&"去除右边空格")5、测字符“我去资料室查资料”所占字节PrivateSubButton7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton7.ClickDimyAsStringDimy1AsIntegery="VB程序设计语言"y1=Len(y)*2MsgBox(y&"字节数为"&y1)EndSub6、将字符串“料资查室料资去我”反序排列PrivateSubButton8_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton8.ClickDimy,y1AsStringy="我去资料室查资料"y1=StrReverse(y)MsgBox(y1)EndSub7、将“我去资料室查资料”截取“资料室”三字PrivateSubButton9_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton9.ClickDimy,y1AsStringy="我去资料室查资料"y1=Mid(y,3,3)MsgBox(y1)EndSub8、将“我去资料室查资料”截取右边的“资料”两字PrivateSubButton10_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton10.ClickDimy,y1AsStringy="我去资料室查资料"y1=Mid(y,7,2)'y1=Microsoft.VisualBasic.Right(y,2)MsgBox(y1)EndSub9、在字符串“Thisisabook.”中加空格成句PrivateSubButton11_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton11.ClickDimy,y1AsStringy="Thisisabook"y1=Mid(y,1,4)&Space(1)&Mid(y,5,2)&Space(1)&Mid(y,7,1)&Space(1)&Mid(y,8)MsgBox(y1)EndSub10、用函数求字母“Z”的ASCⅡ码PrivateSubButton12_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton12.ClickDimyAsIntegery=Asc("Z")MsgBox(y)EndSub11、用函数计算2010年1月9日与你做实验的时间相隔多少年、月、日PrivateSubButton13_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton13.ClickDimyAsDateDimy1,y2,y3AsIntegery="2013-1-1"y1=DateDiff(DateInterval.Month,y,Today())y2=DateDiff(DateInterval.WeekOfYe...