作一份94年的详解 感觉考题好没意义....囧 可能有错，请高手修正 ----选择题---- <1> 3 选项1: VB比较字串时，是比较Ascii的合(排列:数字->大写->小写),"A"=65 "a"=97 故为False 【X】 选项2: 同1 "0"=48 48 < 65 应为True【X】 选项3: 续1 2 --And 真值表-- T:True F:False T And T = T，T And F = F ，F And T = F ， F And F = F 故 F And T = F，【O】 <2> 3 选项1: VB函数呼叫可以省略括弧 选项2: 2005为数值，可以不用""，VB自动转换 选项3: 字串无""，VB看不懂 选项4: +可以连接字串 <3> 1 算数->比较->逻辑，算数大於比较跟数学一样，比较有真假才能逻辑运算 例: Print ( 1 + 3 > 2 And 5 + 2 < 10) <4> 2 选项1: 即 Not("A" Like "!A")，like为比较字串是否类似於格式，!A即字串不含A 传回True 【X】 选项2: Mod(求余数)由先权大於加减，故为 10 -2 < (-2)^2 + 3 传回False 【O】 选项3: 超级罕用的语法，直接是Date型态 例:CDate("2006/1/1") = #1/1/2006# 7/1/2005 > 7/1/2004 ，又 T Or T = T 传回True 【X】 选项4: Xor ->左右相同传回假，不同传回真 ，T Xor F = T 【X】 Like运算子的规则比较复杂，请参考 http://msdn2.microsoft.com/zh-tw/library/swf8kaxw(VS.80).aspx <5> 3 有4列 0,1,2,3 及6行 0,1,2,3,4,5，共24格 (感谢colawei指正) <6> 4 X(2)即X阵列的第3个元素(由0开始)，即6 X(6+1) 为第8个元素 16 即为所求 <7> 2 选项1: 转换为ASCII 选项2: 转换为16进位 选项3: 转换为字元 选项4: 转换为8进位 <8> 2 选项1: (没这东西) 选项2: 多行 选项3: 最多字数 选项4: 锁定 <9> 4 只有文字方块才能变更啊 <10> 1 vbYesNo只有 是 跟 否 又未指定预设按钮 故为第一个"是" ----填充---- <1> N 列 M 行(先列再行) <2> 25 > 12 不换 12 < 78 换 12 < 23 换 12 < 45 换 注:气泡就是这样用比较把数字浮上去 要用巢状回圈跑 (其实有人是用沉下去的...囧) <3> ImageBox PicturePox Label TextBox CommandButton Frame RadioBox ComboBox Timer <4> Mid(S,InStr(1,S,"程式"),2) 注: Mid 取出字串中的部分字串，Mid(变数,开始位置,长度) InSTR 寻找字串 InSTR (开始位置,来源字串,目标字串) <5> a = 6 s = 20 变数 m n s都是正整数，VB正整数初值为0 a 被指定为 1 n 被指定为 5 第一次 第二次 第三次 第四次 第五次 a = 2 a = 3 a = 4 a = 5 a = 6 a > n 跳出回圈 s = 2 s = 5 s = 9 s = 14 s = 20 要注意的是VB有的判断方法 Do While 进入回圈检查判断式是否成立，成立者进入 Do Until 进入回圈检查，判断式成立时跳出回圈 Loop 的规则相同，不过是在执行完回圈时才检查 <6-1> "Love" Like "*ove" = True 注:*是万用字元 Or只要一方为真即为真 故，True <6-2> 请参考选择4 True Xor True = False 故False ---程式设计(答案仅供参考)--- <1> Dim Candidate() as integer Dim Selected() as integer Randomize '以时间作为随机种子 ReDim Candidate(42) '先宣告再ReDim才能不断改变阵列大小 For i = 1 To 42 Candidate(i) = i Next For q = 1 to 6 qq = Int(Rnd * UBound (Candidate) ) + 1 '随机取1至目前阵列大小的数，Rnd传回 0 至 1 之间的浮点数 Print "第 " & q & " 个号码为 " & Candidate(qq) Candidate(qq) = Candidate(UBound(Candidate)) ReDim Preserve Candidate(UBound(Candidate)-1) 'ReDim Preseve 改变阵列大小并保留资料 Next <2> 恕我使用暴力法 Dim Candidate() As String, target As Integer target = 100 ReDim Candidate(target) Candidate(1) = "X" For I = 2 To target For J = 2 To I If J <> I Then If (I Mod J) = 0 Then Candidate(I) = "X" Exit For End If End If Next Next For z = 1 To target If Candidate(z) <> "X" Then Print (z) Next <3> Dim Sum as integer For I = 1 to N For q = 1 to I sum = sum + q Next Next Print sum <4> Dim mystr As String For I = -6 To 6 If I <> 0 And I <> 1 Then For p = 1 To Abs(I) mystr = mystr & "*" Next Print mystr mystr = "" End If Next --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 59.112.41.236 ※ 编辑: albb0920 来自: 59.112.48.239 (07/02 13:01)