-
等级
本版专家分：0结帖率 100% -
这题听说能用穷举法求解，各位大神帮忙写下代码！
展开阅读全文
-
等级
本版专家分：12797勋章
-
- 签到新秀
-
-
黄花
2018年7月 硬件/嵌入开发大版内专家分月排行榜第二
2017年6月 VB大版内专家分月排行榜第二
-
-
Public Sub Fun()
Dim I As Integer, J As Integer, Min As Integer, Max As Integer, A(10) As Integer, S(4) As Integer
Dim A1 As Integer, A2 As Integer, A3 As Integer, A4 As Integer, A5 As Integer, A6 As Integer, A7 As Integer, A8 As Integer, A9 As Integer, A10 As Integer
Dim SS As String
For A1 = 1 To 4
A(1) = A1
For A2 = 1 To 4
A(2) = A2
For A3 = 1 To 4
A(3) = A3
For A4 = 1 To 4
A(4) = A4
For A5 = 1 To 4
A(5) = A5
For A6 = 1 To 4
A(6) = A6
For A7 = 1 To 4
A(7) = A7
For A8 = 1 To 4
A(8) = A8
For A9 = 1 To 4
A(9) = A9
For A10 = 1 To 4
A(10) = A10
'第二题逻辑
If Abs(A(5) - A(2)) <> 2 Then Exit For
'第三题逻辑
J = 0
If A(3) = 1 And A(3) <> A(6) And A(3) <> A(2) And A(3) <> A(4) Then J = 1
If A(3) = 2 And A(3) <> A(6) And A(6) <> A(2) And A(6) <> A(4) Then J = 1
If A(3) = 3 And A(2) <> A(6) And A(3) <> A(2) And A(2) <> A(4) Then J = 1
If A(3) = 4 And A(4) <> A(6) And A(4) <> A(2) And A(3) <> A(4) Then J = 1
If J = 0 Then Exit For
'第四题逻辑
J = 0
If A(4) = 1 And A(1) = A(5) And A(2) <> A(7) And A(1) <> A(9) And A(6) <> A(10) Then J = 1
If A(4) = 2 And A(1) <> A(5) And A(2) = A(7) And A(1) <> A(9) And A(6) <> A(10) Then J = 1
If A(4) = 3 And A(1) <> A(5) And A(2) <> A(7) And A(1) = A(9) And A(6) <> A(10) Then J = 1
If A(4) = 4 And A(1) <> A(5) And A(2) <> A(7) And A(1) <> A(9) And A(6) = A(10) Then J = 1
If J = 0 Then Exit For
'第五题逻辑
J = 0
If A(5) = 1 And A(8) = 1 Then J = 1
If A(5) = 2 And A(4) = 2 Then J = 1
If A(5) = 3 And A(9) = 3 Then J = 1
If A(5) = 4 And A(7) = 4 Then J = 1
If J = 0 Then Exit For
'第六题逻辑
J = 0
If A(6) = 1 And A(2) = A(8) And A(4) = A(8) Then J = 1
If A(6) = 2 And A(1) = A(8) And A(6) = A(8) Then J = 1
If A(6) = 3 And A(3) = A(8) And A(10) = A(8) Then J = 1
If A(6) = 4 And A(5) = A(8) And A(9) = A(8) Then J = 1
If J = 0 Then Exit For
'第七题逻辑
For I = 1 To 4
S(I) = 0
Next
For I = 1 To 10
S(A(I)) = S(A(I)) + 1
Next
'找出最小数
J = 1
Min = S(1)
For I = 2 To 4
If S(I) < Min Then
Min = S(I)
J = I
End If
Next
If A(7) <> J Then Exit For
'第八题逻辑
J = 0
If Abs(A(7) - A(1)) <> 1 Then J = 1
If Abs(A(5) - A(1)) <> 1 Then J = 1
If Abs(A(2) - A(1)) <> 1 Then J = 1
If Abs(A(10) - A(1)) <> 1 Then J = 1
If J = 0 Then Exit For
'第九题逻辑
J = 0
If A(9) = 1 And ((A(1) = A(6)) Xor (A(6) = A(5))) Then J = 1
If A(9) = 2 And ((A(1) = A(6)) Xor (A(10) = A(5))) Then J = 1
If A(9) = 3 And ((A(1) = A(6)) Xor (A(2) = A(5))) Then J = 1
If A(9) = 4 And ((A(1) = A(6)) Xor (A(9) = A(5))) Then J = 1
If J = 0 Then Exit For
'第十题逻辑
'找出最大数
Max = S(1)
For I = 2 To 4
If S(I) > Max Then Max = S(I)
Next
If (Max - Min = 3 And A(10) = 1) Or (Max - Min = 2 And A(10) = 2) Or (Max - Min = 4 And A(10) = 3) Or (Max - Min = 1 And A(10) = 4) Then
SS = "答案如下：" & vbCrLf
For I = 1 To 10
SS = SS & "第" & CStr(I) & "题 " & Choose(A(I), "A", "B", "C", "D") & vbCrLf
Next
Debug.Print SS
MsgBox SS
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub
-
等级
本版专家分：10 -
这是哪个精神病患者给你出的题。
- 急！！各位大佬帮忙看看，weblogic安装应用
在weblogic控制台安装好应用，点击激活，然后启动，会自动跳转到一个报错页面：Error 503–Service UnavailableFrom RFC 2068 Hypertext Transfer Protocol — ...
- 各位大佬帮忙看看为什么遍历数组arr[i].id会报错
各位大佬帮忙看看为什么遍历数组arr[i].id会报错
- 汇编程序求助，window.inc报错
求助各位大佬帮忙看看 汇编文件asm，生成win32.exe的过程中，要包括windows.inc这个文件，为什么会报这么多错，是版本的问题吗，要怎么解决？ 谢谢各位大佬!
- python pip安装TensorFlow时的报错
各位大佬帮忙看看这个，难了我好长时间。用pip安装TensorFlow的时候报错了，去网上找各种解决方法都不行，我试了一下安装其他的都报这个错，我也是没办法了 ERROR: Exception: Traceback (most recent call last): ...
- jsp+servlet+javabean获取数据库中的值用表单输出，找了很多方法...第一次做web不太会，各位大佬帮忙看看很急
Conn.java连接数据库 public ResultSet executeQuery(String sql) throws SQLException { try { con=DriverManager.getConnection(url, user, pwd); ... stmt = con.createStatement(ResultSet.T...
- 各位大佬帮忙看看哪里错了
各位大佬帮忙看看哪里错了 ``` import random xitong=random.randint(0,2) if xitong==0: xitong="剪刀" else: if xitong==1: xitong="石头" else: xitong="布" people=input("请你输入石头/剪刀/...
- centos7.9启动XAMPP时报错，请各位大佬帮忙看看
错误代码如下： <code class="language-bash">/bin/sh: error while loading shared libraries: libdl.so.2: cannot open shared object file: No such file ...各位大佬救命！谢谢各位大佬！</p>
- 求各位大佬帮忙看看，萌新写的程序有问题
<code class="language-cpp">#include<stdio.h> int main() { double a,b,c; int d; scanf("%1f %d",&a,&b); if(a<=3){ c=10; }else{ if(a<... </p>
- 提问帖，平各位大佬帮忙看看
图中显示最高的tomcat支持版本为8.0，我想要装8.5版本的需要怎么弄呢，是JDK版本低吗，还是其他原因呢
- vue 3.0 学习过程中，模仿代码出错，请各位大佬帮忙看看
想用vue写一点自己的页面，但是很巧最近vue升级到了3.0状态，之前学习的vue的知识都不能正常运用，今天找了个新的教程，想跟着敲一下，但是这里有一点问题。...希望各位大佬可以解决掉我这个问题，谢谢
- 各位大佬帮忙看看怎么填，往里进
定义部件（Component）的重量（wight）概念，则其重量为本身重量加各子部件的重量之和，getWeight函数计算Component的重量，完成填空 public class Component { private List <Component> children;...
- 各位大佬帮忙看看这段求标准化和标准方差哪里出问题了？
想请各位帮忙看看这段代码如何求标准化数据和标准方差，运行出来结果一堆乱数字 #include #include int main(void) { int i,n,s1,s2,me1,me2,sg; double x[50],xh[50],y[50]; printf("数据个数n=");...
- 急急急!各位大佬帮忙看看!非常急!基础问题!
我前段时间安装了jdk和eclipse，都是正常可以用的，前几天不知道什么故障，Ellipse打不开，说我没有路径，在命令窗口输入java、java -version都显示我没有jdk环境。我又在官网下载了jdk-8u25-Windows-x64.exe,安装到...
- 麻烦各位大佬帮忙看看我的配置文件，是哪里有什么问题吗？
启动项目正常，页面也可以正常打开，但是触发html页面里的function login()方法的时候返回请求失败，前端报404，后端报错： 09-Oct-2018 00:07:20.003 警告 [http-nio-8080-exec-5] org.springframework.web.servlet...
- eclipse导入web项目报错，各位大佬帮忙看看
本人java新手，在eclipse中导入项目就各种红叉叉，好难受
- Nginx转发websocket报错 400 bad request 是什么问题，请各位大佬帮忙看看？
端口号8088 1.服务器端代码： @Component @ServerEndpoint("/websocket") public class WebSocket { ... private static ConcurrentHashMap,WebSocket> LinkDeviceMap = new ConcurrentHashMap();...
- 各位大佬帮忙看看，为什么不能翻页，只显示5个数据？
``` Inherits="School_Web.admin.score.classscoreinput" %> , Version=1.0.61025.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" Namespace="System.Web.UI" TagPrefix="asp" %> ...
- 下载Android Studio 3.5.0目前最新版本 出现以下问题 请问各位大佬怎么办？麻烦各位大佬帮忙看看吧，谢谢~
- 恳请各位大佬帮忙看看为什么会重复运行让再一次运行让设置现在是多少分？
每次提示设置错误重新设置之后，将时分秒全部输入之后，会又一次开始运行让再一次设置是多少分，不知道是什么原因，各位帮忙看看，谢谢啦！这个是我的程序运行截图 ![图片说明]...
- java接口 密钥签名作用_PHP 接 Java 的加密接口，各位大佬帮忙看看这是怎么签名的...
明文是 hello world 的字符串，签名结果是MIAGCSqGSIb3DQEHAqCAMIACAQExDzANBglghkgBZQMEAgEFADCABgkqhkiG9w0BBwEAAKCAMIIEIDCCAwigAwIBAgIIMwAAAAJ3YUAwDQYJKoZIhvcNAQELBQAwXTELMAkGA1UEBhMCQ04xMDAuBgNVBAoMJ0...
- idea运行tomcat启动报错Artifact warehouseSys:war exploded: Artifact is being deployed...各位大佬帮忙看看
- 各位大佬帮忙看看！！！！！！！！！！！！！！！！！！！！
Reverse for 'vote' with arguments '()' and keyword arguments '{}' not found. 1 pattern(s) tried: ['vote/(?P<name_id>\\d+)/$' vote2 代码： ``` <p>please sigh your name ... ...
- Android小白，请各位大佬帮忙看看什么问题，一个关于摄氏华氏转换的小小小程序
做一个摄氏华氏转换的时候，在模拟器上运行有这样的问题 java程序 public class MainActivity extends ActionBarActivity { protected void onCreate(Bundle savedInstanceState) { super.onCreate...