陕西师范大学VB主观题和答案

主观题1、请编写函数fun(a，b)，其函数功能是：计算a到b区间内（包括a、b）所有除3余数为2的整数之和，并返回结果。窗体上已经给出a,b的值。例如：a=1,b=4。处理后，结果为2。注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）A=100,B=500除3余2的数之和：文本框计算PublicClassForm1PrivateFunctionfun(ByValaAsInteger,ByValbAsInteger)AsLong'#############请在此区间填写你的代码#############dimi,sasintegers=0fori=atobifimod3=2thens=s+iendifnextreturns'###############################################EndFunctionPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,bAsIntegerDimcAsLonga=100b=500c=fun(a,b)TextBox3.Text=CStr(c)DimmystreamwriterAsNewStreamWriter(data.vbout)mystreamwriter.Write(c)mystreamwriter.Close()EndSubEndClass2、请编写函数fun()，其功能是：计算2-500之间（包括2，500）素数的个数,并将其作为返回值。注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）。2-500之间的素数个数：文本框计算PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickTextBox1.Text=fun()DimmystreamwriterAsNewIO.StreamWriter(data.vbout)mystreamwriter.Write(fun())mystreamwriter.Close()EndSubPrivateFunctionfun()AsInteger'###########################在此添加你的代码########################################dimi,n,jasintegern=0fori=2to500forj=2toi-1ifimodj=0thenexitforendifnextifi=jthenn=n+1endifnextreturnn'###################################################################################EndFunctionEndClass3、请编写函数fun()，其功能是：计算a到b之间“个位数与十位数相等”的数的个数（包括a,b），并返回该值。注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）A为：文本框B为：文本框A到b之间各位数与十位数相等的数的个数：文本框计算PublicClassForm1PrivateFunctionfun(ByValaAsInteger,ByValbAsInteger)AsInteger'#############请在此区间填写你的代码#############dimi,n,g,sasintegern=0fori=atobg=imod10s=(i\10)mod10ifg=sthenn=n+1endifnextreturnn'###############################################EndFunctionPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,bAsIntegerIfIsNumeric(TextBox2.Text)=0OrTextBox2.Text=ThenMessageBox.Show(请确定输入了a的值,并且只能为数字)ExitSubEndIfIfIsNumeric(TextBox3.Text)=0OrTextBox3.Text=ThenMessageBox.Show(请确定输入了b的值,并且只能为数字)ExitSubEndIfa=CInt(TextBox2.Text)b=CInt(TextBox3.Text)TextBox1.Text=fun(a,b)Dimfn_inputAsIntegerDimmystrAsStringfn_input=FreeFile()FileOpen(fn_input,analysis.vbin,OpenMode.Input)mystr=LineInput(fn_input)DimpositionAsIntegerposition=InStr(mystr,Chr(44))a=Mid(mystr,1,position-1)b=Mid(mystr,position+1,mystr.Length-position)FileClose(fn_input)DimmystreamwriterAsNewIO.StreamWriter(data.vbout)mystreamwriter.Write(fun(a,b))mystreamwriter.Close()EndSubEndClass4、请编写函数f(x)，其功能是：判断一个大于或等于3的正整数是否是素数，如果是素数函数返回1，否则返回0。例如：输入37，函数返回1；输入40，函数返回0。注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“判断”按钮）。输入x的值：文本框判断结果：文本框PublicClassForm1PrivateFunctionf(ByValxAsInteger)AsInteger'###################在此区间添加你的代码#####################dimiasintegerfori=2tox-1ifxmodi=0thenreturn0endifnextreturn1'############################################################EndFunctionPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimxAsInteger=CInt(TextBox1.Text)DimflagAsIntegerDimstrOutputAsString=flag=f(x)Ifflag=1ThenstrOutput=是素数ElsestrOutput=不是素数EndIfTextBox2.Text=strOutputDimfn_inputAsIntegerDimmystrAsStringfn_input=FreeFile()FileOpen(fn_input,analysis.vbin,OpenMode.Input)mystr=LineInput(fn_input)FileClose(fn_input)x=CInt(mystr)flag=f(x)DimmystreamwriterAsNewIO.StreamWriter(data.vbout)mystreamwriter.Write(flag)mystreamwriter.Close()EndSubEndClass5、请编写函数f(a)，其功能是：计算一个长度为5的一维整形数组a中最大值与最小值的差，并作为函数的返回值。例如：从文本框中输入15892，差为8。数组中的值需要自己在文本框中输入。注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）。A(0)文本框A(1)文本框A(2)文本框A(3)文本框A(4)文本框最大至最小之差为：文本框计算PublicClassForm1PrivateFunctionfun(ByVala()AsInteger)AsInteger'########################在此区间添加你的代码######################dimmax,min,iasintegermax=a(0)min=a(0)fori=1to4ifa(i)maxthenmax=a(i)endififa(i)minthenmin=a(i)endifnextreturnmax-min'##################################################################EndFunctionPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimA(5)AsIntegerDimchaAsIntegerA(0)=CInt(TextBox1.Text)A(1)=CInt(TextBox2.Text)A(2)=CInt(TextBox3.Text)A(3)=CInt(TextBox4.Text)A(4)=CInt(TextBox5.Text)cha=fun(A)TextBox6.Text=CStr(cha)Dimfn_inputAsIntegerDimmystrAsStringfn_input=FreeFile()FileOpen(fn_input,analysis.vbin,OpenMode.Input)mystr=LineInput(fn_input)DimpositionAsIntegerDimposition2AsIntegerposition=InStr(mystr,Chr(44))A(0)=Mid(mystr,1,position-1)position2=InStr(position+1,mystr,Chr(44))A(1)=Mid(mystr,position+1,position2-position)position=InStr(position2+1,mystr,Chr(44))A(2)=Mid(mystr,position2+1,position-position2)position2=InStr(position+1,mystr,Chr(44))A(3)=Mid(mystr,position+1,position2-position)A(4)=Mid(mystr,position2+1,mystr.Length-position2)FileClose(fn_input)cha=fun(A)DimmystreamwriterAsNewIO.StreamWriter(data.vbout)mystreamwriter.Write(cha)mystreamwriter.Close()EndSubEndClass6、请编写函数fun(a，b)，其函数功能是：计算a到b区间内（包括a、b）所有不能整除3的整数之和，并返回结果。窗体上已经给出a,b的值。例如：a=1,b=4。处理后，结果为7。注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）A=100,b=999不