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...

Dim n As Integer, sum As Integer Private Sub Command1_Click() Dim a(20) As Integer List1.Clear Label1.Caption = "" k = 0 If n = 0 Then List2.Clear For i = 1 To 20 a(i) = Rnd * 501 + 100 List1.AddItem a(i) yes = True For j = 2 T...

Option ExplicitPrivate Sub Form_Click() Dim i As Integer, s As Long For i = 2 To 7 s = s + jiecheng(i) If i

用来实现循环的语句是:答案ABD

option base 1定义数组的默认下标从1开始, 那么t=array(34,81,127,192,16,73,49,50),得 到t(1)=34,t(2)=81,t(3)=127,t(4)=192,...,t(8)=50, ubound(t)取t数组下标的上限,也就是8,这 样for循环为for i=2 to 8 if t(i)

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...

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...

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