333xxxyyywww33的个人资料 - RAT

333xxxyyywww33 333xxxyyywww33

关注数: 19 粉丝数: 113 发帖数: 8,970 关注贴吧数: 44

机内码怎么输出负值？哪里错了？

输入汉字求区位码和输入区位码求汉字

字符映射表

整数是字符和汉字的asc码么？求解答！

C语言求回文素数 #include <stdio.h> int sushu(int i) { int j; if(i<=1) return 0; if(i==2) return 1; for(j=2;j<i;j++) { if(i%j==0) return 0; else if(i!=j+1) continue; else return 1; } } int main() { int i; for(i=10;i<1000;i++) if(sushu(i)==1) if(i/100==0) { if(i/10==i%10) printf("%5d",i); if(i%5==0) printf("\n"); } else if(i/100==i%10) printf("%5d",i); if(i%5==0) printf("\n"); return 0; }

转帖

Vc++6.0 为啥文件名后缀不能用.c ,而只能用 .cpp??

程序证明，自然推理证明与真值树

这叫汉字的什么码？？

如何按装？苹果平板电脑怎么安装VC++6.0

哪里错了？

真值树

条件为假的命题 1假言命题中有没有条件为假的命题 2若有他是真命题？假命题？真假不定的命题？

怎么理解【悖论】？？？ “一命题B，如果承认B，可推得┓B。反之，如果承认┓B，又可推得B，称命题B为一悖论。”（《辞海》（悖论））如果某一推理的论断和推理规则都正确，但结果却违背常识，这就构成了悖论。

只有才；除非否则；只要就只有 a ，才 b 除非 a ，否则b 只要 a，就b a分别是b的什么条件？？？

这是那步不对火？？

D的判断正确吗

求教

变上限定积分？变上限定积分与不定积分有着怎样的区别和联系？？？？

填空 3、根据有关推理规则，——判断不能换位，——判断不能换质位。

咋做下去？？

列式是否正确？

做的对吗？

咋积？

怎么变来的？

求解答

求逻辑函数式

调号是如何确定的？一首乐曲尽管标有调号，但在你用乐器演奏时，无论用什么调，均可演奏出他的旋律。不过有的调，听起来不太贴合乐曲的情感。这里的差别到底是怎么造成的，总想不明白？？？

前提是不一致的指的是什么？

难以捉摸的附加律add

这个程序是】【C】程序吗?

判断下面两个推理的正确性（1）若今天是星期一，则明天是星期三；今天是星期一。所以明天是星期三。（2）若今天是星期一，则明天是星期二；明天是星期二。所以今天是星期一。

A->B 与~A VB 互化这该如何理解？

除非。。。。否则。。。。除非天下大雨，否则我不乘车上班。 P：天下大雨 Q：我乘车上班符号化命题：？？

罗素怪论罗素，伟大的逻辑学家，英国人。他提出关于【实质蕴含】的理论：1假命题蕴含任何命题。 2真命题被任何命题所蕴含。有人向罗素提出这样的问题：先生：既然假命题蕴含任何命题，那么你能否由2+2=5这个假命题，推出“罗素”与某教主是一个人呢？罗素完全可以对这个问题置之不理！ 1可以说：这是我的一个【罗素猜想】，是世界级难题。先打好基础再说！ 2“你有什么资格向我提出这样的问题？” 他没有这样做！这个可爱的老头不假思索，马上给出了证明：既然承认2+2=5 而我知道2+2=4 故5=4 【等于等量的两个量相等】两边同减3 故又得 2=1 而众所周知，罗素与那位主教是两个人。【2】所以罗素与那位主教是一个人。【1】因为2=1 证毕。

纠正自己的一个错误观点

n元函数真值表

这是咋回事？

连续换质位法

异或加密出错这有啥讲究？Dim i As Integer, s1 As String, s2 As String, s3 As String Private Sub Command1_Click() s1 = Text1 's1 = InputBox("请输入明文", "提示", "this is computer.") For i = 1 To Len(s1) s2 = s2 & Chr(Asc(Mid(s1, i, 1)) Xor 14) Next MsgBox "密文：" & vbLf & s2 Print "密文：" & vbLf & s2 Text2 = Text2 & "密文：" & vbLf & s2 End Sub Private Sub Command2_Click() For i = 1 To Len(s2) s3 = s3 & Chr(Asc(Mid(s2, i, 1)) Xor 14) Next MsgBox "明文：" & vbLf & s3 Print "明文：" & vbLf & s3 Text3 = Text3 & "明文：" & vbLf & s3 End Sub

加密解密两问

