一般答题类的微信小程序有多少行代码,通常，根据您的描述，还有一个接口。背景通常使用Java或PHP，有些存在nodejs，什么是python; applet的每个页面包括js，xml \ json \ css，一个大功能至少三个模块，给您一个屏幕截图，这只是小程序开发人员论坛中目录代码的一部分，多少行代码更大，每页2500行，计算每4张文件在第25 * 500 * 4 = 50000，所以获得5W线路代码，只是我下载了这个问题库，写信给nai
你们有答题类的小程序吗,答案的技术通常需要导入问题库，所以别人给你，你不能直接用它，因为里面的话题是所有其他的，你仍然需要删除原来的问题银行，然后进口自己的问题问题银行太麻烦了。所以，我建议你开发更好，如果你不知道代码，你还可以找到一家专业的applet开发公司来帮助您。
vb考试的一些小程序代码?,001 n电源，n值，n值输入私有子mand1_click（）将暗号为整数，j为整数，开始为IntegerBegin = 7 for i = 1到4print选项卡（begink）;对于j = 1到2 * i - 1print“1”;下一个JprintBegin = Begin - 2Next Iend Sub002。公式：E = 1/1！ +1/2！ +1/3！ + ... + 1 / n！直到最后一个项目小于10 ^（ - 6）e值。 （注意：程序代码在Command1中的Command1中的Click事件中写入命令按钮。）私有提交文件1_CLICK（）将DIME为双重，NJ为DOUBLEIM N，IS LONG E = 0 n = 1 do nj = 1对于i = 1对于n nj = nj * i接下来e = e + 1 / nj n = n + 1循环，直到（1 / nj）< 0.000001 Print eEnd Sub003编写程序计算并输出下面级数前n项（n=10）的部分和 用循环1!+2!+3!+4!+....+n!Private Sub Form_Click()Dim sum As Long, jc As LongDim i As Integer, n As Integersum = 0For n = 1 To 10jc = 1For i = 1 To njc = jc * iNext isum = sum + jcNext nPrint sumEnd Sub004编写程序，计算并输出下面级数前n项（n=10）的部分和要求用循环做1!+2!+3!+....+N!Private Sub Form_Click()Dim sum As Long, jc As LongDim i As Integer, n As Integersum = 0n = Val(InputBox(""))For n = 1 To njc = 1For i = 1 To njc = jc * iNext isum = sum + jcNext nPrint sumEnd Sub005 * *** ************ ***** *** *Private Sub Form_Click()Dim i As Integer, begin As Integerbegin = 5For i = 1 To 5Print Tab(begin);For j = 1 To 2 * i - 1Print "*";Next jPrintbegin = begin - 1Next ibegin = 2For i = 1 To 4Print Tab(begin);For j = 1 To 9 - 2 * iPrint "*";Next jPrintbegin = begin + 1Next iEnd Sub006编写程序，单击窗体时在窗体上输出如下所示的图形。 * ** *** **** ***** ************* ****** ***** **** *** ** *Private Sub Form_Click()Dim begin As Integer, n As Integer, i As Longbegin = 9For i = 1 To 5Print Tab(begin);For n = 1 To 2 * i - 1Print "*";Next nPrintbegin = begin - 2Next ibegin = 3For i = 1 To 4Print Tab(begin);For n = 1 To 9 - 2 * iPrint "*";Next nPrintbegin = begin + 2Next iEnd Sub007编写程序，输出下列三角形总行数通过键盘输入用循环做111111111 1111111 11111 111 1Private Sub Command1_Click()i = Val(InputBox(""))begin = 1For i = i To 1 Step -1Print Tab(begin);For j = 1 To 2 * i - 1Print "1 ";Next jPrintbegin = begin + 2Next iEnd Sub008勾股定理中三个数关系a2+b2=c2编写程序，输出100以内满足上述关系的整数组合，Private Sub Command1_Click()Dim a As Integer, b As Integer, c As IntegerDim cntcnt = 0For a = 1 To 99For b = 1 To 99For c = 1 To 99If (a * a + b * b = c * c) ThenPrint a; ""; b; ""; c; "";cnt = cnt + 1If cnt Mod 6 = 0 Then PrintEnd IfNext cNext bNext aEnd Sub009编写程序 输出100 到1000 之间的所有质数，并给出100 -1000 之间质数的个数以及和Private Sub Form_Click()Dim i As Long, n As LongDim cnt As Long, sum As LongDim flag As Booleancnt = 0sum = 0For n = 100 To 1000flag = TrueFor i = 2 To n - 1If n Mod i = 0 Thenflag = FalseExit ForEnd IfNext iIf flag = True Thencnt = cnt + 1sum = sum + nPrint n,If cnt Mod 10 = 0 Then PrintEnd IfNext nPrintPrint cnt, sumEnd Sub0010输出下列三角形 总行数在窗体单击事件通过键盘输入用循环 1 333 55555 7777777Private Sub Form_Click()Dim i As Long, j As LongDim n As Long, begin As Longn = Val(InputBox(""))begin = 2 * n - 1For i = 1 To nPrint Tab(begin);For j = 1 To (2 * i - 1)Print Trim(2 * i - 1); " ";Next jPrintbegin = begin - 2Next iEnd Sub0011求1000 以内分别被3 5 7 除余数都为1的正整数的个数以及其和Private Sub Command1_Click()Dim n As Integer, sum As DoubleDim cnt As Integersum = 0cnt = 0For n = 1 To 1000If (n Mod 3 = 1) And (n Mod 5 = 1) And (n Mod 7 = 1) ThenPrint ncnt = cnt + 1sum = sum + nEnd IfNext nPrintPrint "共"; cnt; "个"Print "和为"; sumEnd Sub0012给定年号与月份，判断该年是否闰年，并根据给出的月份来判断是什么季节。（闰年的条件是：年号能被4整除但不能被100整除，或者能被400整除）Private Sub Command1_Click()Dim year As LongDim month As Integeryear = Int(Val(InputBox("请输入年份")))month = Int(Val(InputBox("请输入月份")))If (year Mod 4 = 0 And year Mod 100 <> 0）然后打印岁月; “年是闰年”; elseprint年; “不是闰年”;结束ifselect案例月写1,2，3个月; “月是春天”案例4,5，6个月; “月是夏天”案例7,8，9打印月; “月份是秋季”案例10,11,11，12打印月;“月是冬天”终端选择赛段Sub0013输出周期gfgefgabcdefgprefate子命令1_click（）将cod code1作为整数，code2作为code1 = asc（“g”）到asc（“a” ）步骤-1 for code2 = code1到ASC（“G”）打印CHR（CODE2）;下一个code2printDext代码10次SUB00141 /（1 * 2）+ 1 /（2 * 3）+ 1 /（3 * 4）+ ..... + 1 /（n *（n + 1）...私有提交组件1_click（）点D点作为双倍，n为longsum = 0 for n = 1至30sum = sum + 1 /（n *（n + 1））下一个n纹金sumend sub0015 2 33313131313131313131为长而不是n2，n2只有n2， n3作为longdim cnt，只开始作为longdim i，j为longcnt = int（val（输入框（输入框（“）））开始= 4 *（2 * cnt - 1）/ 2n1 = 1n2 = 1 for i = 1到cntprint标签（请求在）; n3 = n1 + n2for j = 1到2 * i - 1print修剪（n3）; SPC（4 - LEN（TRIM（N3）））;下一个jbegin = begin - 4n1 = n2n2 = n3next iend sub0016奇数数字维数rituiteum command1_click（）dim sum1作为双重，sum2作为doubledim str作为字符串，ia longstr = inputbox（“）打印strsum1 = 0sum2 = 0for i = 1对于Len（str），如果i mod 2 = 1 tenum1 = sum1 * 10 + val（中间（str，i，1））elsesum2 = sum2 * 10 + val（中间（str，i，1））结束IFXext iprint Sum1; “ - ”;和; “; sum1 - sum2end sub017序列：1,1/2,2 / 3,3 / 5,5 / 8,8 / 13,13 / 21 ...寻找此数字的前20个和私有提交的前20名和私有问题作为Doublemim A1，A2为Long，A3作为Longdim B1，作为Longdim I作为longa1 = 1：a2 = 1b1 = 1：b2 = 2sum = a1 / b1 + a2 / b2 for i = 2至20a3 = a1 + a2b3 = b1 + b2sum = sum + a3 / b3a1 = a2a2 = a3b1 = b2b2 = b3next iplint sumend sum0018 1 333 55555 777777779999999 viveate子命令1_click（）暗闪性暗号，j作为Integer for i = 1到5打印片（20 - 3 * i）;对于j = 1至i * 2 -1print i * 2 - 1;下一个jpprinebext iend sub0019字符反转私有子命令1_click（）昏暗的子命令1_click（）dim str1作为字符串，str2作为stringdim i作为整数，k作为integerstr1 = Internbox（“）str2 =”“k = len（str1）i = i = k到1步-1str2 = str2 + mid（str1，i，1）下一个iprint str5end sub0020寻求e值e = 1 + 1/1！ +1/2！ .....私有suss1_click（）暗淡我作为整数，j，h为单身，l salkle，k！ k = 1s = 1 for i = 1到20k = k *是= s + 1 / Knext iprint发送子

责任编辑（白日珠）

以上就是关于**答题小程序源码，微信答题小程序**的全部内容，了解更多请关注蚂蚁资源网。