vb_编程练习(答案)

《vb_编程练习(答案)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、一.选择结构'-------------------------------------------------'题目：编写函数fun，函数的功能是：根据一个百分制'成绩mark（整数），显示对应五级制的评定。条件如下：'mark大于等于90显示"优秀"'mark小于90且大于等于80显示"良好"'mark小于80且大于等于70显示"中等"'mark小于70且大于等于60显示"及格"'mark小于60显示"不及格"'要求使用IF语句来实现。'---------------------------

2、----------------------PrivateFunctionfun(markAsInteger)AsString'**********Program**********Ifmark>=90Thenfun="优秀"ElseIfmark>=80Thenfun="良好"ElseIfmark>=70Thenfun="中等"ElseIfmark>=60Thenfun="及格"Elsefun="不及格"EndIf'**********End**********EndFunctionPrivat

3、eSubForm_Load()ShowPrintfun(90)EndSub'-------------------------------------------------'题目：编写函数fun，函数的功能是：判断一个字符是:字母字符、数字字符还是其他字符，并做相应的显示。'字母字符显示字符串"字母"'数字字符显示字符串"数字"'其他字符显示字符串"其他"'要求使用select语句来实现'-------------------------------------------------Priv

4、ateFunctionfun(nAsString)AsString'**********Program**********SelectCasenCase"A"To"Z","a"To"z"fun="字母"Case"0"To"9"fun="数字"CaseElsefun="其他"EndSelect'**********End**********EndFunctionPrivateSubForm_Load()ShowPrintfun("A")Printfun("9")Printfun("&")EndSu

5、b二.一般循环'-------------------------------------------------'题目：(事件)双击窗体。'(响应)求出100~200之间，能被5整除，但不能被3整除的数。输出这些数并求所有数之和，存入变量中SUM中。输出sum应为2100'-------------------------------------------------PrivateSubForm_dblClick()DimsumAsIntegersum=0'**********Program

6、*********DimiAsIntegerFori=100To200If((iMod5)=0)And((iMod3)<>0)ThenPrint(CStr(i))sum=sum+iEndIfNext'**********End*************PrintsumEndSub'-------------------------------------------------'题目：(事件)单击窗体。输出L应为46189'(响应)求10~20之间所有素数的乘积并输出在窗体上。将结果存入变量L中

7、。'-------------------------------------------------PrivateSubForm_Click()DimlAsLong'*******Program********DimiAsIntegerDimjAsIntegerDimbAsBooleanl=1b=FalseFori=10To20Forj=2Toi-2IfiModj=0Thenb=TrueEndIfNextIfb=FalseThenl=l*iEndIfb=FalseNextPrintStr(l)

8、'*********End***********EndSub'-------------------------------------------------'题目：(事件)单击窗体。'(响应)编写程序求10×11×12+11×12×13+…+15×16×17的结果，'并将结果输出到窗体上。将结果存入变量M中输出M应为15390'-------------------------------------------------PrivateSubForm_Click()DimmAsLong'*