Private Sub Command2_Click() Dim b(1, 2) a = Array("6", "7", "9", "2", "5", "4") For n = 0 To 5 i = n \ 3 j = n Mod 3 b(i, j) = a(n) Next Max = b(0, 0) For i = 0 To 1 For j = 0 To 2 If b(i, j) > b(0, 0) Then Max = b(i, j) Next j Next i Print Print "最大值="; Max Min = b(0, 0) For i = 0 To 1 For j = 0 To 2 If b(i, j) < b(0, 0) Then Min = b(i, j) Next j Next i Print Print "最小值="; Min End Sub Private Sub test() Dim b(1, 2) a = Array("2", "7", "9", "6", "5", "4") For n = 0 To 5 i = n \ 3 j = n Mod 3 b(i, j) = a(n) Next Max = b(0, 0) Min = Max For i = 0 To 1 For j = 0 To 2 If b(i, j) > b(0, 0) Then Max = b(i, j) If b(i, j) < b(0, 0) Then Min = b(i, j) Next j Next i Print Print "最大值="; Max Print "最小值="; Min End Sub Private Sub Command3_Click() call Sub test() End Sub

学生成绩记录

床前明月光 a = Array(Array("床", "前", "明", "月", "光"), Array("疑", "是", "地", "上", "霜"), Array("举", "头", "望", "明", "月"), Array("低", "头", "思", "故", "乡")) 怎么赋值给二维数组？？？？？百度无果！！！！！ Private Sub Command1_Click() For i = 0 To 3 For j = 0 To 4 Print p(i, j) Next j Print Next i End Sub Private Sub Command2_Click() For i = 0 To 4 For j = 0 To 3 Print p(j, i) Next j Print Next i End Sub Private Sub Command3_Click() For i = 0 To 4 For j = 0 To 3 Print p(3 - j, i) Next j Print Next i End Sub

二进制数再转为符号

这个十转二进制的自定义函数从函数到调用存在哪些问题？代码如下： Private Function 十转二(ByVal a As Integer) As String Dim r As Integer, b As String Do While a <> 0 r = a Mod 2 a = a \ 2 b = CStr(r) & b Loop End Function Private Sub Command1_Click() For i = 1 To 63 Print 十转二(i); Next End Sub

两个二难推理的证明？

这是何种循环？元素怎样输出 Private Sub Command1_Click() Dim a(1 To 4, 1 To 13) n = 0 For Each i In a n = n + 1 Next MsgBox "数组a包含的元素的个数为 " & n Dim b(5 To 5, 1 To 2) n = 0 For Each i In b n = n + 1 Next MsgBox "数组b包含的元素的个数为 " & n End Sub

二元逻辑比如 P，Q是两个逻辑变量他们可以组成各种形形色色的逻辑函数为啥说二元真值函数只有16种？

vbs是什么？一个VB程序怎样变为VBS？

验证哥德巴赫猜想 Private Sub Command1_Click() Dim n%, n1%, n2% n = Val(InputBox("输入一个大于4的偶数")) For n1 = 2 To n \ 2 ' 3 To n \ 2Step 2 n2 = n - n1 If 质数(n1) And 质数(n2) Then Print n & "=" & n1 & "+" & n2: Exit For '去掉后可以输出几种分法 'Else 'Print "此数无法分解" End If Next n1 End Sub

将数字 1，2,3,4,9,10 与甲，乙，戊，己，庚，辛壬癸对应下面是 1,2,3,4,5,6,7,8,9,10，十个数字中取出4个的所有排列如何将数字用相应的汉字甲，乙，丙，丁，戊，己，庚，辛，壬，癸代换？？？ Private Sub Command1_Click() Dim i, j, k, l As Integer s = 0 For i = 1 To 10 For j = 1 To 10 For k = 1 To 10 For l = 1 To 10 If i <> j And i <> k And i <> l And j <> k And j <> l And k <> l Then 'Exit For List1.AddItem i & Str(j) & Str(k) & Str(l) & " " s = s + 1 End If Next Next Next Next Print "总计循环"; s; "次"; "即A（10,4）" End Sub

韩信点兵 '一堆球，11个一组余3个。7个一组余5个；27个一组余13个 '问这堆球至少有多少个？

这是什么原理？在记事本中先复制出前面一段代码，然后在双引号内复制一段文字最后保存为*.txt 再将此文件重命名将格式改为*.vcs 保存打开此文件就可以听到朗读这段文字的声音了。

这个帖子怎么找不见了？

这里咋不见 1 2 3 4 ......？？？是A(10,4) 又不像? Private Sub Command1_Click() Dim i, j, k, l, m, n, o, p, s As Integer s = 0 For i = 1 To 10 For j = 1 To 10 For k = 1 To 10 For l = 1 To 10 If i = j Or i = k Or i = l Or j = k Or j = l Or k = l Then Exit For End If List1.AddItem i & Str(j) & Str(k) & Str(l) & " " s = s + 1 Next Next Next Next Print "总计循环"; s; "次" End Sub

首页 1 2 下一页