重庆分公司,新征程启航

为企业提供网站建设、域名注册、服务器等服务

包含vb.net考试题库的词条

vb.net的编程

Option Strict Off

创新互联公司主要从事成都做网站、成都网站制作、网页设计、企业做网站、公司建网站等业务。立足成都服务岱岳,10年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220

Option Explicit On

Friend Class Form1

Inherits System.Windows.Forms.Form

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click

Dim j As Integer

Dim A(9) As Short

Dim D(9) As Short

Dim i As Short

Dim B As Short

Dim C As Short

Dim F As Short

Dim G As Boolean

Dim H() As Short

Dim K As Short

Dim S As String

C = 32767

For i = 1 To 10

A(i - 1) = CShort(InputBox("输入第 " i "个数"))

If B A(i - 1) Then B = A(i - 1)

If C A(i - 1) Then C = A(i - 1)

D(i - 1) = Int(Rnd() * 100 + 0.5)

If F D(i - 1) Then F = D(i - 1)

Next i

For i = 2 To 100

For j = 2 To Int(System.Math.Sqrt(i) + 0.5)

'UPGRADE_WARNING: Couldn't resolve default property of object j. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'

'UPGRADE_WARNING: Mod has a new behavior. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'

If i Mod j 0 Then

G = True

Else

G = False

Exit For

End If

Next j

If G = True Then

ReDim Preserve H(K)

H(K) = i

K = K + 1

End If

Next i

S = "2;"

For i = 0 To K - 1

S = S H(i) ";"

Next i

MsgBox("最大数为:" B ";最小数为:" C)

MsgBox("最大的随机数为:" F)

MsgBox("1--100之间共有" K + 1 "个素数:" S)

End Sub

End Class

请问各位高手,如何编写考试题库

上次毕业生设计的时候也看到过这种设计作品,而且做的也很好,在这里给您介绍一下,当然仅仅供参考,一些很好的细节都是被忽略的,但是如果您认真做到的话就会很显彩拉风的。

你可以做一个基于IE浏览器的形式,这样的话编程简单,用ASP或JSP就可以简单的实现,不过虽然实现简单,不过你还要考虑一些小问题,比如,考试界面的全屏化,不可以显示IE功能菜单,把菜单隐藏起来,同时不可以最小化窗口和切换窗口,因为你要是在考试系统下都可以随便切换窗口出去的话,考生很容易访问别的磁盘或者是上网查一些资料等,这样做就限制了考试的其他做法。

当然这只是其中的一点,还有其他的一些问题,比如你源程序的保密性,等,这是不允许个人随便查看源程序的。

当然,另外的一点就是更新,你不可能做一个程序之适合于这一次考试,程序的更新也要做好,就像是做后台管理一样。

具体到程序的编写,那就显得计划化了许多,不过我们这个学期刚学习JSP,而且ASP我也是上个学期自己学习的,不过你要是真想实现的话也不是很大的问题。

个人提供的信息倾其全部也差不多就这些。当然,程序编写软件看你选什么程序了。

还有两道vb.net面试题,请大家帮忙,谢谢。

我很喜欢这种题目

-------------------------------------------------------------------------

第7题,问题出在两方面

Public Function CalculateArea(ByVal SideBase As Double, ByVal Height As Double, _ Optional

ByVal AssignToArea As Boolean = False) As Double

Dim Area As Double = (SideBase * Height) / 2

中间的 _ 有问题,应该去掉

还有objShape = CType(objShape, clsTriangle) 有错误,不能转换

注释掉objShape = CType(objShape, clsTriangle)

删除_后,得到结果

true

false

-330

--------------------------------------------------------------------------

第8题,就是以acc_grp_cust_tbl表为基础,查找cust_tbl并输出

一般的话使用涉及两个表的话使用SHAPE语句(以SQL为基础的语句)

虽然两者使用时差不多,但是理论比较难懂,我这里也不讲了,我使用ADO+SQL方法

先说明一下程序中的一个细节,也是问题比较容易忽略的

1400 0 1 2

1500 3 4

1600 5

说明一个问题Cust_id1 Cust_id2 Cust_id3 Cust_id4 字段不是数值,而是类似字符的东西(因为可能是

备注)

定义rsgrp对应acc_grp_cust_tbl ,rscust对应cust_tbl

预先设置好rsgrp和rscust的连接(使用VB的方法,可以移植到VB.NET上)

do until rscust.eof

strline=rscust(0) " "

strSQL="SELECT * FROM CUST_TBL WHERE cust_id='" RSGRP(1) "' OR CUST_ID='" RSGRP(2) "' OR CUST_ID='" RSGRP(3) "' OR CUST_ID='" RSGRP(4) "'"

RSGRP.OPEN STRSQL

if rsgrp.recordcount0 then

rsgrp.movefirst

do until rsgrp.eof

strLine=strline rscust(3) " " rscust(2) "/"

rsgrp.movenext

loop

end if

rscust.close

strline=left(strline ,len(strline)-1)

'去除最后一个"/"

console.writeline(strline)

loop

Windows程序设计(VB.NET)》在线作业二

1.C

2.A

3.A

4.A

5.A

