ldcf.net
当前位置:首页 >> vB题目如何做? >>

vB题目如何做?

软件数据库有87个试题,系统随机选取20个试题,在答题界面,点击Option1控件就可以实现答题操作,答题20个以后,【交卷...

数据量很小,直接算一下就可以了。 当i=0, inta(1)=1 intb(3)=inta(1)=1 当i=1, inta(2)=3 intb(2)=inta(2)=3 当i=2, inta(3)=5 intb(1)=inta(3)=5 退出循环,i的值为3,输出intb(3),即为1

你这个代码不完整,下面没法看,不知道 你想要什么样的答案,你这代码里没有可以添加的地方,再说这么难的题你多少加点分呀。

试题一: Private Sub Command1_Click() Text1.Text = "" If Option1.Value Then Text1.Text = Text1.Text + "先生爱好:" + vbCrLf Else Text1.Text = Text1.Text + "女生爱好:" + vbCrLf End If If Check1.Value = 1 Then Text1.Text = Text1...

在立即窗口输入问号表达式回车即得表达式值

Private Type utQuestion Description As String '问题描述 Option(2) As String '备选答案 Answer As Integer '正确答案的序号(0-2) End Type Dim Questions(19) As utQuestion, id As Integer, answer As Integer Private Sub Form_Load() D...

第6题:Private Sub Command1_Click() dx = (5 - 2) / 100000 For x = 2 To 5 Step dx s = s + ((x + 1) / Log(x) + (x + dx + 1) / Log(x + dx)) / 2 * dx Next x Print " Sum(2 to 5)[(x+1)/lnx]dx ="; sEnd Sub第7题:Private Sub Command1_C...

1.用VB编程序设计一个简易的计算器 代码: Dim num_1, num2, flagPrivate Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 Label1.Caption = Label1.Caption + CStr(Command1(Index).Caption) Case 10 Label1.Caption = La...

把题库作为一个字符串,然后就是对字符串的查找处理问题了!可以使用index,left,right,mid等字符串处理函数! 当输入题目后,就在题库字符串中查找匹配的题目,然后根据字符特征码提取答案出来就好了

sub subp(b() as integer) for i=1 to 4 b(i)=2*i next i end sub dim a(1 to 4) as integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 subp a() for i=1 to 4 print a(i) next i 虽然在Command1的click事件中,a(1)-a(4)分别等于5、6、7、8 但是通过地址...

网站首页 | 网站地图
All rights reserved Powered by www.ldcf.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com