UC知道这几行php代码转换成asp代码怎么样实现
来源：百度知道 编辑：UC知道 时间：2024/05/17 05:40:38
$arrayname = array('1' => '完美型',
'2' => '助人型',
'3' => '成就型',
'4' => '自我型',
'5' => '理智型',
'6' => '忠诚型',
'7' => '活跃型',
'8' => '领袖型',
'9' => '和平型',
);
$aa= array();
foreach($nine as $v){
$aa[$v]++;
}
asort($aa);
$type = array_pop(array_keys($aa));
$name = $arrayname[$type];
这几行php代码帮忙转成asp代码。谢谢；了、。
'2' => '助人型',
'3' => '成就型',
'4' => '自我型',
'5' => '理智型',
'6' => '忠诚型',
'7' => '活跃型',
'8' => '领袖型',
'9' => '和平型',
);
$aa= array();
foreach($nine as $v){
$aa[$v]++;
}
asort($aa);
$type = array_pop(array_keys($aa));
$name = $arrayname[$type];
这几行php代码帮忙转成asp代码。谢谢；了、。
不太懂PHP呵..按照这个写法可能是:
Dim arrayname(1 To 9) As String, name As String
arrayname(1) = "完美型"
arrayname(2) = "助人型"
arrayname(3) = "成就型"
arrayname(4) = "自我型"
arrayname(5) = "理智型"
arrayname(6) = "忠诚型"
arrayname(7) = "活跃型"
arrayname(8) = "领袖型"
arrayname(9) = "和平型"
Dim aa As Integer
aa = Val(InputBox("输入一个1-9的数字"))
If aa >= 1 And aa <= 9 Then name = arrayname(aa)
不过在VB中,如果是需要这个效果,有更简单的方法:
Dim aa%, name$
aa = Val(InputBox("输入一个1-9的数字"))
If aa >= 1 And aa <= 9 Then name = Choose(aa, "完美型", "助人型", "成就型", "自我型", "理智型", "忠诚型", "活跃型", "领袖型", "和平型")