6.C

7.D

8.A

9.A

10.D

11.D

12.D

13.B

14.D

15.A

16.B

17.C

18.A

1.A

2.B

求陕西师范大学vb上机考试考试题

选择题

1 下面4个选项中属于字符型数据的是( )

A "Hello" B Hello' C Hello D #Hello

2 初学者、业余爱好者在开发基于windows的应用程序时适宜使用的开发工具是()。

A Visual Studio 2005 Express Edition

B Visual Studio 2005 Team Test Edition

C Visual Studio 2005 Team Developer Edition

D Visual Studio 2005 Team Architect Edition

3 若dim a() as integer={1,2,3,4,5},则a.length的值()

A 是4 B 是5 C Null D 是6

4 定义字符串变量:

Dim strInput As String=“VisualBasic2005”

Dim strSubStr1 As String

计算子串:strSubStr1 = strInput.Remove(2, 4)

则strInput的值为:

A VisualBasic B ViBasic2005 C sual D alBa

5 要使TextBox控件能够显示多行,应设置()属性为True

A VisibleB Enabled C MultiLine D Text

6 下列赋值语句正确的是( )

A A=B+CB –B=A C 2=A+B D B+C=A

7 当在文本框中输入“ABCD”时,标签上显示的是()。

Sub TextBox1_TextChanged(……) Handles TextBox1.TextChanged

Label1.Text =TextBox1.Text

End Sub

A ABCD B A C AABABCABCD

B

C

D D A

Ab

ABC

ABCD

8 Sub过程与Function过程最根本的区别是()

A Function过程可以有形参,Sub过程不可以

B Sub过程可以直接使用过程名调用,而Function过程不可以

C Sub过程不能返回值,而Function过程能返回值

D 两种过程的参数传递方式不同

9 对下列程序段,说法正确的是()###btnQuit.SetBounds(10,80,200,50)

A btnQuit对象的左边界距窗体的左边界是10像素,上边界距窗体的上边界为80像素

B btnQuit对象的左边界距屏幕的左边界为200像素,上边界距屏幕的上边界为50像素

C btnQuit对象的宽度为200像素,高度为80像素

D btnQuit对象的高度为80像素,宽度为200像素

10 Dim str1,str2 As String ### str1="北京奥运2008" ### str2=str1.Substring(0,4) ### 那么str2的值为( )

A 北京 B 北京奥运 C 奥运 D 是2008

11 按照匈牙利表示法,前缀为lbl表示哪一个控件。

A Button B Label C ListBox D TextBox

12 数学关系式3x10表示成正确的vb.net表达式为

A 3=x=10 B 3x and x10 C x3 or x10 D 3x x10

13 要使文本框中的文字不能修改,应对()属性进行设置。

A Locked B Visible C Enable D ReadOnly

14 按照匈牙利表示法,TextBox控件的前缀是()

A btn B lst C mnu D txt

15 调用子过程后可以通过形参来改变两个实参值的语句是()。

A Sub f1(ByVal n as integer,ByVal m as Integer)

B Sub f2(ByRef n as integer,ByVal m as Integer)

C Sub f3(ByRef n as integer,ByRef m as Integer)

D Sub f4(ByVal n as integer,ByRef m as Integer)

16 数学关系式x10或者x0表示成正确的vb.net表达式为

A 10x0 B x0 and x10 C x0 or x10 D 0x x10

17 可以同时删除字符串前导和尾部空白的函数是( )

A Ltrim B Rtrim C Trim D Mid

18 以下变量名是正确的()

A 是_a1 B 是123a C 是For D 是as

19 下面程序求两个数中的小数()不正确

A min1=iif(xy,x,y)

B if xy then ###min1=x###else###min1=y###end

C ifmin1=IIF(xy,y,x)

D if yx then ###min1=y ###end if###min1=x

20 下列程序段的执行后,变量a,k的值分别为

Dim a,k as integer

a=5

For k=1 To 0

a=a * k

Next k

A -1 6 B -1 16 C 1 5 D 11 21

AABBC ACCAB BBDDC CCADC

选择题百度文库中还有好多

操作题

1.请编写函数fun(),其功能是:计算2-500之间(包括2,500)素数的个数,并将其作为返回值。

注意:不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性(运行后点击“计算”按钮)。

2.请编写函数fun(a),其函数功能是:计算a的阶乘,并返回结果。

注意:不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性(运行后点击“计算”按钮)

3..请编写函数f(x),其功能是:判断一个大于或等于3的正整数是否是素数,

如果是素数函数返回1,否则返回0。例如:输入37,函数返回1;输入40,函数返回0。

注意:不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性(运行后点击“判断”按钮)。

4.请编写函数f(a),其功能是:计算一个长度为5的一维整形数组a中最大值与最小值的差,并作为函数的返回值。

例如:从文本框中输入1 5 8 9 2,差为8。

数组中的值需要自己在文本框中输入。

注意:不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性(运行后点击“计算”按钮)。


网站标题:包含vb.net考试题库的词条
当前链接:http://cqcxhl.com/article/dodsshe.html

其他资讯

在线咨询
服务热线
服务热线:028-86922220
TOP