陕西师范大学VB主观题和答案(共11页).doc

《陕西师范大学VB主观题和答案(共11页).doc》由会员分享，可在线阅读，更多相关《陕西师范大学VB主观题和答案(共11页).doc（11页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精选优质文档-倾情为你奉上主观题1、请编写函数fun(a，b)，其函数功能是：计算a到b区间内（包括a、b）所有除3余数为2的整数之和，并返回结果。窗体上已经给出a,b的值。 例如：a=1,b=4。处理后，结果为 2。注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）A=100 , B=500除3余2的数之和： 文本框 计算Public Class Form1 Private Function fun(ByVal a As Integer, ByVal b As Integer) As Long #请在此区间填写你的代码#dim i,s as

2、 integers=0for i=a to bif i mod 3 =2 thens=s+iend ifnextreturn s # End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, b As Integer Dim c As Long a = 100 b = 500 c = fun(a, b) TextBox3.Text = CStr(c) Dim mystreamwriter As Ne

3、w StreamWriter(data.vbout) mystreamwriter.Write(c) mystreamwriter.Close() End SubEnd Class2、请编写函数fun()，其功能是：计算2-500之间（包括2，500）素数的个数,并将其作为返回值。 注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）。2-500之间的素数个数：文本框 计算Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

4、System.EventArgs) Handles Button1.Click TextBox1.Text = fun() Dim mystreamwriter As New IO.StreamWriter(data.vbout) mystreamwriter.Write(fun() mystreamwriter.Close() End Sub Private Function fun() As Integer #在此添加你的代码#dim i ,n,j as integern=0for i=2 to 500for j=2 to i-1if i mod j =0 thenexit forend

5、ifnextif i=j thenn=n+1end ifnextreturn n # End FunctionEnd Class3、请编写函数fun()，其功能是：计算a到b之间“个位数与十位数相等”的数的个数（包括a,b），并返回该值。 注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮） A为： 文本框 B为： 文本框 A到b之间各位数与十位数相等的数的个数：文本框 计算Public Class Form1 Private Function fun(ByVal a As Integer, ByVal b As Integer) As Int

6、eger #请在此区间填写你的代码#dim i ,n, g,s as integern=0for i=a to bg= i mod 10s= (i 10) mod 10if g = s thenn=n+1end ifnextreturn n # End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, b As Integer If IsNumeric(TextBox2.Text) = 0 Or T

7、extBox2.Text = Then MessageBox.Show(请确定输入了a的值,并且只能为数字) Exit Sub End If If IsNumeric(TextBox3.Text) = 0 Or TextBox3.Text = Then MessageBox.Show(请确定输入了b的值,并且只能为数字) Exit Sub End If a = CInt(TextBox2.Text) b = CInt(TextBox3.Text) TextBox1.Text = fun(a, b) Dim fn_input As Integer Dim mystr As String fn_i

8、nput = FreeFile() FileOpen(fn_input, analysis.vbin, OpenMode.Input) mystr = LineInput(fn_input) Dim position As Integer position = InStr(mystr, Chr(44) a = Mid(mystr, 1, position - 1) b = Mid(mystr, position + 1, mystr.Length - position) FileClose(fn_input) Dim mystreamwriter As New IO.StreamWriter(

9、data.vbout) mystreamwriter.Write(fun(a, b) mystreamwriter.Close() End SubEnd Class 4、请编写函数f(x)，其功能是：判断一个大于或等于3的正整数是否是素数， 如果是素数函数返回1，否则返回0。例如：输入37，函数返回1；输入40，函数返回0。 注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“判断”按钮）。 输入x的值： 文本框 判断 结果：文本框Public Class Form1 Private Function f(ByVal x As Integer) As In

10、teger #在此区间添加你的代码#dim i as integerfor i=2 to x-1if x mod i =0 thenreturn 0end ifnextreturn 1 # End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Integer = CInt(TextBox1.Text) Dim flag As Integer Dim strOutput As String =

11、 flag = f(x) If flag = 1 Then strOutput = 是素数 Else strOutput = 不是素数 End If TextBox2.Text = strOutput Dim fn_input As Integer Dim mystr As String fn_input = FreeFile() FileOpen(fn_input, analysis.vbin, OpenMode.Input) mystr = LineInput(fn_input) FileClose(fn_input) x = CInt(mystr) flag = f(x) Dim mys

12、treamwriter As New IO.StreamWriter(data.vbout) mystreamwriter.Write(flag) mystreamwriter.Close() End SubEnd Class 5、请编写函数f(a)，其功能是：计算一个长度为5的一维整形数组a中最大值与最小值的差，并作为函数的返回值。 例如：从文本框中输入1 5 8 9 2，差为8。 数组中的值需要自己在文本框中输入。 注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）。 A(0) 文本框 A(1) 文本框 A(2) 文本框 A(3) 文本框

13、 A(4) 文本框 最大至最小之差为：文本框 计算Public Class Form1 Private Function fun(ByVal a() As Integer) As Integer #在此区间添加你的代码#dim max,min ,i as integermax= a(0)min= a(0)for i =1 to 4if a(i)max thenmax = a(i)end ifif a(i) min thenmin = a(i)end ifnextreturn max - min # End Function Private Sub Button1_Click(ByVal sen

14、der As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim A(5) As Integer Dim cha As Integer A(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) Dim fn_input A

15、s Integer Dim mystr As String fn_input = FreeFile() FileOpen(fn_input, analysis.vbin, OpenMode.Input) mystr = LineInput(fn_input) Dim position As Integer Dim position2 As Integer position = InStr(mystr, Chr(44) A(0) = Mid(mystr, 1, position - 1) position2 = InStr(position + 1, mystr, Chr(44) A(1) =

16、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 - po

17、sition2) FileClose(fn_input) cha = fun(A) Dim mystreamwriter As New IO.StreamWriter(data.vbout) mystreamwriter.Write(cha) mystreamwriter.Close() End SubEnd Class6、请编写函数fun(a，b)，其函数功能是：计算a到b区间内（包括a、b）所有不能整除3的整数之和，并返回结果。窗体上已经给出a,b的值。 例如：a=1,b=4。处理后，结果为 7。注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算

18、”按钮）A=100 , b=999不能整除3的数的和： 文本框 计算Public Class Form1 Private Function fun(ByVal a As Integer, ByVal b As Integer) As Long #请在此区间填写你的代码#dim i ,s as integers=0for i=a to bif i mod 3 0 thens=s+iend ifnextreturn s # End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.

19、EventArgs) Handles Button1.Click Dim a, b As Integer Dim c As Long a = 100 b = 999 c = fun(a, b) TextBox3.Text = CStr(c) Dim mystreamwriter As New StreamWriter(data.vbout) mystreamwriter.Write(c) mystreamwriter.Close() End SubEnd Class7、请编写函数f(x)，其功能是：根据下面的公式，计算通过文本框输入的x的值对应的y值。 计算公式为x-1时，yx；1x0时，y=

20、2x;x0 时，y5x+1。 注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）。输入x的值：文本框计算 Y的值等于：文本框Public Class Form1 Private Function f(ByVal x As Double) As Double #在此区间添加你的代码#dim y as doubleif x-1 theny=xelseif x0 theny= 2*xelsey=5*x +1end ifend ifreturn y # End Function Private Sub Button1_Click(ByVal send

21、er As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Double = CDbl(TextBox1.Text) Dim y As Double y = f(x) TextBox2.Text = y Dim fn_input As Integer Dim mystr As String fn_input = FreeFile() FileOpen(fn_input, analysis.vbin, OpenMode.Input) mystr = LineInput(fn_input) Fil

22、eClose(fn_input) x = CDbl(mystr) y = f(x) Dim mystreamwriter As New IO.StreamWriter(data.vbout) mystreamwriter.Write(y) mystreamwriter.Close() End SubEnd Class8、请编写函数fun(a)，其函数功能是：计算a的阶乘，并返回结果。注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）A 为 ： 文本框阶乘结果为： 文本框 计算 Public Class Form1 Private Functi

23、on fun(ByVal a As Integer) As Long #请在此区间填写你的代码#if a=0 or a =1 thenreturn 1elsereturn a*fun(a-1)end if # End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a As Integer If IsNumeric(TextBox1.Text) = 0 Or TextBox1.Text = Then M

24、essageBox.Show(请确定输入了a的值,并且只能为数字) Exit Sub End If a = CInt(TextBox1.Text) TextBox2.Text = fun(a) Dim fn_input As Integer Dim mystr As String fn_input = FreeFile() FileOpen(fn_input, analysis.vbin, OpenMode.Input) mystr = LineInput(fn_input) a = CInt(mystr) FileClose(fn_input) Dim mystreamwriter As N

25、ew StreamWriter(data.vbout) mystreamwriter.Write(fun(a) mystreamwriter.Close() End SubEnd Class1. 在窗体中添加一个Button控件，更改Name属性为“my_button”，更改Text属性为“ok”。 # 再添加一个Label控件，更改Text属性为“my label”，更改BackColor属性为“ButtonHighlight”。2. 在窗体中添加一个Panel控件，Name属性值改为“my_panel”，BorderStyle属性值改为“Fixed3D”。3. 在窗体中添加一个Label控

26、件，Enabled属性值改为“False”，Name属性值改为“myLabel”，Text属性改为“Label”。4. 在窗体中添加一个Timer控件，Enabled属性值改为“True”，Interval属性值改为“500”。、5. 在窗体中添加一个TextBox控件，Name属性值改为“txtInputBox”，Text属性值改为“my txtbox”， 6. Mutiline属性值改为“True”，ScrollBars属性值改为“Vertical”。7. 在窗体中添加一个Button控件，更改Name属性为“my_button”，更改Text属性为“ok”。 再添加一个Label控件，更改Text属性为“my label”，更改BackColor属性为“ButtonHighlight”。专心-专注-专业