从品牌网站建设到网络营销策划,从策略到执行的一站式服务
你要做一个考试系统??这可不是小程序,不过如果是超精简的话,我倒可以写个思路给你。
创新互联建站专业为企业提供南山网站建设、南山做网站、南山网站设计、南山网站制作等企业网站建设、网页设计与制作、南山企业网站模板建站服务,十多年南山做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
在form添加一个label 和四个command1(组成一个控件组修改index属性,按顺序设置为ABCD)和一个command2(可要可不要,这个是作为跳过用的)
定义全局变量 questions() as string,questionid as integer,answers() as string
在form_load中,将问题和答案读入questions()和answers()中,然后将第一个问题显示在label中,设置questionid=1
之后在command1_click(index as integer)中用select语句根据questionid将答案和回答比较,然后显示下一题,同时更改questionid。。。大概就这样
command2_Click()就直接显示下一题和更改questionid
问题结束后就OK了,之后要加什么可以自己加上去~
随机生成2-5阶方阵:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim d(,) As Integer
Dim n As Integer
Dim i As Integer
Dim j As Integer
Randomize()
n = Int(4 * Rnd() + 2)
ReDim d(n, n)
Label1.Text = ""
For i = 1 To n
For j = 1 To n
d(i, j) = Int(Rnd() + 0.5)
Label1.Text = Label1.Text d(i, j) " "
Next
Label1.Text = Label1.Text vbCrLf
Next
End Sub
如果一个程序要用Application.exit来退出,那说明太失败了。。。
一般来说,都是用close关闭就可以了。
用.NET平台开发,只要你在操作数据库或者IO的时候没有忘记关闭资源连接,一般是不需要你手动释放的。
您还是放心的学习VB吧!只要微软没有关门,学VB还有用的,再说您编的是小的程序,所以学VB6.0就可以了!
至于书籍,我建议您,还是去看一些网上的视频教程辅助学习。同时还要买一本书,我之前看过一本书,
Visual basic程序设计 [平装]
~ 刘世峰 (编者) 中央广播电视大学
很简明,挺好的!!
希望采纳!!
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图