blah = CInt(Int((7 * Rnd()) + 0))
Run Code Online (Sandbox Code Playgroud)
生成0到6之间的随机整数.
如何修改它给我一个带有2位小数的随机数,仍然在0到6之间?
如下所示,我现在使用此代码,它似乎工作:
Dim prng As New Random
Private Function aRand() As Double
Return Math.Round(prng.Next(0, 601) / 100, 2)
End Function
currentApp.statements(Pick, 7) = aRand()
currentApp.statements(Pick, 8) = aRand()
Run Code Online (Sandbox Code Playgroud)
感谢所有的建议.
我的代码是:
Import-Csv "$env:userprofile\Desktop\ExternalContacts.csv"| foreach {New-MailContact -Name $_.Name -DisplayName $_.Name -ExternalEmailAddress $_.ExternalEmailAddress -FirstName $_.FirstName -LastName $_.LastName | Set-MailContact -Identity $_.Name -HiddenFromAddressListsEnabled $_.HiddenFromAddressListsEnabled}
Run Code Online (Sandbox Code Playgroud)
我得到了:
无法在参数'HiddenFromAddressListsEnabled'上处理参数转换.无法将值"System.String"转换为"System.Boolean"类型,此类型的参数仅接受布尔值或数字,请使用$ true,$ false,1或0代替.
以下是我在记事本中查看的CSV文件的前两行:
Name,FirstName,LastName,ExternalEmailAddress,HiddenFromAddressListsEnabled
Ted Testington,Ted,Testington,ted.testington@blah.com,$true
我该如何进行必要的转换?
谢谢.
我的PowerShell V3基于一系列问题创建了Office 365用户,然后向IT团队发送了一封包含详细信息的电子邮件.有问题的是:
#Generate-RandomPassword
$xpassword = Create-ComplexPassword -PasswordLength 14 -LowerAlphas 1 -UpperAlphas 1 -Numbers 1 -SpecialCharacters 1
Add-Type -AssemblyName System.Web
[System.Web.HttpUtility]::HtmlEncode($xpassword)
Write-Host 'Sending Email' -foregroundcolor yellow
$xbody = "<head>"
$xbody += "<style>"
$xbody += "p{"
$xbody += "font-family:Verdana;"
$xbody += "font-size:10pt;"
$xbody += "margin-top:0;"
$xbody += "margin-bottom:0;"
$xbody += "}"
$xbody += "</style>"
$xbody += "</head>"
$xbody += "<p>Password: <span style=`"font-family:'Lucida Console',sans serif;font-size:10pt;color:red`">$xpassword</span>"
$xbody += "<p>License: $xk1ore1"
$xbody += "<p>Country: $xcountry"
$xbody += "<p>Town: $xtown"
$xbody += "<p>Status: $xstatus"
$xbody …Run Code Online (Sandbox Code Playgroud)