第一范文网 - 专业文章范例文档资料分享平台

VBnet习题集(1)

来源:用户分享 时间:2025/5/28 21:31:34 本文由loading 分享 下载这篇文档手机版
说明:文章内容仅供预览,部分内容可能不全,需要完整文档或者需要复制内容,请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ:xxxxxx 处理(尽可能给您提供完整文档),感谢您的支持与谅解。

A. If sex= “男” And age<40 And InStr(duty, “教授”)>0 Then n=n+1

B. If sex= “男” And age<40 And duty=“教授” or duty= “副教授” Then n=n+1 C. If sex= “男” And age<40 And Right(duty,2)= “教授“ Then n=n+1

D. If sex= “男” And age<40 And duty= “教授”And duty= “副教授” Then n=n+1 7.下面程序段求两个数中的大数,()不正确。

A. Max1=IIf(x>y, x, y) B. If x>y Then Max1=x Else Max1=y C. Max1=Math.Max(x, y) C. If y>=x Then Max1=y Max=x

8.下面三个程序设计段计算学生外语附加分:外语6级(lang6)为“优秀”加15分,“通过” 加10分;外语4级(lang4)为“优秀”加8分,“通过”加4分。外语附加分只能计一次最高的分数。(A)能正确计算。 A. If lang6=“优秀” Then langf=15

ElseIf lang6=“合格” Then

langf=10

ElseIf lang4= “优秀” Then langf=8

B If lang4= “合格” Then

langf=4

ElseIf lang4=“优秀” Then ElseIf lang4=“合格”Then langf=4

End if

langf=8 ElseIf lang6=“合格” Then

langf=10

ElseIf lang6=“优秀” Then

langf=15 End if

C. If lang6=“优秀”Then langf=15

If lang6=“合格” Then langf=10 If lang4=“优秀” Then langf=8

If lang4= “合格” Then langf=4 langf=0 D. If lang4= “合格” Then langf=4

If lang4=“优秀” Then langf=8

If lang6=“合格” Then langf=10

If lang6=“优秀” Then langf=15

Else

langf=0

End if

9.下面语句执行后,变量w中的值是(B)。

w= Choose (Weekday(“2005,5,1”), “Red”, “Green” , “Blue”, “Yellow”)

A. Nothing B. “Red” C. “Green” D. “Yellow” 二.填空题

1.当C字符串变量中第三个字符是“C”时,利用MsgBox显示“Yes”,否则显示“No”。

If_________Then MsgBox(“yas”) Else MsgBox(“No”) Mid(c,3,1) = “C” 2. 程序运行后输出的结果是___________。

x=Int(Rnd)+3

If x^2>8 Then y=x^2+1 If x^2=9 Then y=x^2-2 If x^2<8 Then y=x^3 MsgBox(y)

3. 下面程序的功能是()。

Dim n%, m%

Sub TextBox1_KeyPress(......)Handles TextBox1.Keypress

If Asc(e.KeyChar)=13 Then

If IsNumeric(TextBox1.Text) Then Select Case Val(TextBox1.Text) Mod 2

Case 0

n=n+Val(TextBox1.Text) Case 1 m=m+Val(TextBox1.Text) End Select

End If

TextBox1.Text=”” TextBox1.Focus( ) End If

End Sub

4.下面的程序段是检查输入的算术表达式中圆括号是否配对,并显示相应的结果。本程序在文本框中输入表达式,边输入边统计,以输入回车符作为表达式输入结束,然后显示结果,如下图所示。

Dim count1 %

Sub TextBox1_KeyPress( ?????)Handles TextBox1.KeyPress If__________=“(”Then

count1+1

ElseIf ________=“)” Then count1=_________ End If

If Asc(e.KeyChar)=13 Then

If_________ Then

MsgBox(“左右括号配对”) ElseIf count1>0 Then MsgBox(__________)

Else

MsgBox(“右括号多于左括号”&count1& “个”) End If Exit Sub End If

End Sub <注意>

该题中统计括号个数的变量count1若在过程内声明,程序会产生什么结果?

5.输入若干个字符,统计有多少个元音字母,有多少个其他字母,直到按Enter键结束,显示结果,大、小写不

区分。其中Count Y中放元音字母个数,Count C中放其他字符数。 Dim CountY% , CountC%

Sub TextBox1_KeyPress (?????) Handles TextBox1.KeyPress Dim c As Char

c=________

If “A”<=c And c<= “Z”Then Select Case_________ Case_________

CountY=CountY+1

Case Else

CountC=CountC+1

End Select End If

If ______ __ Then

MsgBox(“元音字母有”& CountY & “个”) MsgBox(“其他字母有” & CountC & “个”) End If End Sub

6. 用If语句,Select Case语句两种计算方法计算分段函数

x^2+3x+2

当x>20 当10<=x<=20 当x<10

y= sqrt(3x)-2 1/2+|x|

Sub Button1_Click(....) Handles Button1.Click Dim x! , y!

x=Val(TextBox1.Text) If________ Then

y=x*x+3*x+2

ElseIf_________ Then y=1/2+Math.Abs(x) Else

y=Math.Sqrt(3*x)-2 End If

MsgBox(“y=”& y) End Sub

Sub Button1_Click(....) Handles Button1.Click x=Val(TextBox1.Text)

Select Case x Case__________ y=x*x+3*x+2 Case__________ y=1/2+Math.Abs(x) Case Else

y=Math.Sqrt(3*x)-2 End Select MsgBox(“y=”& y) End Sub

7. 输入三角形的三边a、b、c的值,根据其数值,判断能否构成三角形。若能,还要显示三角形的性质:等边三

角形、等腰三角形、直角三角形、任意三角形。 Sub Button1_Click(....) Handles Button3.Click Dim x%, y%, z%

x= Val(InputBox(“input x”)) y= Val(InputBox(“input x”)) z= Val(InputBox(“input x”)) If__________ Then Msg(“能构成三角形”) If_________ Then

Msg(“是等边三角形” ElseIf ________ Then

Msg(“是等腰三角形”)

ElseIf Math.Sqrt(x*x+y*y)=z Or Math.Sqrt(y*y+z*z)=x Or Math.Sqrt(x*x+z*z)=y Then

Msg(“是直角三角形”)

Else _________

End If

Else

MsgBox (“不能构成三角形”)

End If End Sub

8.输入一个年份,判断它是否为闰年,并显示是否是闰年的有关信息。判断闰年的条件是:年份能被4整除但不能被100整除,或能被400整除。同时请用日期型变量的IsLeepYear成员来验证。 Sub Button1_Click(....) Handles Button3.Click Dim d As Date

d=Now If_________ Or d.year Mod 400=0 Then MsgBox(d.Year & “是闰年”) Else

MsgBox(d.Year & “是平年”) End If If d.IsLeepYear(________) Then MsgBox(d.Year & “是闰年”) Else

MsgBox(D.Year & “是平年”) End If End Sub

第四章 循环结构

一.选择题

搜索更多关于: VBnet习题集(1) 的文档
VBnet习题集(1).doc 将本文的Word文档下载到电脑,方便复制、编辑、收藏和打印
本文链接:https://www.diyifanwen.net/c7j2911ey460n19a8i5lv_2.html(转载请注明文章来源)
热门推荐
Copyright © 2012-2023 第一范文网 版权所有 免责声明 | 联系我们
声明 :本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。
客服QQ:xxxxxx 邮箱:xxxxxx@qq.com
渝ICP备2023013149号
Top