VB考试答案 laikintak.docx

1、VB考试答案 laikintak实验29-1换行，inputbox、msgbox的使用 PrivateSubForm1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.ClickDimvar1AsInteger, var2AsString var1 = 12345 var2 = InputBox(输入Var2=,输入对话框) MsgBox(var2 & Chr(13) + Chr(10) &var1=& Str(var1)MsgBox(var2 & vbCrLf & var1= & Str(var1) EndSub实验2

2、9-2字符形式的转换 PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimaAsShortDimbAsSingleDimcAsIntegerDimdAsDateDime1AsStringDimfAsBooleanDimgAsStringDimhAsDoubleDimiAsSingleDimj(4, 3)AsInteger a = 3.25 b = 546.2 c = 5383149 d = #12/31/2003# e1 =ABCDEF f =Fal

3、se g =123456 h = 3.24E+100 i = 1.2563E+15 j(0, 0) = 456 MsgBox(a & vbCrLf & b & vbCrLf & c & vbCrLf & d & vbCrLf & e1 & vbCrLf & f & vbCrLf & g & vbCrLf & h & vbCrLf & i & vbCrLf & j(0, 0)EndSub函数的运算使用PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDim

4、x21, x22, x23, x24AsSingleDimx25, x27, x28AsBooleanDimx26AsString x21 = Sqrt(3 2 / (2 * 4) x22 = +Abs(0.123 - 3) x23 = -Sin(30) x24 = Exp(6) + Log(2.135) x25 = 89 & 12 8912 x26 =AB+ Str(32.56) +CDx27 = Mid(student, 5) = ent And (5 2) x27 = Microsoft.VisualBasic.Right(student, 3) =entAnd(5 2) x28 =No

5、t(6 2)Or(7 bThen x = a y = bElse x = b y = aEndIfIfc aThen x = cElseIfc bThen y = cEndIfEndIf MsgBox(最?大?数?y& x & 最?小?数?y& y)EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickDimtAsSingle, fAsSingle t = InputBox(请?输?入?t)Ift = 90Then y =AElseIfx = 80Then y =BElseIfx = 70Then y =CElseIfx = 60Then y =D