Question

求VB高手解题

VB题图 求解





Answer 1

6题：
if语句解释
if 语句1 then
语句2
else
语句3 then 语句4 else 语句5
end if
其中，语句1为true，则执行语句2，语句1为false，则执行语句3，如果语句1，语句3都为
false则执行语句5.
本题x>y为false，y<>20为false，ok1=0为false,ok2<>0为false，语句1的结果就是false，
该句考察or，and用法，其实语句1只要判定了第二个and左右两边的任意一个表达式的值为
false，语句1的值就是false。语句1为false不执行语句2，接着看语句3，ok1<>0,ok2=0这
两个都是true，则语句3为true，执行语句4，取得a=-1,得出答案为-1.
7题：题目看不懂，感觉题目要求的6位数，和代码中的9999四位数不符，题目有错
第一个空：应该是f=false
第二个空：题目看不懂，不知道写什么
8题：
第一个错误改成：max=ckze(i)，始终让max代表最大值
第二个错误改成：ckze(k)=k,在这行上面的解释句中可以看出是判断这两个变量值是否相等。

虽然不能完全解答，但是还望采纳。

Answer 2

已知三角形的边长a,b,c，求它的周长L。三个边的长度用输入框输入，周长用消息框输出VB

Answer 3

function getRandomString($len, $chars=null)
{
if (is_null($chars)) {
$chars = "abcdefghijklmnopqrstuvwxyz";
}
mt_srand(10000000*(double)microtime()); //mt_srand
for ($i = 0, $str = '', $lc = strlen($chars)-1; $i < $len; $i++) {
$str .= $chars[mt_rand(0, $lc)];
}
return $str;
}